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

作者: noworneverev (小朋友)   2018-02-18 18:03:04
快捷鍵(xlam)下載:https://goo.gl/LkVPmB
Demo:https://i.imgur.com/NZNoEbu.gif
增益集使用方法:https://youtu.be/_8ez9G_QCUU
此篇教學示範如何在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
作者: ASSETS401 (ASSETS)   2018-02-18 21:57:00
新年快樂推!

Links booklink

Contact Us: admin [ a t ] ucptt.com