Part 1:小技巧介紹
Part 2:實例
Private Sub Workbook_Open() Rem>>工作簿名稱獲取及啟用快捷鍵 Rem>> Dim shtContent Set shtContent = ThisWorkbook.Worksheets("工作表目錄") shtContent.Range("B1") = ThisWorkbook.Name '創建快捷鍵 Application.OnKey "^m", "主程序.s99_返回工作表目錄" End Sub Sub s99_返回工作表目錄() Rem>>快速返回目錄頁 Rem>> ThisWorkbook.Worksheets("工作表目錄").Select End Sub
ThisWorkbook中代碼截圖
模塊“主程序”中代碼截圖
實際操作(忽然切回工作表目錄是因為鍵盤中按了Ctrl m)
Part 3:注釋
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!