vbscript [向我显示工作表]单击导航工作表中的单元格，然后跳转到目标工作表并在导航工作表之后移动此工作表

Posted 2021-05-21

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tar_addr As String
    Dim tar_val As String
    On Error GoTo Oops
    
    tar_val = Target.Value
    If tar_val <> "" Then
        Worksheets(tar_val).Move _
            after:=Worksheets("Navigator")
        Sheets(tar_val).Activate
    Else
        Sheets("Navigator").Activate
    End If
Done:
    Exit Sub
Oops:
    Sheets("Navigator").Activate
End Sub