Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 487
от 14.03.2007, 20:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 245, Экспертов: 28
В номере:Вопросов: 1, Ответов: 2


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

Вопрос № 77.689
Здравтвуйте уважаемые эксперты, как создать список (в combobox в excel) имеющихся листов книги. Заранее спасибо!
Отправлен: 09.03.2007, 20:18
Вопрос задал: Чалагаев И.Г (статус: 1-ый класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 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! Теперь нет никаких проблем!


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.45 beta от 20.02.2007
Яндекс Rambler's Top100

В избранное