Excel VBA求助：ComboBox选中品牌后定位滚动至对应单元格

直接获取ComboBox选中值的简化方案 #

不需要通过Sheet2的单元格链接中转，直接读取ComboBox的选中值即可，分两种控件类型处理：

情况1：ActiveX类型的ComboBox

如果你的ComboBox是ActiveX控件（开发工具→插入→ActiveX控件中的ComboBox），使用以下代码：

Sub ScrollToBrand_ActiveX()
    Dim targetBrand As String
    Dim foundCell As Range
    Dim searchRange As Range
    
    ' 获取Sheet1上ActiveX ComboBox的选中值（控件名称可在属性窗口修改，此处假设为ComboBox1）
    targetBrand = Sheet1.ComboBox1.Value
    
    ' 检查是否选中内容
    If targetBrand = "" Then
        MsgBox "请先选择一个品牌！", vbExclamation
        Exit Sub
    End If
    
    ' 设置搜索范围为Sheet1的B列
    Set searchRange = Sheet1.Columns("B:B")
    
    ' 在B列查找完全匹配的品牌
    Set foundCell = searchRange.Find(What:=targetBrand, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    
    ' 找到则滚动到目标单元格
    If Not foundCell Is Nothing Then
        Application.Goto foundCell, True ' True表示让单元格在窗口居中显示
    Else
        MsgBox "未找到品牌：" & targetBrand, vbInformation
    End If
End Sub

情况2：表单控件的ComboBox

如果是表单控件的ComboBox（开发工具→插入→表单控件中的组合框），使用以下代码：

Sub ScrollToBrand_FormControl()
    Dim targetBrand As String
    Dim foundCell As Range
    Dim searchRange As Range
    Dim comboBox As Object
    
    ' 获取Sheet1上的表单ComboBox（控件名称可在名称框查看，此处假设为Drop Down 1）
    Set comboBox = Sheet1.Shapes("Drop Down 1").OLEFormat.Object
    
    ' 检查是否选中内容
    If comboBox.ListIndex = -1 Then
        MsgBox "请先选择一个品牌！", vbExclamation
        Exit Sub
    End If
    ' 获取选中的品牌文本
    targetBrand = comboBox.List(comboBox.ListIndex)
    
    ' 设置搜索范围
    Set searchRange = Sheet1.Columns("B:B")
    
    ' 查找目标品牌
    Set foundCell = searchRange.Find(What:=targetBrand, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    
    ' 滚动到目标单元格
    If Not foundCell Is Nothing Then
        Application.Goto foundCell, True
    Else
        MsgBox "未找到品牌：" & targetBrand, vbInformation
    End If
End Sub

原代码的问题分析 #

1. 中转逻辑冗余：没必要通过Sheet2的单元格链接获取品牌，直接读取ComboBox值更高效，也避免了中转环节的错误。
2. VLookup参数错误：表单控件的单元格链接返回的是选项索引（比如选第一个选项返回1），若你的Sheet2是A列存索引、B列存品牌，VLookup应该返回第2列而非第1列，这会导致brand变量拿到的是索引值而非品牌名称，自然无法匹配到目标单元格。

额外优化建议 #

• 给控件设置清晰名称：在属性窗口（ActiveX控件）或名称框（表单控件）修改控件名称，方便代码引用。
• 绑定自动触发事件：对于ActiveX控件，可在Sheet1的代码窗口（右键Sheet1标签→查看代码）中添加Change事件，选中品牌时自动执行滚动：

  Private Sub ComboBox1_Change()
      ScrollToBrand_ActiveX
  End Sub
  

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