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