[心得] 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