Question

EXCEL VBA 组合框值查询

如图。工作表中有A、B两列数据和一个Active 组合框。
希望实现的功能是在E列的组合框中选择一个货物名称，然后在D11单元格出现A列代码与B列名称的合并字符串。
比如：在列表框中选择“夹克衫”，在D11单元格中自动出现“服装-上衣 夹克衫”

已将B列的数据赋值给组合框了。

Answer 1

Private Sub ComboBox1_Change()
If Not Range("B:B").Find(ComboBox1.Text) Is Nothing Then '判断是否找到
Range("D11").Value = Range("B:B").Find(ComboBox1.Text).Offset(0, -1).Text '找到就赋值找的的单元格左边一个单元格的值给D11
Else
Range("D11").Value = "" '没有找的就清空D11
End If
End Sub

Answer 2

不用写VBA代码就可以达到你的要求
组合框设置格式：数据源： $B$2:$B$9 单元格链接 ：$F$11 显示数默认8
D11公式： =INDEX(A:A,F11+1)&" "&INDEX(B:B,F11+1)