- 1、本文档共21页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
EXCEL加载宏制作攻略
Tag: EXCEL??加载宏??制作??
本文所述加载宏是指使用EXCEL VBA制作的加载宏,这类文件的后缀默认为xla,因此又称XLA加载宏。内容划分为五部分,第一部分为概述,简单介绍加载宏的一般知识;第二部分至第四部分介绍制作加载宏函数、过程和事件主要技巧;第五部分为制作加载宏的其它方面。
一、概述
1.制作加载宏的一般步骤(1)创建一个新的工作薄,在其中添加代码。(2)在“文件”菜单上单击“属性”。在“文件名 属性”对话框中,单击“摘要信息”选项卡,然后在“标题”框中为加载宏指定一个您希望在“加载宏”对话框中出现的名称,在“备注”框中输入您希望当用户从“加载宏”对话框选择该加载宏时在“加载宏”对话框下方出现的说明信息。(3)在“文件”菜单上单击“另存为”。在“另存为”对话框中,从“保存类型”框中选择“Microsoft Office Excel 加载宏(*.xla)”,然后再选择保存路径,并可在“文件名”框中修改文件名。2.加载宏的加载和卸载通过在“工具”菜单上单击“加载宏”,可以加载制作好的加载宏文件,如果它不在列表中,可以在“加载宏”对话框中单击“浏览”找到它,当某个加载宏名称前的复选框被选中时,说明它已经加载,取消选中复选框即为卸载该加载宏。3.加载宏的作用加载宏可以扩展EXCEL的功能,将代码写在加载宏中和写在普通的工作簿中相比,有如下优点:(1)加载宏对所有打开的EXCEL文件都生效。普通工作簿的代码一般只在特定的工作簿中才生效。(2)加载宏不受宏安全级的限制,也不会有宏运行的提示。即使将安全级设为“非常高”,加载宏就象EXCEL本身固有的功能一样工作。同样,它也不会被按住的Shift屏蔽。特别提请不习惯使用加载宏而专门VBA代码书写的朋友们注意的是,加载宏的所有好处和优点,都是属于EXCEL的常规操作者的,虽然加载宏中的代码可以被其他工作簿(中的代码)调用,但这样做是繁琐而低效的,千万不要把它当成了C中的“头”文件或链接库。也许不会有很多人这样认为,但笔者初学VBA的时候,真的这样天真过。(3)加载宏在运行时其工作簿窗口是隐藏的,因此普通用户并不会感觉到它的存在。
相关贴子[求助]如何根据EXCEL中的数据在WORD文档中填充...EXCEL单元格数据写入acess出错,请各位高手帮忙!怎样利用EXCEL编一个网络汇总程序[求助]excel有类似于vb的file控件吗?[求助]excel不能准确排名次[求助]把excel文件中的sheet的指定列保存成单...[求助]提示运行时错误13 类型不匹配(内有代码)学vba的好素材—投票统计系统v1.3用excel的vba 设置Word页面的问题[求助]单元格无法右击
更多相关
无论你走得多么远,你的心总和我连在一起;无论黄昏时树的影子有多长,它总是和树根连在一起。穿别人的鞋,走自己的路,让他找去吧!
帖子评价
(0.5)
1(100%) 0(0%) 0(0%) [规则]
[明细]
2007-7-26 14:15:40
献给初学者:《循序渐进学Excel》视频教程
qee用
本人受好评明细查询 等级:贵宾
威望:13
文章:3712????精华:3
EH币:7733????积分:78
注册日期:2005年4月13日
行业:制造业
职业:人力资源
第 2 楼
?邮件
二、处理加载宏函数
加载宏函数似乎是制作加载宏中最简单的,通常它只需要在模块中写一段Function代码,它就会和EXCEL自身的函数一样使用,并且出现在“插入函数”对话框的列表中。关于函数的制作,再没有其它的吗?1.为函数添加说明信息至少你可以通过对象浏览器设置“属性”为函数添加一段说明信息(对需要换行的说明可以在编辑时使用组合键CTRL+ENTER),这些信息当用户使用“插入函数”对话框时就会看到。需要说明的是,在对象浏览器中为函数添加说明信息必须在“另存为”加载宏之前,一旦文件名的后缀变为了XLA,函数的属性设置将不被接受。关于为函数定制说明信息,请参见:图示自定义函数描述信息及有关介绍。 A现在,请你新建一个工作簿,插入模块,粘贴下面的代码:
Function dx(n) by gly1126 金额小写转换为大写dx = Replace(Application.Text(Round(n+0 2), [DBnum2]), ., 元)dx = IIf(Left(Right(dx, 3), 1) = 元, Left(dx, Len(dx) - 1) 角 Right(dx, 1) 分, IIf(Left(Right(dx, 2), 1) = 元, dx
您可能关注的文档
最近下载
- 人力资源管理中的伦理.pdf VIP
- 全国人类免疫缺陷病毒检测技术规范(2023年修订版).docx VIP
- 制药工程设计竞赛设计说明书(纸稿打印版).pdf
- 我的理想主题班会PPT课件.pptx VIP
- ISO56002-2019创新管理-创新管理体系指南中文标准.doc
- 2023年秋季国家开放大学-01880_组织行为学期末考试题带答案.docx
- 北京市海淀区2022-2023学年三年级下学期语文期末考试试卷.doc VIP
- 2024年四川省达州市中考英语试题卷(含答案解析).docx
- 脚手架搭设过程课件.ppt VIP
- 《小学高年级数学教学中培养学生几何直观能力的研究》课题结题报告.doc
文档评论(0)