Релиб / Программирование / VBA / как в ComboBox загрузить перечень листов книги / Latest Posts

RE: как в ComboBox загрузить перечень листов книги

lia — Tue, 24 Apr 2007 21:55:50 GMT

вот спасибо !!!
теперь таки получили что нужно было. форма может работать с любой книгой.

[code]
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name Like "*.*" Then
Me.ComboBox3.AddItem (Sheet.Name)
GoTo konec
End If
Me.ComboBox1.AddItem (Sheet.Name)
Me.ComboBox2.AddItem (Sheet.Name)
konec:
Next
[/code]

RE: как в ComboBox загрузить перечень листов книги

Pavel55 — Tue, 24 Apr 2007 10:29:34 GMT

Попробуйте

[code]If Sheet.Name Like "*.*" Then[/code]

RE: как в ComboBox загрузить перечень листов книги

lia — Tue, 24 Apr 2007 02:10:12 GMT

в книге 6 листов: Лист1(2, 3) и зак.апрель(май, июнь)
запустил макрос:
[code]
If Sheet.Name = "Лист1" Or Sheet.Name = "Лист2" Or Sheet.Name = "Лист3" Then
Me.ComboBox1.AddItem (Sheet.Name)
End If
[/code]
отработал хорошо

а вот такой вариант не хочет
[code]
If Sheet.Name = "*" & "." & "*" Then
Me.ComboBox3.AddItem (Sheet.Name)
End If
[/code]
почему?

RE: как в ComboBox загрузить перечень листов книги

lia — Mon, 23 Apr 2007 02:00:00 GMT

по первому вопросу. можно и так сильно не напрягает, так как листы по сути набираются в книгу сразу и редко дополняются. пару месяцев назад видил где считка шла по другому. точнее видил не сам макрос, а только результат. листы считывались: простое наименование - в один ComboBox, наименования зак.апрель, зак.май и т.д - в другой комбобокс. при этом что можно было добавить новый лист или взять старый и переименовать его в зак. ..., он считывался уже вторым ComboBox.

по второму вопросу. действительно вы правы, он пишится так же. но это наверное для тех кто пишет постоянно. у меня больше пока фантазии не хватило, остановился на For Each Book In ThisWorkbooks и For Each Book In Workbook и вокруг да около, а вот как то просто написать во множественном числе - не дотянул. ))

еще раз спасибо вам. за вчера и сегодня закончил то над чем неделю голову ломал.

RE: как в ComboBox загрузить перечень листов книги

Pavel55 — Mon, 23 Apr 2007 00:27:38 GMT

По вопросу №1

Можно попробывать что-то типо этого (если конечно листов не очень много)

[code]Private Sub UserForm_Initialize()
Dim Sheet As Object
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name = "Лист1" Or Sheet.Name = "Лист2" Or Sheet.Name = "Лист3" Then
'или наоборот If Sheet.Name <> (не равен) "Лист1" и т.д.
Me.ComboBox1.AddItem (Sheet.Name)
End If
Next
End Sub[/code]

По вопросу №2

[code]Private Sub UserForm_Initialize()
Dim WBook As Object
For Each WBook In Workbooks
Me.ComboBox1.AddItem (WBook.Name)
Next
End Sub[/code]

P.S. Как вы видите он не сильно отличается от кода, который заносит названия листов в ComboBox

RE: как в ComboBox загрузить перечень листов книги

lia — Sun, 22 Apr 2007 20:55:24 GMT

есть еще два вопроса:
1. как можно ограничить видимость в ComboBox листов. например что бы один видил одни, второй другие?
2. как в ComboBox мозно загрузить перечень всех открытых книг Excel?

RE: как в ComboBox загрузить перечень листов книги

lia — Sat, 21 Apr 2007 23:43:33 GMT

огромное спасибо.

RE: как в ComboBox загрузить перечень листов книги

Pavel55 — Sat, 21 Apr 2007 23:31:59 GMT

[code]Private Sub UserForm_Initialize()
Dim Sheet As Object
For Each Sheet In ActiveWorkbook.Sheets
Me.ComboBox1.AddItem (Sheet.Name)
Next
End Sub[/code]

как в ComboBox загрузить перечень листов книги

lia — Sat, 21 Apr 2007 17:08:18 GMT

как в ComboBox загрузить перечень названий листов рабочей книги Exel?

или диапазон допустим В5:В25, на определенном листе. учитывая то, что последняя строка может быть больше или меньше?