快捷键(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 --------------------------------------------------------------------------- ╭─────────────┬─────┬───────────╮ │ 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://webptt.com/cn.aspx?n=bbs/Accounting/M.1518948190.A.FC9.html 好熟悉的名字哈，难得有人推XD 新年快乐！ ※ 编辑: noworneverev (111.253.28.131), 02/18/2018 22:34:55