Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Excel / 3 сообщений из 3, страница 1 из 1
16.11.2008, 17:45
    #35656584
ALex_hha
ALex_hha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Excel
Привет всем. Есть такой вопрос. На листе есть несколько combobox. Как сделать, чтобы при активации листа они заполнялись данными? Можно ли заполнить определенный combobox на этапе проектирования?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.11.2008, 08:33
    #35656978
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Excel
надо воспользоваться каким-нибудь одним из этих событий

допустим в ячейке 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
| Ответить | Цитировать | Написать  
20.11.2008, 19:15
    #35666615
sheff_26
sheff_26
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Excel
Помогите решить задачку, срочно надо!

В клетку А1 записать число, если количество положительных элементов массива больше количества отрицательных. В противном случае записать в клетку А1 любой текст.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Excel / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 371ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161597]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 78ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 228ms
total:  371ms
x
x
Закрыть


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