Вы не можете многое сделать с элементами управления, находящимися в окне «Формы», если не привязываете их к ячейкам на листе.
Для окна FORMS.Listbox вам нужно будет щелкнуть правой кнопкой мыши и выбрать «Управление форматом ... ", затем
- укажите многострочный диапазон, содержащий элементы выбора (Диапазон ввода)
- , укажите диапазон из одной ячейки, содержащий выбранный элемент (ссылка на ячейку))
Затем вы должны снова щелкнуть правой кнопкой мыши и
- «Назначить макрос ...», который оценивает значение ссылки на ячейку и действует соответствующим образом (
Sub ListBox1_Change()
)
Обратите внимание, что ссылка Ячейка отображает индекс выбранной опции, а не значение
Пример:
A1 contains "Red"
A2 contains "Green"
A3 contains "Blue"
Forms / Listbox1 / Input Range = $A$1..$A$3
Forms / Listbox1 / Linked Cell = $B$1
Sub ListBox1_Change()
Select Case [B1]
Case 1:
MsgBox "Gimme RED"
Case 2:
MsgBox "Gimme GREEN"
Case 3:
MsgBox "Gimme BLUE"
Case Else:
MsgBox "unknown case"
End Select
End Sub
Надеюсь, чтопомогает