Обновление данных "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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы