Страница: 1 |
Страница: 1 |
Вопрос: ComboBox
Добавлено: 31.01.08 15:19
Автор вопроса: Таня | ICQ: 410031407
Подскажите пожалуйста!
Как вывести поле со списком всех листов в рабочей книге используя ComboBox
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа:
mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #1
Добавлено: 31.01.08 20:54
В цикле его заполнить
Sub FillCombo()
Dim s As Worksheet
ThisWorkbook.Worksheets(1).ComboBox1.Clear
For Each s In ThisWorkbook.Worksheets
ThisWorkbook.Worksheets(1).ComboBox1.AddItem s.Name
Next s
End Sub
Здесь ComboBox1 лежит на первом по счёту листе