如何将按钮名称作为参数传入VBA子程序以访问对应工作表？

核心解决方案 #

用单一通用子程序替代45个重复的GoTo/Exit子程序，通过按钮名称与目标工作表同名的规则，传递参数实现统一跳转逻辑。

通用跳转代码 #

打开VBA编辑器（Alt+F11），在标准模块中插入以下代码：

Sub NavigateToSheet(targetSheetName As String)
    Dim ws As Worksheet
    Const HOME_SHEET As String = "HomePage" ' 首页工作表名称，按需修改
    
    ' 遍历所有工作表，设置可见性
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = targetSheetName Then
            ws.Visible = xlSheetVisible
        Else
            ws.Visible = xlSheetVeryHidden
        End If
    Next ws
    
    ' 激活目标工作表
    ThisWorkbook.Worksheets(targetSheetName).Activate
End Sub

按钮配置步骤 #

1. 首页按钮（跳转子页面）

   • 给每个按钮命名为对应子工作表的名称（比如对应PageName1工作表的按钮就命名为PageName1）
   • 右键按钮 → 「指定宏」，选择NavigateToSheet，在参数输入框中填写按钮名称（即目标工作表名）

2. 子页面返回按钮

   • 将返回按钮命名为HomePage
   • 右键按钮 → 「指定宏」，选择NavigateToSheet，参数输入HomePage

额外说明 #

• 若使用ActiveX控件按钮，可直接在按钮的Click事件中调用子程序，无需手动输入参数：

  ' 子页面返回按钮的Click事件示例
  Sub CommandButton1_Click()
      NavigateToSheet "HomePage"
  End Sub
  
  ' 首页按钮的Click事件示例（假设按钮对应PageName1）
  Sub CommandButton2_Click()
      NavigateToSheet "PageName1"
  End Sub
  

• 确保工作表名称与按钮名称完全匹配，避免因拼写错误导致跳转失败
• 后续新增页面时，只需添加新工作表、创建对应按钮并绑定NavigateToSheet即可，无需编写新的子程序

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