Как иметь несколько раскрывающихся списков на одном листе, с одним из параметров, связанных с пользовательской формой?

Question

Я работаю над небольшим проектом, и я столкнулся с проблемой. Мне нужно вставить несколько раскрывающихся списков на одном листе, и после выбора параметра он должен появиться в ячейке. Также, если была выбрана конкретная опция, должна появиться пользовательская форма.

Как я могу сделать это? Я пробовал раскрывающийся список проверки данных, но не могу использовать его для нескольких ячеек.

Джук, спасибо, но предоставленный код не работает. Я создал поле со списком, используя Developer, range (L2:L5) и ссылку на ячейку L1. Значения НЕТ, ДА, ДРУГОЕ, ВВОД ДАННЫХ. Код, который я использовал, был следующим в VBA на листе 1: Private Sub ComboBox1_Change () OnCboChange (ComboBox1) End Sub Private Sub OnCboChange (по ссылке cboBox As ComboBox) Если cboBox.value = "OTHER", то Userform1.Показать Если cboBox.value = "ENTER DATA", то Userform2.Show End If End Sub

Я не уверен, что сделал что-то не так, но код не читает приведенный выше код, и я не знаю, как связать этот код со списком. Какие-либо предложения?

Answer 1

Чтобы поместить поле со списком на свой рабочий лист, используйте вкладку разработчика и вставьте один, где вам нравится. Для получения дополнительной информации используйте Google или MS-Help, потому что это широко скрытно.

Используя свойства вашего поля со списком (щелкните правой кнопкой мыши), вы можете ListFillRange , например, A1:A20 .

В контекстном меню вы также можете выбрать "просмотреть код", где вы будете перенаправлены в раздел, например:

Private Sub ComboBox1_Change()
    'use this code for all your cbo-boxes, if it is the same for all
    OnCboChange(ComboBox1)
End Sub

Private Sub OnCboChange(ByRef cboBox As ComboBox)
    'check if a specific selection was made
    'If cboBox.value = "myValue" then
    If cboBox.ListIndex = 3 Then
      'specify what to do now
      MyUserForm.Show
    End If
End Sub