基于下拉列表选择切换Excel活动工作表并定位指定单元格的实现问题

嘿，我看你是想在「Home」工作表的下拉列表选完选项后，自动跳转到对应Sheet并选中指定单元格对吧？你之前用Worksheet_Activate事件的思路有点偏差——这个事件是当Home工作表被激活时才会触发，而我们需要的是下拉列表所在单元格的值发生变化时触发操作，所以得换成Worksheet_Change事件才行。

我给你整理了完整的可运行代码，还加了错误处理避免报错：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 限定只监控C6单元格（也就是你说的Cells(6,3)）的变化
    If Not Intersect(Target, Me.Range("C6")) Is Nothing Then
        ' 关闭事件触发，防止跳转后再次触发Change事件导致循环
        Application.EnableEvents = False
        
        On Error GoTo ErrorHandler ' 捕获错误，比如Sheet不存在的情况
        
        Dim targetSheetName As String
        targetSheetName = Target.Value
        
        ' 判断目标Sheet是否存在
        If SheetExists(targetSheetName) Then
            ' 激活目标Sheet
            Sheets(targetSheetName).Activate
            ' 选中指定单元格，这里示例选A1，你可以改成自己需要的单元格，比如Range("B5")
            Sheets(targetSheetName).Range("A1").Select
        Else
            MsgBox "名为「" & targetSheetName & "」的工作表不存在！", vbExclamation
        End If
        
    End If
    
ExitSub:
    Application.EnableEvents = True ' 恢复事件触发
    Exit Sub
    
ErrorHandler:
    MsgBox "操作出错：" & Err.Description, vbCritical
    Resume ExitSub
End Sub

' 辅助函数：检查指定名称的Sheet是否存在
Private Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0
    SheetExists = Not ws Is Nothing
End Function

代码说明： #

• Worksheet_Change事件会在当前工作表（也就是Home）的任何单元格值变化时触发，我们用Intersect限定只处理C6单元格的变化
• Application.EnableEvents = False是为了防止激活目标Sheet后再次触发事件，造成循环
• 加入了SheetExists辅助函数，避免输入不存在的Sheet名称时程序崩溃
• 你可以把Range("A1")改成你需要选中的指定单元格位置

操作步骤： #

1. 打开你的Excel文件，右键点击「Home」工作表的标签，选择「查看代码」
2. 将上面的代码粘贴到弹出的VBA编辑器窗口中
3. 保存文件（注意要保存为「启用宏的工作簿」格式，后缀是.xlsm）

这样之后，你在Home表的C6下拉列表选择选项，就能自动跳转到对应Sheet并选中指定单元格啦～

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