tft每日頭條

 > 生活

 > excelvba的使用技巧

excelvba的使用技巧

生活 更新时间:2024-08-03 03:12:14

Part 1:小技巧介紹

  1. 創建快捷鍵主要使用Application.OnKey Key, Procedure
  2. 其中Key代表具體的快捷鍵,Procedure代表具體的過程
  3. Key可以使用組合鍵
  • Shift使用 表示
  • Ctrl使用^表示
  • Alt使用%表示

Part 2:實例

  • 當一個工作簿中存在多個工作表時,我們可以創建目錄頁使用超鍊接功能
  • 例如=HYPERLINK("[" & $B$1 & "]" & A3 &"!A1",A3)
  • 其中$B$1存放工作簿名稱
  • 第一個A3存放具體工作表名稱,第二個A3是實際能夠看到的單元格内容
  • "!A1"表示的就是A1單元格

excelvba的使用技巧(VBAExcel小技巧)1

  1. 那麼我們使用完超鍊接到達所選擇的工作表後,如何快速返回目錄頁,使用上面的快捷鍵功能即可
  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中代碼截圖

excelvba的使用技巧(VBAExcel小技巧)2

模塊“主程序”中代碼截圖

excelvba的使用技巧(VBAExcel小技巧)3

實際操作(忽然切回工作表目錄是因為鍵盤中按了Ctrl m

excelvba的使用技巧(VBAExcel小技巧)4

Part 3:注釋

  1. 考慮到工作簿文件的名稱可能會改變,所以動态設置了工作簿名稱
  • shtContent.Range("B1") = ThisWorkbook.Name
  1. 在使用過程中,發現s99_返回工作表目錄這個Sub隻能單獨放在模塊中,而不能直接存放在ThisWorkbook中

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关生活资讯推荐

热门生活资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved