Уважаемые форумчане,
доброе утро!

Разрешил общий доступ к книге.
При открытии книги в общем доступе выдает ошибку Run-time error 1004 "Application or object defined error" на следующей строке кода:
Application.ThisWorkbook.Worksheets(1).Protect Password:="111", DrawingObjects:=True, Contents:=True, Scenarios:= _
       False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
       AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowSorting:= _
       True, AllowFiltering:=True, AllowUsingPivotTables:=True, Userinterfaceonly:=True
Пожалуйста, помогите решить эту задачу.

Уважаемые Икселеведы, добрый день.  
 
Подскажите, пожалуйста, какая Worksheetfunction в VBA  соответствует функции СИМВОЛ().  
Возможно, где-то есть таблица соответствий?

Добрый день, уважаемые Икселеведы!  
 
Прошу совета.  
 
Option Explicit  
Public a As Long  
 
Sub nnn  
For x=1 to 3  
a=a+1  
Next x  
Call fff  
End sub  
 
Sub fff  
If a=3 then  
...  
End if  
End sub  
 
Проблема: значение переменной "а" не переносится в fff.

Здравствуйте, многоуважаемые Икселеведы!  
 
Помогите, пожалуйста.  
 
Есть ячейки, каждая со своим форматом. Необходимо при создании листбокса и заполнении значений в нем, сохранять формат данных. Заранее определить конкретный формат для конкретной "ячейки" листбокса не представляется возможным.

Здравствуйте!  
Подскажите, пожалуйста, как правильно указать номер столбца в Range:  
 
y - номер столбца  
WS1 и WS2 - листы книги  
 
For y = 3 To WS2.Cells(3, Columns.Count).End(xlToLeft).Column  
If WS2.Range(y & 3).Value = WS1.Range("B" & x).Value Then  
MsgBox Good  
End If  
Next y

Добрый день!  
Помогите, пожалуйста, со вчерашнего дня бьюсь с этой штукой.  
В модуле книги Excel есть следующий код:  
 
Sub Create_Word_Doc()  
Dim wbApp As Object, wDoc As Object, sStr As String  
Set wbApp = CreateObject("Word.Application"): wbApp.Visible = True  
Set wDoc = wbApp.Documents.Add  
'создаем таблицу - если вместо wDoc (ниже) ставим ActiveDocument тоже ругается  
   wDoc.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _  
       4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _  
       wdAutoFitFixed  
   With Selection.Tables(1)  
       If .Style <> "Сетка таблицы" Then  
           .Style = "Сетка таблицы"  
       End If  
       .ApplyStyleHeadingRows = True  
       .ApplyStyleLastRow = True  
       .ApplyStyleFirstColumn = True  
       .ApplyStyleLastColumn = True  
   End With  
 
nomerdoc = nomerdoc + 1  
wDoc.SaveAs Filename:=ThisWorkbook.Path & "\запрос" & nomerdoc & ".doc"  
wDoc.Close: wbApp.Quit  
Set wDoc = Nothing: Set wbApp = Nothing  
End Sub  
 
Ругается на создание таблицы.

Добрый день.  
Нашел в форуме код. Не работает. Код прописываю в модуле вба эксель.  
Посмотрите, пожалуйста, что не так в коде?  
 
Option Explicit  
Dim objWord As Object  
Dim objDoc As Object  
 
Public Sub PD()  
Set objWord = CreateObject("Word.Application")  
Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\PD.docm")  
'Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\PD.doc") - так таже не работает  
 
objDoc.Save  
objDoc.Close  
objWord.Quit  
End Sub

Здравствуйте,  
 
вот так работает:  
 
For each Chart in Activesheet.Chartobjects  
Activesheet.Chartobjects(Chart.Name).Delete  
Next chart  
 
а так не работает:  
For each Chart in Activesheet.Chartobjects  
Activesheet.Chartobjects(Chart.Name).Select 'то же с Activate  
Next chart  
 
Сам фаил по объему большой - 122 Кб. Я удалил из него лишние данные, вроде бы не влияющие на данные для диаграммы и собственно на диаграмму (листы, формулы, числовые значения), чтобы уменьшить его размер - и все заработало.  
Никак не могу понять причину. Этот код на одном листе этого файла работает и активирует каждую диаграмму, а на другом листе не работает.  
 
Прошу Вашей помощи. Давно бьюсь. Спасибо

Добрый день.  
 
Подскажите, пожалуйста, как можно в таблице из 10 строк (крайний левый столбец содержит разные значения в каждой строке) и 5 столбцов (наименования столбцов в шапке таблицы различны) посредством функции извлечь данные ячейки, расположенные на пересечении одного из столбцов и одной из строк?  
 
Пользователь указывает наименование столбца (шапки в таблице) и крайнее левое значение одной из строк = релультат - это то, что находится на пересечении...  
 
Прилагаю пример.

Добрый день.  
В диаграмме в случае когда версия Excel 2007:  
необходимо программно установить    
Формат оси - Параметры оси  - Единица измерения интервала = 33  
 
Работа кода наглядно просматривается если открывать файл попеременно в версии Excel 2003 и 2007.  
 
Очень нужна помощь.  
Прикладываю файл - там всё.

В прилагаемом файле есть диаграмма.  
Открываю в 2003-м - диаграмма читаема как надо. 12 месяцев по оси Ох и график.  
Открываю в 2007-м - вид диаграммы меняется, ось Ох пишет подписи каждому значению, нечитаемо совершенно.  
Подскажите, пожалуйста, как быть, чтобы работало в любой версии.  
 
40 Кб

Здравствуйте.  
 
Подскажите, пожалуйста, как добавить в контекстное меню, выпадающее при правом клике на ярлычке листа, пункт "Выделить цветом", при нажатии на который ярлычок бы менял цвет... Или со списком нескольких цветов...  
 
Дело в том, что когда защищаешь книгу - возможность изменения цвета ярлычка становится недоступной.

Здравствуйте, уважаемые хозяева и гости форума!  
 
Подскажите, пожалуйста, от чего зависит режим открытия файла? Где какие галки проставить?  
 
Открываю файл на одном компе через 2007 Иксель - работаю свободно.  
Открываю на этой же машине через 2003 Иксель - работаю свободно.  
 
Открываю на Другой машине через 2007 Иксель - режим только чтение (при этом другими пользователями файл не открывался).  
Открываю на этой же (второй) машине через 2003 Иксель - все ок.  
 
Файл создавался на третьей сторонней машине третьим лицом.

Подскажите, пожалуйста, каким образом вырвать из текста В ячейке, например, третью строку.  
 
При нажатии клавиши Alt+Enter текст в ячейке переносится на новую строку. Строк может быть много, например, пять.  
 
Подскажите, плиз, как скопировать (вырвать) текст, находящийся между третьим и четвертым переносом?  
 
Темы про вырывание конкретных слов ниже прочитал, но описанную мною задачу решить не смог...

Работаю с книгой Excel.  
Периодически выскакивает само-собой окно VBA. Причем проверил наличие кодов в модулях, листах, книге - все чисто. Выскакивает (открывается окно) приблизительно каждые 10 минут. Причем я параллельно работаю через удаленный доступ к другому рабочему столу. Когда открываю удаленный доступ (активирую ранее открытый), окно VBA выскакивает всегда (при открытом том самом файле Excel). Я закрыл совсем удаленный доступ (отключился) - VBA выскакивает периодически, как я описал в начале.  
 
Если кто знает, подскажите, что это такое?

Привет всем!  
 
Подскажите, пожалуйста, есть ли в Excel настройка возможности "проваливаться" в ячейку по двойному клику на ней или это можно сделать лишь средствами ВБ?  
 
Проваливаться - после двойного клика на ячейке оказываться на том листе или на той ячейке, куда идет ссылка... Вне зависимости от того, открыта книга или закрыта...

Объясните, пожалуйста, чем отличаются Application Events назначенные через создание класса от Workbook Events, прописанных в обычном модуле? Например в случае, если WindowResize...  
 
Прописал событие через класс, а на дел то же самое...

Уважаемые форумчане!  
 
Подскажите, пожалуйста, можно ли при открытии книги убрать с Application кнопочку "Свернуть в окно", т.е. запретить пользователю сворачивать Окна Excel при работе с определенной книгой?

Здравствуйте!  
 
Прошу подсказки...  
 
На листе Excel можно разместить TextBox.  
Можно ли сделать так, чтобы при прокруте вниз и вверх по листу TextBox был зафиксирован у нижней части окна. Ну и например, чтобы в нем дублировалась содержимое выбранной на соседнем листе ячейки... (вторую часть смогу сделать сам... а вот с фиксацией объекта не к листу, а к окну - как-то не вижу пока решения...).

Здравствуйте,  
 
кто знает, напишите, пожалуйста, почему если скрываешь отдельные строки в таблице в файле 2007 икселя, то при копировании в чистый лист в отдельных случаях переносятся только нескрытые данные, а в других все, что заключены между первой и последней выделенными для копирования нескрытыми строками...  
 
с выкладкой файла проблема, так как файл на другом компе в другом месте, где нет инета...

Здравствуйте.  
 
Подскажите, пожалуйста, что это за глюк...  
 
пытаюсь в ячейку ввести номер расчетного счета (20 знаков), а Excel последние 5 знаков заменяет на нули.  
 
В чем причина? Как исправить? Я даже пытался свой формат создать, но безуспешно...

Я давно задаюсь этим вопросом, снова сейчас пересмотрел форум. Все ответы сводятся к Unload.  
 
Вопрос: можно ли посредством кода сделать terminate форме?  
 
Если мы делаем Unload, то форма сохраняется в памяти, ее просто не видно, но она есть, и отдельные значения ее элементов тоже...  
 
Если мы делаем terminate - форма удаляется из памяти и когда мы ее show, она рисуется заново.  
 
Так как сделать terminate форме через код?

Здравствуйте, форумчане!  
 
Подскажите, пожалуйста, как передрать элементы листбокса и если элемент выделен, то выдать, например, msgbox  
пробую так, не выходит...    
При условии, что:    
1. Me.ListBox1.MultiSelect = fmMultiSelectMulti  
2. Me.ListBox1.MultiSelect = fmMultiSelectSingle  
 
For n = 1 To Me.ListBox1.ListCount  
If Me.ListBox1.selected(n) = True Then  
 
msgbox n  
 
End If  
 
Next n

В форме создаются листбоксы.  
Ниже находится текстбокс.  
Когда нажимаю на строку листбокса его содержимое появляется в текстбоксе.  
 
Почему это происходит с первым листбоксом, а со вторым нет? Ведь они оба в классе.

Не пропускает такое выражение:  
 
Public y As String    
Public KS As Long  
 
KS=1  
 
y = Worksheets("Лист1").Range(E & ":" & KS + 9).Characters(1, 8).Text

Добрый день,  
Подскажите, пожалуйста:  
 
В книге Excel есть возможность создать файл на Excel на листе в виде значка.  
Нажимаем Вставка - Объект - Лист ... - В виде значка - Ок.  
 
Как вставить такой объект в форму? Чтобы он присутствовал в виде значка? Как обращаться к листам этого объекта (файла) посредством кода?

Подскажите, плиз, как удалить из формы объект, ранее созданный кодом?  
 
Delete не воспринимает... (Первый цикл кода)  
 
Вот код создания объектов:  
 
Option Explicit  
Public y As Object  
Public n As Long  
Public m As Variant  
Public PBX As PictureBox  
Public z As Object  
 
Sub Znachki()  
Dim x As Long  
Dim g As Long  
 
For Each y In Menu.Controls  
If TypeName(y) = "PictureBox" Then  
n = n + 1  
y.Delete  
End If  
Next y  
 
m = -240: n = 0: g = 1  
 
For Each z In Menu.TreeView1.Nodes  
   m = m + 240  
   If Menu.TreeView1.Nodes.Item(g).Children > 0 Then GoTo P1  
       n = n + 1  
       Set PBX = Menu.Controls.Add("VB.PictureBox", "PBX" & n)  
       With PBX  
           .Align = 0: .Appearance = 0: .AutoRedraw = False  
           .AutoSize = False: .BackColor = 16777215  
           .BorderStyle = 0: .Enabled = True  
           .TabIndex = 1: .Height = 255: .Left = 720: .Width = 255  
           .Top = m  
           .Picture = LoadPicture("C:\Anton\Programms\MVB\Проекты\Icons for AP\DBM1.gif")  
           .Visible = True: .ZOrder 0  
       End With  
P1: g = g + 1  
Next z  
 
End Sub

Подскажите, пожалуйста, как закрыть форму не крестиком, а другой кнопкой.  
 
Hide скрывает форму, а надо ее закрыть.

Помогите, пожалуйста. Месяц уже плохо сплю...  
 
Есть когд создания классов объектов.  
 
Как этим объектам назначить событие Click?

Здравствуйте.  
 
Подскажите, пожалуйста, есть ли элемент в VBA, достойно заменяющий ListBox.  
 
Дело в том, что листбокс не предоставляет пользователю возможности изменять значения в списке.  
 
Все листбоксы необходимо создавать кодом, а не рисовать предварительно в форме (так как их количество заранее неизвестно). Может кто знает макрос, назначающий событие элементу, создаваемому в коде?  
 
Или может есть элемент точ в точ лист бокс - но предоставляющий пользователю описанные выше возможности?  
 
Как вы выходите из подобной ситуации?