excel加载宏制作攻略

《excel加载宏制作攻略》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、EXCEL加载宏制作攻略Tag：EXCEL  加载宏  制作  本文所述加载宏是指使用EXCELVBA制作的加载宏，这类文件的后缀默认为xla，因此又称XLA加载宏。内容划分为五部分，第一部分为概述，简单介绍加载宏的一般知识；第二部分至第四部分介绍制作加载宏函数、过程和事件主要技巧；第五部分为制作加载宏的其它方面。一、概述1．制作加载宏的一般步骤（1）创建一个新的工作薄，在其中添加代码。（2）在“文件”菜单上单击“属性”。在“文件名属性”对话框中，单击“摘要信息”选项卡，然后在“标题”框中为加载宏指定一个您希望在“加载宏”对话框中出现的名称，在“备注”框中输入您希望当用户

2、从“加载宏”对话框选择该加载宏时在“加载宏”对话框下方出现的说明信息。（3）在“文件”菜单上单击“另存为”。在“另存为”对话框中，从“保存类型”框中选择“MicrosoftOfficeExcel加载宏（*.xla）”，然后再选择保存路径，并可在“文件名”框中修改文件名。2．加载宏的加载和卸载通过在“工具”菜单上单击“加载宏”，可以加载制作好的加载宏文件，如果它不在列表中，可以在“加载宏”对话框中单击“浏览”找到它，当某个加载宏名称前的复选框被选中时，说明它已经加载，取消选中复选框即为卸载该加载宏。3．加载宏的作用加载宏可以扩展EXCEL的功能，将代码写在加载宏中和写在普通

3、的工作簿中相比，有如下优点：（1）加载宏对所有打开的EXCEL文件都生效。普通工作簿的代码一般只在特定的工作簿中才生效。（2）加载宏不受宏安全级的限制，也不会有宏运行的提示。即使将安全级设为“非常高”，加载宏就象EXCEL本身固有的功能一样工作。同样，它也不会被按住的Shift屏蔽。特别提请不习惯使用加载宏而专门VBA代码书写的朋友们注意的是，加载宏的所有好处和优点，都是属于EXCEL的常规操作者的，虽然加载宏中的代码可以被其他工作簿（中的代码）调用，但这样做是繁琐而低效的，千万不要把它当成了C中的“头”文件或链接库。也许不会有很多人这样认为，但笔者初学VBA的时候，真的

4、这样天真过。（3）加载宏在运行时其工作簿窗口是隐藏的，因此普通用户并不会感觉到它的存在。相关贴子[求助]如何根据EXCEL中的数据在WORD文档中填充...EXCEL单元格数据写入acess出错，请各位高手帮忙！怎样利用EXCEL编一个网络汇总程序[求助]excel有类似于vb的file控件吗？[求助]excel不能准确排名次[求助]把excel文件中的sheet的指定列保存成单...[求助]提示运行时错误'13'类型不匹配（内有代码）学vba的好素材—投票统计系统v1.3用excel的vba设置Word页面的问题[求助]单元格无法右击更多相关无论你走得多么远,你的心总和

5、我连在一起;无论黄昏时树的影子有多长,它总是和树根连在一起。穿别人的鞋，走自己的路，让他找去吧！帖子评价(0.5)1(100%)0(0%)0(0%)[规则][明细]2007-7-2614:15:40★献给初学者：《循序渐进学Excel》视频教程★qee用本人受好评明细查询等级：贵宾威望：13文章：3712    精华：3EH币：7733    积分：78注册日期：2005年4月13日行业：制造业职业：人力资源第2楼 ※邮件二、处理加载宏函数加载宏函数似乎是制作加载宏中最简单的，通常它只需要在模块中写一段Function代码，它就会和EXCEL自身的函数一样使用，并且出现在

6、“插入函数”对话框的列表中。关于函数的制作，再没有其它的吗？1．为函数添加说明信息至少你可以通过对象浏览器设置“属性”为函数添加一段说明信息（对需要换行的说明可以在编辑时使用组合键CTRL+ENTER），这些信息当用户使用“插入函数”对话框时就会看到。需要说明的是，在对象浏览器中为函数添加说明信息必须在“另存为”加载宏之前，一旦文件名的后缀变为了XLA，函数的属性设置将不被接受。关于为函数定制说明信息，请参见：图示自定义函数描述信息及有关介绍。Application.macrooptions方法进行设置。现在，请你新建一个工作簿，插入模块，粘贴下面的代码：Function

7、dx(n)'bygly1126金额小写转换为大写dx=Replace(Application.Text(Round(n+0.00000001,2),"[DBnum2]"),".","元")dx=IIf(Left(Right(dx,3),1)="元",Left(dx,Len(dx)-1)&"角"&Right(dx,1)&"分",IIf(Left(Right(dx,2),1)="元",dx&"角整",IIf(dx="零","",dx&"元整")))dx=Replace(Replace(Replace(Replace(dx,"零元零