选择工作表时转到特定单元格

Question

我想在选择工作表时转到特定单元格

Private Sub Worksheet_Cellselection()
ActiveSheet Goto:="D5"
End Sub

那个不起作用

Answer 1

您需要使用相关工作表的Worksheet_Activate事件：

Private Sub Worksheet_Activate()

Range("D5").Select

End Sub

要用于工作簿中的多个工作表，请将代码移至Workbook_SheetActivate evenrt（Workbook级别内）：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Select Case Sh.Name
    Case "Sheet1", "Sheet2", "Sheet4" '<-- run it only for sheet's with these names
        Range("D5").Select
End Select

End Sub

Answer 2

Application.Goto ActiveSheet.Range("D5")