[心得] Excel 自定義快捷鍵(10個範例) VBA實戰

看板Accounting作者noworneverev (小朋友)時間6年前 (2018/02/18 18:03)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串1/1

快捷鍵(xlam)下載：https://goo.gl/LkVPmB Demo：https://i.imgur.com/NZNoEbu.gif

此篇教學示範如何在Excel中自定義快捷鍵，並有完整的10個實例可以直接使用。大部分接觸VBA的人都是從錄製巨集開始， https://i.imgur.com/kC9RDw2.jpg

在錄製巨集時Excel可以讓你選快速鍵來啟動巨集，如果要讓此巨集在每次開啟活頁簿時都可以使用，一般會將巨集儲存在個人巨集活頁簿(personal.xlsb)，一旦完成後，當你開啟Excel時，個人巨集活頁簿也會跟著啟動，不過通常它會是以隱藏活頁簿的形式隱藏起來，單純讓使用者執行儲存在個人巨集活頁簿裡的巨集。今天介紹進階一點的用法，直接編寫VBA，寫出快捷鍵儲存在增益集中，只要活頁簿啟動就可以使用，不用透過個人巨集活頁簿。在這之前請先安裝上列增益集，是已經寫好的10個快速鍵，分別是： 1 靠右對齊：Shift + R 2. 置中對齊：Shift + E 3. 靠左對齊：Shift + W 4. 填滿黃色：Shift + Y 5. 無填滿：Shift + N 6. 雙底線：Shift + B 7. 全部框線：Shift + V 8. 移除框線：Shift + D 9. 新增工作表：Ctrl + Q 10.微軟正黑體+大小10+紅色+粗體：Shift + Q 完成安裝後應可直接使用上列自訂的快速鍵，上面這幾個功能非常基本，可以直接透過錄製巨集來得到相關程式碼，而指定快速鍵的方法如下： 1. 先從開發人員選項點選Visual Basic，開啟編輯器 2. 模組裡有我們錄製的巨集或撰寫的程式碼，以填滿黃色這個功能做說明： Sub Fill_Yellow() Selection.Interior.Color = RGB(255, 255, 0) End Sub 3. 點選Microsoft Excel物件中的ThisWorkbook，右邊下拉式選單選Open會跑出： Private Sub Workbook_Open() End Sub 要指定快速鍵如以下寫法： Private Sub Workbook_Open() Application.OnKey "+y", "Fill_Yellow" End Sub ("+y"這裡的加號是Shift的意思，後面的參數放功能的名字即步驟2的Fill_Yellow) https://i.imgur.com/JHLSH7v.jpg

另可用其他的按鍵來指定快捷鍵，如下表，但如果要使用Ctrl請小心不要覆蓋掉原本Excel的功能，除非你真的不會用到 To combine keys with Precede the key code by SHIFT + (plus sign) CTRL ^ (caret) ALT % (percent sign) 其餘更詳細的說明請參考MSDN文件： https://goo.gl/aDxoVH --------------------------------------------------------------------------- ╭─────────────┬─────┬───────────╮ │ EXCEL VBA │ 文章代碼 │ 下載 │ ├─────────────┼─────┼───────────┤ │勾數字工具 │#1QV_dBdw │https://goo.gl/Q1Jj97 │ ├─────────────┼──┬──┼───────────┤ │即時匯率_對話方塊 │#1QCzqt8W │https://goo.gl/cs8Spv │ ├─────────────┼──┬──┼───────────┤ │ ↘ Demo檔下載│ │ │https://goo.gl/2XVX69 │ ├─────────────┼──┼──┼───────────┤ │日幣現金匯率查詢 │ │ │https://goo.gl/Cda3vh │ ├─────────────┼──┼──┼───────────┤ │ ↘ Demo檔下載│ ▼ │https://goo.gl/HegVJL │ ├─────────────┼─────┼───────────┤ │即時牌價查詢 │#1QB30fq7 │https://goo.gl/kLQRyL │ ├─────────────┼──┬──┼───────────┤ │單一幣別匯率查詢 │ │ │https://goo.gl/5vTCF5 │ ├─────────────┼──┼──┼───────────┤ │ ↘ Demo檔下載│ │ │https://goo.gl/as7oJn │ ├─────────────┼──┼──┼───────────┤ │全部幣別匯率查詢 │ │ │https://goo.gl/Bh1XZj │ ├─────────────┼──┼──┼───────────┤ │ ↘ Demo檔下載│ │ │https://goo.gl/HKtJyk │ ├─────────────┼──┼──┼───────────┤ │全部幣別匯率查詢_對話方塊 │ │ │https://goo.gl/cTJvSA │ ├─────────────┼──┼──┼───────────┤ │ ↘ Demo檔下載│ │ │https://goo.gl/zDZiFK │ ├─────────────┼──┼──┼───────────┤ │匯率表產生器(xlsm)(有密碼)│ ▼ │https://goo.gl/LXSQ8o │ ├─────────────┼─────┼───────────┤ │包含篩選 │#1QB2qaHU │https://goo.gl/2PcagN │ ├─────────────┼─────┼───────────┤ │多重篩選 │#1QB2qaHU │https://goo.gl/26HqHm │ ├─────────────┼─────┼───────────┤ │快速整理明細帳 │#1QB2km6W │https://goo.gl/X5dnqp │ ├─────────────┼─────┼───────────┤ │插入PBC文字方塊 │#1QB2i47Y │https://goo.gl/mhXZox │ ├─────────────┼─────┼───────────┤ │T字帳產生器 │#1Q8bpU-J │https://goo.gl/BhM4n8 │ ├─────────────┼─────┼───────────┤ │Excel基本操作 │#1Q65UTNn │https://goo.gl/WFdbcG │ ├─────────────┼─────┼───────────┤ │切換編輯模式&Enter向右 │#1Q3wLTS_ │https://goo.gl/a62rHp │ ├─────────────┼─────┼───────────┤ │自訂選擇性貼上 │#1Q1pEUVg │https://goo.gl/3SCy2d │ ├─────────────┼─────┼───────────┤ │透過公開資訊觀測站查詢財報│#1P_9YjWs │https://goo.gl/iUc49o │ ├─────────────┼─────┼───────────┤ │ ↘ Demo檔下載│ │https://goo.gl/8PUAAy │ ├─────────────┼─────┼───────────┤ │一鍵轉底稿 │#1Pz9ZLY0 │https://goo.gl/oBxQug │ ├─────────────┼─────┼───────────┤ │千分位&Tickmark製作 │#1PxCHzh1 │https://goo.gl/gimhNd │ ├─────────────┼─────┼───────────┤ │自訂插入儲存格按鈕 │#1PuWvwqq │https://goo.gl/Q53w7T │ ├─────────────┼─────┼───────────┤ │自訂工作表字型按鈕 │#1PqA0Hn2 │https://goo.gl/NCGsnY │ ╰─────────────┴─────┴───────────╯ -- Accoding: https://www.facebook.com/AccodingTW/ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.253.28.82 ※ 文章網址: https://www.ptt.cc/bbs/Accounting/M.1518948190.A.FC9.html

推

ASSETS401

02/18 21:57, 6年前 , 1^F

02/18 21:57, 1^F

好熟悉的名字哈，難得有人推XD 新年快樂！ ※ 編輯: noworneverev (111.253.28.131), 02/18/2018 22:34:55

‣ 返回看板[ Accounting ] 學術

‣ 更多 noworneverev 的文章

文章代碼(AID): #1QYKzU_9 (Accounting)