ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Excel
3 сообщений из 3, страница 1 из 1
VBA и Excel
    #35656584
ALex_hha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ALex_hha
Участник
Привет всем. Есть такой вопрос. На листе есть несколько combobox. Как сделать, чтобы при активации листа они заполнялись данными? Можно ли заполнить определенный combobox на этапе проектирования?
...
Рейтинг: 0 / 0
16.11.2008, 17:45
| Ответить | Цитировать | Написать  
VBA и Excel
    #35656978
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
надо воспользоваться каким-нибудь одним из этих событий

допустим в ячейке A1 должен быть выпадающий список
список1, например, создан ручками в меню "Вставка" -> "Имя" -> "Присвоить"

в модуле "Лист1" это событие сработает в первую очередь
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Worksheet_Activate()

    myFormula = "=список1"

    With Range("A1").Validation
         On Error Resume Next
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=myFormula
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

End Sub

в модуле "ЭтаКнига" сработает во вторую очередь
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    myFormula = "=список1"

    With Sh.Range("A1").Validation
         On Error Resume Next
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=myFormula
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub
...
Рейтинг: 0 / 0
17.11.2008, 08:33
| Ответить | Цитировать | Написать  
VBA и Excel
    #35666615
sheff_26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sheff_26
Гость
Помогите решить задачку, срочно надо!

В клетку А1 записать число, если количество положительных элементов массива больше количества отрицательных. В противном случае записать в клетку А1 любой текст.
...
Рейтинг: 0 / 0
20.11.2008, 19:15
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35656584&tid=2161597]:
 0ms
get settings:
 10ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 51ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 246ms
total:  367ms
созд. / загр.: 367ms
x
x
Закрыть


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