Отвечает: Alec Perle
Здравствуйте, Чалагаев И.Г!
На форму помещаем 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
--------- Пессимист - это хорошо информированный оптимист (а оптимист - хорошо проинструктированный пессимист)
Ответ отправил: Alec Perle (статус: 5-ый класс)
Ответ отправлен: 09.03.2007, 20:42 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ ты первый ответил поэтому 5!
Отвечает: Gh0stik
Здравствуйте, Чалагаев И.Г!
Еще предлагаю такой способ:
Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
ComboBox1.AddItem (ActiveWorkbook.Sheets(i).Name)
Next
End Sub
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 09.03.2007, 20:56 Оценка за ответ: 4 Комментарий оценки: Спасибо большое Gh0stik! Теперь нет никаких проблем!