Question

我是VBA的新手。我有两列：

第1栏一种 b c

第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并将此代码放入组合框change事件中，以使其在更改时立即运行。或者，您可以将其分配给按钮。

根据需要修改控件名称。

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

如何根据组合框选择在文本框上显示文本

1 个答案: