〔Excel-VBA〕在儲存格上按2下，直接跳到指定的工作表(Sheet)

我…是懶人…總是要找懶方法。

面對一個excel活頁簿有100張工作表(sheet)時，當需要"經常"切換工作表，總是讓我覺得很麻煩~~

因此我採取建立一張總表來管理~~將Sheet名填在A欄中…

然後寫VBA程式，讓我用滑鼠在儲存格上連按2下，就直接跳到指定的Sheet頁面中…

這樣是不是省事多了??

VBA CODE

請在該"工作表"的程式碼裡貼上以下內容即可

'本段在該工作表內的任何一個儲存格Double Click都會跳進來，所以要判斷行列的範圍喔!範圍內才進行跳轉的動作

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    On Error GoTo Err

    Select Case Target.Column                       'Target.column:取得目前儲存格的欄號(因為我只有A欄Double Click才需要跳轉)

        Case 1

            If Target.Text <> "" Then

                Dim strSheet As String

                strSheet = Range("A" & Selection.Row)

                If strSheet <> "" Then

                    Sheets(strSheet).Activate   '真正執行跳轉工作表的就這一行，其它的都是一些防止錯誤的條件，您可自行省略!

                End If

            End If

            Cancel = True

    End Select

    Exit Sub

Err:

    MsgBox "您選取的資料有誤，找不到對應Sheet!", "Error"

End Sub

這封郵件來自 Evernote。Evernote 是您專屬的工作空間，免費下載 Evernote