Обновление данных "ComboBox1" - VBA
Формулировка задачи:
Здравствуйте.
Подскажите как сделать, чтобы обновились данные в "ComboBox1" при создании закладки путем:
Приложение:
форма UserForm9
Решение задачи: «Обновление данных "ComboBox1"»
textual
Листинг программы
Private Sub ComboBox1_DropButtonClick() With ComboBox1 .Clear Dim objBM As Word.Bookmark For Each objBM In ActiveDocument.Bookmarks .AddItem objBM.Name .List(.ListCount - 1, 1) = objBM.Range.Text Next End With End Sub Private Sub CommandButton1_Click() If Not TextBox1.Text Like "[A-zА-я]*" Then Exit Sub With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:=TextBox1.Text .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub Private Sub UserForm_Initialize() ComboBox1.ColumnCount = 2 'Изменить значение этого свойства можно вручную End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д