Как отображать текст в текстовом поле в зависимости от выбора в выпадающем списке

Question

Я очень новичок в VBA.У меня есть два столбца:

Столбец 1 abc

Столбец 2 1 2 3

Таким образом, если я выбираю из поля со списком - я хотел текстовое поле, чтобы показать 1.

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

Если бы вы могли объяснить мне, это было бы здорово!

  Private Sub UserForm_Initialize()
 With Worksheets("Sheet1")
        ComboBox1.List = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
    End With

End Sub

Спасибо.

Answer 1

Один из способов - использовать VLOOKUP для значения в поле со списком и поместить этот код в событие изменения поля со списком, чтобы оно запускалось при каждом изменении.Или вы можете назначить его кнопке.

При необходимости изменить имена элементов управления.

Private Sub ComboBox1_Change()
    Me.TextBox1.Value = Application.VLookup(Me.ComboBox1.Value, Worksheets("Sheet1").Range("A1").CurrentRegion, 2, 0)
End Sub