ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное добавление Listbox
15 сообщений из 15, страница 1 из 1
Программное добавление Listbox
    #33977362
Фотография sebastian_opereiro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sebastian_opereiro
Участник
Есть форма UserForm1. Как с помощью макроса, в зависимости от условиий, добавлять определенное число ListBox'ов и OptionButton'ов (в зависимости от кол-ва открытых книг мне нужно в этой форме выводить список открытых книг и напротив каждого наименования книги - OptionButton)?
...
Рейтинг: 0 / 0
11.09.2006, 10:58:46
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33977430
архивариус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
архивариус
Участник
Когдато Ivan33 бросал такую приблуду...
...
Рейтинг: 0 / 0
11.09.2006, 11:19:33
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33977641
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Вот пример,
Код: plaintext
1.
Me.Controls.Add "Forms.OptionButton.1", "OptBut1", True
Здесь первый параметр это идентификатор контрола, на метод Add вызови хэлп там все расписано, а следующий параметр имя контрола, и последний параметр видимость или невидимость, метод возрващает ссылку на контрол, так что в последствии можешь уст. позиции и другие свойства контрола.
...
Рейтинг: 0 / 0
11.09.2006, 12:18:14
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33978202
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
АрхивариусКогдато Ivan33 бросал такую приблуду... интересно. чего-то такого не припомню. Опишите, может найду.
...
Рейтинг: 0 / 0
11.09.2006, 14:50:22
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33978357
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
http://www.bygsoftware.com/examples/zipfiles/ListBoxUse.zip
...
Рейтинг: 0 / 0
11.09.2006, 15:27:03
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33978493
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
АрхивариусКогдато Ivan33 бросал такую приблуду... только вспомнил как создать оглавление книги в двух вариантах: с помощью гиперрссылок и с помощью кнопок (опционально). вот такую приблуду кидал, помню, а остальное без комментариев на припомню.
...
Рейтинг: 0 / 0
11.09.2006, 16:00:53
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33978760
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
ну может быть вот это хрендыкс
...
Рейтинг: 0 / 0
11.09.2006, 17:02:39
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33980448
Фотография sebastian_opereiro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sebastian_opereiro
Участник
Возможно подобное будет сделать легче: есть форма, на ней ListBox. Открыто допустим 10 книг. Как, не используя цикл
автор
for i=1 to windows.count
...
next i
...
Рейтинг: 0 / 0
12.09.2006, 12:23:24
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33980458
Фотография sebastian_opereiro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sebastian_opereiro
Участник
вывести в ListBox список всех открытых книг? (кроме Personal.xls - но это в принципе можно убрать по условию)
...
Рейтинг: 0 / 0
12.09.2006, 12:24:52
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33981464
Фотография sebastian_opereiro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sebastian_opereiro
Участник
Нашел способ сам. Может кому пригодиться:
авторSub ShowWindows()
Dim w As Window
Dim s As String
For Each w In Application.Windows
s = s & w.Caption & vbCr
Next
MsgBox s
End Sub
...
Рейтинг: 0 / 0
12.09.2006, 16:08:00
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #33981518
Фотография sebastian_opereiro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sebastian_opereiro
Участник
Ну а вот c Listbox'ом
авторPrivate Sub UserForm_Initialize()
Dim w As Window
Dim s As String
For Each w In Application.Windows
If w.Caption <> "PERSONAL.XLS" Then
s = w.Caption
ListBox1.AddItem s
End If
Next
End Sub
...
Рейтинг: 0 / 0
12.09.2006, 16:20:27
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #34022765
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
...
Рейтинг: 0 / 0
29.09.2006, 15:59:09
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #34023724
Фотография A.K.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A.K.
Участник
sebastian_opereiroНашел способ сам. Может кому пригодиться:
авторSub ShowWindows()
Dim w As Window
Dim s As String
For Each w In Application.Windows
s = s & w.Caption & vbCr
Next
MsgBox s
End Sub


То есть for each... - это по вашему не цикл?
...
Рейтинг: 0 / 0
30.09.2006, 01:17:59
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #34028913
Фотография sebastian_opereiro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sebastian_opereiro
Участник
A.K. sebastian_opereiroНашел способ сам. Может кому пригодиться:
авторSub ShowWindows()
Dim w As Window
Dim s As String
For Each w In Application.Windows
s = s & w.Caption & vbCr
Next
MsgBox s
End Sub


То есть for each... - это по вашему не цикл?

Цикл, но без цикла у меня не получилось сделать. Хотя я подозреваю, что в ехеле где-то храниться список открытых книг, котрый можно вывести. (есть же допустим в меню Окно)....
...
Рейтинг: 0 / 0
03.10.2006, 14:51:53
| Ответить | Цитировать | Написать  
Программное добавление Listbox
    #34030290
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Без цикла:

Код: plaintext
1.
2.
3.
4.
5.
Private Sub UserForm_Initialize()
    With Names.Add("Окна", "=WINDOWS()")
        ListBox1.List = Evaluate(.Name)
        .Delete
    End With
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
04.10.2006, 02:20:45
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное добавление Listbox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33977430&tid=2184188]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 200ms
total:  300ms
созд. / загр.: 300ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]