Excel工作表Command Button点击后获取按钮名称的VBA实现咨询

方案1：类模块绑定事件（适配动态新增按钮场景） #

这是无需单独编写每个按钮点击事件的最优方案，适配按钮动态增减的需求：

• 第一步：插入类模块
  按Alt+F11打开VBA编辑器，右键点击当前工作簿名称→插入→类模块，在属性窗口将类模块名称修改为clsBtnEvent。
• 第二步：编写类模块代码
  将以下代码粘贴到clsBtnEvent类模块中：

  Public WithEvents btn As MSForms.CommandButton
  Public selID As Long ' 存储解析得到的ID，可设为公共变量供其他过程调用
  
  Private Sub btn_Click()
      ' 按命名规则解析ID，适配Button_ID+数字的命名格式
      selID = Val(Split(btn.Name, "Button_ID")(1))
      ' 此处可直接调用后续计算过程，例：Call 你的计算过程名(selID)
      MsgBox "当前选中ID为：" & selID ' 测试用代码，正式使用可删除
  End Sub
  

• 第三步：编写工作表初始化代码
  双击存放按钮的工作表名称，在对应的代码模块中粘贴以下内容：

  Dim btnCol As New Collection ' 全局存储按钮类实例，避免事件绑定被自动释放
  
  Sub InitAllButtons()
      Dim oleObj As OLEObject
      Dim btnEvent As clsBtnEvent
      
      ' 清空旧的绑定记录
      Set btnCol = New Collection
      
      ' 遍历工作表所有ActiveX控件
      For Each oleObj In Me.OLEObjects
          ' 仅匹配符合命名规则的命令按钮
          If TypeName(oleObj.Object) = "CommandButton" And _
              oleObj.Name Like "Button_ID*" Then
              Set btnEvent = New clsBtnEvent
              Set btnEvent.btn = oleObj.Object
              btnCol.Add btnEvent
          End If
      Next oleObj
  End Sub
  

• 第四步：触发事件绑定
  可以在工作簿Open事件中调用InitAllButtons，也可以在每次新增按钮后手动运行一次InitAllButtons过程，所有符合规则的按钮都会自动绑定点击事件，无需单独编写代码。

方案2：表单控件按钮替代方案（操作更简便） #

如果可以把ActiveX命令按钮替换为表单控件按钮，无需使用类模块即可实现需求：

• 所有表单控件按钮指定同一个公用宏，宏代码如下：

  Sub CommonBtnClick()
      Dim btnName As String
      Dim selID As Long
      
      btnName = Application.Caller ' 获取被点击的按钮名称
      selID = Val(Split(btnName, "Button_ID")(1))
      ' 此处添加后续计算逻辑
      MsgBox "当前选中ID为：" & selID
  End Sub
  

• 动态新增表单控件按钮时，只需通过代码指定.OnAction = "CommonBtnClick"即可，无需新增任何事件代码。

注意事项 #

• 使用ActiveX控件方案时，每次新增按钮后重新运行一次InitAllButtons即可完成新按钮的事件绑定
• 按钮命名需要严格遵循Button_ID+数字的规则，避免ID解析出错
• 解析得到的selID可声明为公共模块的全局变量，供其他业务过程直接调用

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