VBA窗体：选择ComboBox选项后在TextBox显示对应马力值

工作表combobox中的数据结构如下：

Cars    power
BMW     550hp
Benz    400hp
Cupra   300hp
Seat    250hp
VW      450hp

以下是两种可行的实现方案，你可以根据实际场景选择：

方案一：使用Index+Match函数（推荐） #

Index+Match的组合不依赖固定行列偏移，即使后续调整数据列位置，代码依然能正常工作，适配动态命名区域的灵活性。

在用户窗体的代码模块中，添加ComboBox_cars的Change事件代码：

Private Sub ComboBox_cars_Change()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("combobox")
    
    ' 检查是否有选中项
    If Me.ComboBox_cars.ListIndex <> -1 Then
        ' 使用Index+Match查找对应马力
        Me.TextBox_power.Value = Application.Index(ws.Range("power"), _
            Application.Match(Me.ComboBox_cars.Value, ws.Range("Cars"), 0))
    Else
        ' 未选中时清空文本框
        Me.TextBox_power.Value = ""
    End If
End Sub

注：这里假设你已将汽车列命名为Cars，马力列命名为power，如果动态命名区域名称不同，替换成对应名称即可。

方案二：使用Offset函数 #

如果数据结构固定（Cars列始终在power列左侧相邻位置），可以用Offset实现更简洁的代码，但一旦列位置变动，代码会失效。

同样在ComboBox_cars的Change事件中添加代码：

Private Sub ComboBox_cars_Change()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("combobox")
    Dim matchRow As Variant
    
    If Me.ComboBox_cars.ListIndex <> -1 Then
        matchRow = Application.Match(Me.ComboBox_cars.Value, ws.Range("Cars"), 0)
        If Not IsError(matchRow) Then
            ' 偏移到右侧一列获取马力值
            Me.TextBox_power.Value = ws.Range("Cars").Offset(matchRow - 1, 1).Value
        Else
            Me.TextBox_power.Value = ""
        End If
    Else
        Me.TextBox_power.Value = ""
    End If
End Sub

两种方案对比 #

• Index+Match：适应性强，不怕数据列位置调整，是更稳健的选择，尤其适合动态命名区域的场景。
• Offset：代码更短，但依赖固定列位置，适合数据结构长期不变的情况。

内容的提问来源于stack exchange，提问作者Jimmy