On Error Resume Next - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго дня... В поле на форме вводится Имя листа При нажатии на кнопку вставляется лист с таким Именем. Можно ли как-нибудь обойтись без "

On Error Resume Next

"? Как в Combobox показать имена всех (или по условию) листов книги, что бы можно было потом к ним обращаться (удалять выбранные, переименовывать и т.д.)? Как в Combobox показать имена всех (или по условию) столбцов "умной таблицы", что бы можно было потом к ним обращаться (удалять выбранные, переименовывать и т.д.)? Спасибо

Решение задачи: «On Error Resume Next»

textual
Листинг программы
Private Sub UserForm_Activate()
Dim sh_m
ReDim sh_m(1 To Sheets.Count)
For Each sh In Sheets
   i = i + 1
   sh_m(i) = sh.Name
Next
ComboBox1.List = sh_m
End Sub
 
или так
 
Private Sub UserForm_Activate()
For Each sh In Sheets
  ComboBox1.AddItem sh.Name
Next
End Sub

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

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