2016-05-26

〔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
5 章老師的電腦小講堂: 〔Excel-VBA〕在儲存格上按2下,直接跳到指定的工作表(Sheet) 我…是懶人…總是要找懶方法。 面對一個excel活頁簿有100張工作表(sheet)時,當需要" 經常 "切換工作表,總是讓我覺得很麻煩~~ 因此我採取建立一張總表來管理~~將Sheet名填在A欄中… 然後寫VBA程式,讓我用滑鼠在儲存格上...
< >
小講堂經過多次搬移,舊文章連結及內容較難整理~
大家可以新文章為主~
每篇文章後有代碼,任何文章問題可至FB小講堂用代碼提問唷~