如何查找Excel中指定VBA procedure对应的工作表绑定按钮

Excel中的按钮、单选按钮分为表单控件和ActiveX控件两类，二者绑定VBA过程的逻辑不同，可通过以下两种方案实现反向查询：

方案1：VBA脚本批量查询（推荐） #

该脚本可自动遍历当前工作簿所有工作表的两类控件，匹配指定过程名，输出绑定控件的位置和名称，无需手动逐个排查：

1. 启用VBA项目访问权限：依次打开「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，勾选「信任对VBA工程对象模型的访问」，查询完成后可关闭该权限。
2. 按Alt+F11打开VBE编辑器，插入新的标准模块，粘贴以下代码并运行：

Sub 反向查询过程绑定的控件()
    Dim targetProcName As String
    Dim ws As Worksheet
    Dim shp As Shape
    Dim vbComp As Object
    Dim codeMod As Object
    Dim lineNum As Long
    
    ' 弹窗输入要查询的VBA过程名
    targetProcName = InputBox("请输入要查询的VBA过程名:")
    If targetProcName = "" Then Exit Sub
    
    Debug.Print "=== 过程 """ & targetProcName & """ 绑定的控件列表 ==="
    
    ' 遍历所有工作表的表单控件
    For Each ws In ThisWorkbook.Worksheets
        For Each shp In ws.Shapes
            If shp.Type = msoFormControl Then
                ' 仅匹配按钮、单选按钮两类控件
                If shp.FormControlType = xlButtonControl Or shp.FormControlType = xlOptionButton Then
                    ' 匹配过程名，自动忽略工作簿名前缀
                    If Replace(shp.OnAction, ThisWorkbook.Name & "!", "") = targetProcName Or _
                    Right(shp.OnAction, Len(targetProcName)) = targetProcName Then
                        Debug.Print "表单控件 | 工作表:" & ws.Name & " | 控件名:" & shp.Name
                    End If
                End If
            End If
        Next shp
    Next ws
    
    ' 遍历所有工作表的ActiveX控件事件
    For Each ws In ThisWorkbook.Worksheets
        Set vbComp = ThisWorkbook.VBProject.VBComponents(ws.CodeName)
        Set codeMod = vbComp.CodeModule
        lineNum = 1
        Do While lineNum < codeMod.CountOfLines
            If codeMod.ProcOfLine(lineNum, 0) = targetProcName Then
                ' 提取控件名：ActiveX事件过程格式为「控件名_事件名」
                Dim ctrlName As String
                On Error Resume Next
                ctrlName = Left(targetProcName, InStr(targetProcName, "_") - 1)
                If Not ws.Shapes(ctrlName) Is Nothing Then
                    Debug.Print "ActiveX控件 | 工作表:" & ws.Name & " | 控件名:" & ctrlName & " | 触发事件:" & Mid(targetProcName, InStr(targetProcName, "_") + 1)
                End If
                On Error GoTo 0
                Exit Do
            End If
            lineNum = lineNum + 1
        Loop
    Next ws
    
    MsgBox "查询完成，按Ctrl+G打开VBE立即窗口查看结果"
End Sub

3. 在弹窗中输入你要查询的过程名，查询结果会输出到VBE的立即窗口中。

方案2：手动查询（适合少量过程验证） #

• 表单控件验证：按Alt+F8打开宏列表，选中目标过程后点击「执行」，如果绑定了表单控件，点击后会触发对应过程的运行；也可以在VBE中按Ctrl+F，查找范围选择「当前项目」，搜索目标过程名，即可找到所有给控件OnAction属性赋值为该过程的代码记录。
• ActiveX控件验证：ActiveX控件的事件过程名固定为[控件名]_[事件名]格式，比如OptionButton1_Click对应的就是当前工作表下名为OptionButton1的单选按钮的点击事件，直接匹配过程名前缀即可得到对应控件。

注意事项 #

• 若查询的是标准模块下的公共过程，表单控件的OnAction属性会自动带工作簿、模块前缀，脚本已自动兼容该场景，手动查询时注意过滤前缀。
• 清理冗余代码前务必备份原文件，避免误删被隐藏控件、其他模块调用的过程。

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