求助：VBA代码无法跳转至对应工作表D5单元格的问题

我有一个包含4个工作表（Comparison、Office1、Office2、Office3）的工作簿：

• Comparison工作表的A列列出了其他工作表的名称
• B列设有按钮，已经实现双击触发代码的功能

我希望双击按钮时，能跳转至对应工作表的D5单元格，但目前使用的VBA代码并没有激活目标Office类工作表，始终停留在Comparison表，请问我遗漏了什么？

当前使用的VBA代码： #

Sub OfficeSht() 
    Dim rCrit3 As Range 
    Dim wb As Workbook 
    Dim ws As Worksheet 
    With Application 
        .EnableEvents = False 
        .ScreenUpdating = False 
    End With 
    Set rCrit3 = ActiveCell.Offset(RowOffset:=0, ColumnOffset:=-2) 
    Debug.Print rCrit3 
    Set ws = rCrit3.Worksheet 
    ws.Activate 
    ActiveSheet.Range("D5").Select 
    Application.EnableEvents = True 
End Sub 

你的问题核心出在获取目标工作表的逻辑错误，我帮你拆解并修正：

• 你现在用Set ws = rCrit3.Worksheet，这其实是把ws指向了当前的Comparison工作表（因为rCrit3是Comparison表上的单元格），而不是A列里对应的Office工作表。
• 另外ActiveCell.Offset(0, -2)存在列偏移错误：按钮在B列的话，偏移-2列会指向不存在的第0列，应该偏移-1列才能取到同 row 的A列工作表名称。

修正后的代码（标注关键修改点）： #

Sub OfficeSht() 
    Dim targetSheetName As String
    Dim ws As Worksheet 
    With Application 
        .EnableEvents = False 
        .ScreenUpdating = False 
    End With 

    ' 1. 修正列偏移：按钮在B列，取同 row 的A列工作表名称
    targetSheetName = ActiveCell.Offset(RowOffset:=0, ColumnOffset:=-1).Value
    Debug.Print "目标工作表：" & targetSheetName

    ' 2. 根据名称从当前工作簿中获取目标工作表
    Set ws = ThisWorkbook.Worksheets(targetSheetName)
    
    ' 3. 激活目标表并选中D5（直接用ws引用，避免依赖ActiveSheet的不确定性）
    ws.Activate
    ws.Range("D5").Select

    ' 补充：恢复屏幕更新，原代码漏了这一步
    With Application 
        .EnableEvents = True 
        .ScreenUpdating = True 
    End With
End Sub 

额外优化建议： #

• 增加错误处理，防止A列名称输入错误导致崩溃：

  On Error Resume Next
  Set ws = ThisWorkbook.Worksheets(targetSheetName)
  On Error GoTo 0
  If ws Is Nothing Then
      MsgBox "未找到名为 " & targetSheetName & " 的工作表！", vbExclamation
      With Application 
          .EnableEvents = True 
          .ScreenUpdating = True 
      End With
      Exit Sub
  End If
  

• 避免依赖ActiveCell，用按钮自身的位置获取更可靠（适用于表单控件按钮）：

  targetSheetName = Me.Shapes(Application.Caller).TopLeftCell.Offset(0, -1).Value
  

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