VBA Вроде простой Combobox, а не работает

@kap677 · Регистрация: 07.01.2017

Студворк — интернет-сервис помощи студентам

Всем привет!

Ребята, посмотрите, пожалуйста, этот файл.
Я только в процессе изучения VBA, дошел до Combobox.
Вот вроде простой пример, а почему-то не работает.
Может, я код не там разместил? Если не там, то в какой части нужно? Как его исправить?

Сам код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub UserForm_load()
 
Dim oColumn As Range
Dim oCell As Range
 
Set oColumn = Worksheets("Опции").Range("B2:B20")
For Each oCell In oColumn.Cells
If oCell.Value <> "" Then
UserForm1.ComboBox1.AddItem oCell.Value
End If
Next
UserForm1.ComboBox1.ListIndex = 0
 
End Sub
 
Private Sub CommandButton1_Click()
Worksheets("Главный").Cells(1, 1).Value = UserForm1.ComboBox1.ListIndex
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Файл - во вложении

@pashulka · 07.01.2017, 18:06

У VBA формы нет события Load, однако наличествуют Initialize и Activate

Visual Basic
1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    Dim iCell As Range
    For Each iCell In [Опции!B2:B20] 'Worksheets("Опции").Range("B2:B20")
        If Not IsEmpty(iCell) Then ComboBox1.AddItem iCell.Text
    Next
    If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

P.S. Если заполнять ComboBox1 действительно необходимо только числами, то Not IsEmpty(iCell) имеет смысл заменить на IsNumeric(iCell) и далее уже не будет 'необходимости' в использовании свойства .Text

@kap677 · 07.01.2017, 20:09 **[ТС]**

Заработало!
Огромное спасибо!

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@kap677 0 / 0 / 0 Регистрация: 07.01.2017 Сообщений: 4
	07.01.2017, 20:09 [ТС]
	Заработало! Огромное спасибо! 0