我…是懶人…總是要找懶方法。
面對一個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 |