Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное добавление Listbox / 15 сообщений из 15, страница 1 из 1
11.09.2006, 10:58:46
    #33977362
sebastian_opereiro
sebastian_opereiro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
Есть форма UserForm1. Как с помощью макроса, в зависимости от условиий, добавлять определенное число ListBox'ов и OptionButton'ов (в зависимости от кол-ва открытых книг мне нужно в этой форме выводить список открытых книг и напротив каждого наименования книги - OptionButton)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2006, 11:19:33
    #33977430
архивариус
архивариус
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
Когдато Ivan33 бросал такую приблуду...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2006, 12:18:14
    #33977641
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
Вот пример,
Код: plaintext
1.
Me.Controls.Add "Forms.OptionButton.1", "OptBut1", True
Здесь первый параметр это идентификатор контрола, на метод Add вызови хэлп там все расписано, а следующий параметр имя контрола, и последний параметр видимость или невидимость, метод возрващает ссылку на контрол, так что в последствии можешь уст. позиции и другие свойства контрола.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2006, 14:50:22
    #33978202
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
АрхивариусКогдато Ivan33 бросал такую приблуду... интересно. чего-то такого не припомню. Опишите, может найду.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2006, 15:27:03
    #33978357
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
http://www.bygsoftware.com/examples/zipfiles/ListBoxUse.zip
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2006, 16:00:53
    #33978493
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
АрхивариусКогдато Ivan33 бросал такую приблуду... только вспомнил как создать оглавление книги в двух вариантах: с помощью гиперрссылок и с помощью кнопок (опционально). вот такую приблуду кидал, помню, а остальное без комментариев на припомню.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2006, 17:02:39
    #33978760
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
ну может быть вот это хрендыкс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2006, 12:23:24
    #33980448
sebastian_opereiro
sebastian_opereiro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
Возможно подобное будет сделать легче: есть форма, на ней ListBox. Открыто допустим 10 книг. Как, не используя цикл
автор
for i=1 to windows.count
...
next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2006, 12:24:52
    #33980458
sebastian_opereiro
sebastian_opereiro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
вывести в ListBox список всех открытых книг? (кроме Personal.xls - но это в принципе можно убрать по условию)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2006, 16:08:00
    #33981464
sebastian_opereiro
sebastian_opereiro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
Нашел способ сам. Может кому пригодиться:
автор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:20:27
    #33981518
sebastian_opereiro
sebastian_opereiro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
Ну а вот 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
| Ответить | Цитировать | Написать  
29.09.2006, 15:59:09
    #34022765
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2006, 01:17:59
    #34023724
A.K.
A.K.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
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
    #34028913
sebastian_opereiro
sebastian_opereiro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
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
| Ответить | Цитировать | Написать  
04.10.2006, 02:20:45
    #34030290
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное добавление Listbox
Без цикла:

Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программное добавление Listbox / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 405ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184188]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 74ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 240ms
total:  405ms
x
x
Закрыть


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