解决控件按钮关联宏跳转至错误工作表的问题

问题根源 #

• 你提到的Application.Goto Reference:="FirstTime"是核心问题："FirstTime"是工作簿级的命名单元格/区域，它的引用位置应该是第一个工作表的某个单元格，所以不管你在哪个工作表点击按钮，这个语句都会强制跳转到该命名区域所在的第一个工作表。
• 直接修改或删除这个语句会报错，是因为后续代码依赖它定位的起始位置，一旦起始位置不对，Offset(0, -1)这类操作会因为单元格越界（比如当前单元格在A列，往左偏移就超出工作表范围）触发1004错误。

解决方案 #

方案1：给每个工作表创建专属的"FirstTime"区域（推荐） #

1. 按Ctrl+F3打开「名称管理器」，找到现有的"FirstTime"，删除它（因为它是工作簿级的，指向第一个工作表）。
2. 切换到第一个工作表，选中你需要作为宏起始位置的单元格（就是原"FirstTime"指向的那个单元格），在Excel顶部公式栏左侧的名称框输入FirstTime，按回车。此时这个命名是工作表级的，只会作用于当前工作表。
3. 对其他每个工作表重复步骤2，选中各自的宏起始单元格，命名为FirstTime。
4. 修改宏代码中的跳转语句：

   ' 替换原有的Application.Goto语句
   Application.Goto Reference:=ActiveSheet.Range("FirstTime")
   

   这样点击按钮时，宏会定位到当前按钮所在工作表的"FirstTime"区域，不会跳转到其他表。

方案2：直接指定固定起始单元格（无需命名区域） #

如果你不想用命名区域，直接把起始位置固定为每个工作表的某个单元格（比如原"FirstTime"对应的位置，假设是A2），替换原跳转语句：

' 替换原有的Application.Goto语句，把A2改成你实际的起始单元格
ActiveSheet.Range("A2").Select

优化后的稳定版代码（推荐新手使用） #

原代码大量使用Select和ActiveCell，容易因为用户操作或工作表切换出问题，改成以下不依赖激活单元格的版本，更稳定：

Sub Break()
    Dim ws As Worksheet
    Dim startCell As Range
    Dim currentCell As Range
    
    ' 锁定按钮所在的工作表，避免跳转
    Set ws = ActiveSheet
    ' 获取当前工作表的起始区域，也可以改成ws.Range("A2")这类固定单元格
    Set startCell = ws.Range("FirstTime")
    
    ' 从起始单元格往下找第一个空单元格
    Set currentCell = startCell
    Do Until currentCell.Value = ""
        Set currentCell = currentCell.Offset(1, 0)
    Loop
    
    ' 执行录入逻辑
    If currentCell.Offset(0, -1).Value = "" Then
        currentCell.Offset(0, -4).Value = InputBox("Enter client engagement")
        currentCell.Offset(0, 3).Value = Now()
    Else
        currentCell.Value = Now()
        currentCell.Offset(0, -2).Value = InputBox("Work performed/tasks completed")
    End If
    
    ' 可选：回到A1，保留原代码的习惯
    ws.Range("A1").Select
End Sub

补充说明 #

• 你可以通过Ctrl+F3打开名称管理器，查看原有"FirstTime"的具体引用位置，确认每个工作表需要设置的起始单元格。
• 优化后的代码用变量ws绑定当前工作表，所有操作都基于这个变量，彻底避免跨工作表跳转的问题。

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