Excel VBA返回按鈕，轉到上一個選項卡

Question

我想要創建一個後退按鈕，以放在我的Excel項目中的每個選項卡上，一旦按下該選項將會將您帶到上次訪問的選項卡。例如，如果我在「工作表3」選項卡中，然後移動到「工作表8」選項卡，則希望能夠單擊工作表8中的後退按鈕將我帶回到工作表3選項卡。所以基本上Excel是跟蹤我以前訪問我上次訪問的任何標籤，並在我按下後退按鈕時將其帶回。

Answer 1

你將需要跟蹤最後一個標籤訪問拉斷。

要在切換選項卡時捕獲工作表，可以使用工作簿的SheetDeactivate()事件。在VBE，點擊進入你的VBAProject「的ThisWorkbook」，並添加以下代碼：

'Global Variable to hold last sheet selected 
Public lastSheet As Object 

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 
    'When we deactivate a tab toss the deactivated sheet into the lastSheet global 
    Set lastSheet = Sh 
End Sub 

現在，當我們要訪問的最後一張紙點擊，大家可以參考變量lastSheet。

在一個新的模塊添加以下子程序：

Sub goBack() 
    'go back to the last sheet using the lastSheet variable 
    ThisWorkbook.lastSheet.Activate 
End Sub 

現在你可以添加按鈕（或形狀）到你的標籤，並將其指向GoBack()子程序。