如何基于Excel中ComboBox1选中的文本执行对应VBA代码？

你需要绑定ComboBox的选中事件，将选中值传入原有逻辑替换占位符即可，操作如下：

步骤1：编写事件触发逻辑 #

进入对应工作表的代码编辑界面，找到ComboBox1的Change事件（选中ComboBox后右键→查看代码即可自动生成事件框架），写入以下代码：

Private Sub ComboBox1_Change()
    ' 只在有选中项时执行逻辑
    If ComboBox1.Value <> "" Then
        Call ProcessSelectedValue(ComboBox1.Value)
    End If
End Sub

步骤2：修改原有处理逻辑 #

将你现有的代码替换为下方带参数的版本，把原来的占位符anycombobox1text替换为传入的选中值：

Sub ProcessSelectedValue(selectedText As String)      
    Dim sh As Worksheet, lastRow As Long, arr, i As Long
    Dim lrw As Long, rng As Range
    
    Set sh = ActiveSheet
    ' 处理A列所有内容的转义逻辑
    lastRow = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
    arr = sh.Range("A1:A" & lastRow).Value
    For i = 1 To UBound(arr)
         arr(i, 1) = ReplaceString(arr(i, 1))
    Next i
    sh.Range("A1").Resize(UBound(arr), 1).Value = arr
    
    ' 匹配选中的内容，复制到B列对应行
    lrw = sh.Range("A1").End(xlDown).Row
    For Each rng In sh.Range("A1:A" & lrw)
        ' 如果你需要完全匹配选中内容，把下方InStr判断替换为：
        ' If LCase(rng.Value) = LCase(selectedText) Then
        If (InStr(1, LCase(rng), LCase(selectedText)) > 0) Then
            rng.Offset(0, 1) = rng
        End If
    Next
End Sub

Function ReplaceString(strVal) As String
    If Left(strVal, 8) = """""" Then
        ReplaceString = Split(strVal, ":")(0) & ": """"""
    Else
        ReplaceString = Split(strVal, ":")(0) & ": """""," 
    End If
End Function

注意事项 #

• 操作前需退出ComboBox的设计模式，选中内容即可自动触发执行
• 如果你的ComboBox是用户窗体控件，只需要把上述Change事件放到对应窗体的代码界面即可
• 若需要完全匹配选中的内容，可按照代码中的注释修改判断条件

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