Консультация № 77689
09.03.2007, 20:18
0.00 руб.
0 2 2
Здравтвуйте уважаемые эксперты, как создать список (в combobox в excel) имеющихся листов книги. Заранее спасибо!

Обсуждение

Неизвестный
09.03.2007, 20:42
общий
это ответ
Здравствуйте, Чалагаев И.Г!
На форму помещаем ComboBox (ComboBox1)
И заполняем его перебором всех листов книги:

Private Sub UserForm_Activate()
Dim WS As Object
For Each WS In Sheets ‘ это для всех листов
‘если нужны только рабочие листы, то
‘For Each WS In Worksheets
‘если только диаграммы:
‘For Each WS In Charts

ComboBox1.AddItem WS.Name
Next
End Sub

Неизвестный
09.03.2007, 20:56
общий
это ответ
Здравствуйте, Чалагаев И.Г!

Еще предлагаю такой способ:

<code>
Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
ComboBox1.AddItem (ActiveWorkbook.Sheets(i).Name)
Next
End Sub
</code>

Good Luck!!!
Форма ответа