VBA自定义工具栏按钮制作方法

在 Excel 中点击菜单 “工具” → “自定义” ，在弹出的对话框中选择 “命令”栏，在左边的“类别”框中选择“宏”，在右边的“命令”框中左键拖动“自定义按钮”到任意一个工具栏上（自己觉得方便的位置上即可），右键点击刚刚拖到工具栏上的图标，选择“指定宏”，在弹出的“指定宏”对话框中选择要使用的宏名字，点“确定” → “关闭”，要使用该宏，只需点击刚刚拖到工具栏上的按钮即可。 

 

说明：上面的按钮只能用于包含上述代码的工作簿，若要对其他工作簿也适用，则可新建一空白工作簿，进入VBA编辑器，在此空白工作簿下新建一模块，将上述代码复制到该模块中，返回 Excel ，点击“另存为”，选择保存类型为 “Microsoft Office Excel 加载宏（*.xla）”，将此加载宏文件复制到 “Documents and Settings/<user name>/Application Data/Microsoft/AddIns” 文件夹内，重新打开 Excel ，点击菜单 “工具” → “加载宏”，此时在 “可用加载宏” 可看到多出了一个刚刚保存的加载宏的文件名字的选项，将此项前面的勾打上，即可在以后打开 Excel 时自动加载该宏。此时再按上述第2点中的步骤设置按钮时，在选择“指定宏”时，在弹出的“指定宏”对话框中看不到任何选项，不用理会直接输入自己的宏名，再点“确定” → “关闭”，返回 Excel 操作界面即可在任何工作簿中使用该按钮了。