EXCel+VBA经典应用

《EXCel+VBA经典应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、EXCelVBA经典应用例子显示工作表名字的函数=CELL("filename",Examples!D22)VBScript编码约定出于易读和一致性的目的，请在VBScript代码中使用以下变量命名约定：子类型前缀示例BooleanblnblnFoundBytebytbytRasterDataDate(Time)dtmdtmStartDoubledbldblToleranceErrorerrerrOrderNumIntegerintintQuantityLonglnglngDistanceObjectobjobjCurrentSinglesngsngAverageString

2、strstrFirstName变量作用域变量应定义在尽量小的作用域中。VBScript变量的作用域如下所示：作用域声明变量处可见性过程级事件、函数或子过程在声明变量的过程中可见Script级HTML页面的HEAD部分，任何过程之外在Script的所有过程中可见变量作用域前缀随着Script代码长度的增加，有必要快速区分变量的作用域。在类型前缀前面添加一个单字符前缀可以实现这一点，而不致使变量名过长。作用域前缀示例过程级无dblVelocityScript级ssblnCalcInProgress描述性变量名和过程名变量名或过程名的主体应使用大小写混合格式，并且尽量完整地描述其目

3、的。另外，过程名应以动词开始，例如InitNameArray或CloseDialog。对于经常使用的或较长的名称，推荐使用标准缩写以使名称保持在适当的长度内。通常多于32个字符的变量名会变得难以阅读。使用缩写时，应确保在整个Script中保持一致。例如，在一个Script或Script集中随意切换Cnt和Count将造成混乱。对象命名约定下表列出了VBScript中可能用到的对象命名约定（推荐）：对象类型前缀示例3D面板pnlpnlGroup动画按钮anianiMailBox复选框chkchkReadOnly组合框、下拉列表框cbocboEnglish命令按钮cmdcmdEx

4、it公共对话框dlgdlgFileOpen框架frafraLanguage水平滚动条hsbhsbVolume图像imgimgIcon标签lbllblHelpMessage直线linlinVertical列表框lstlstPolicyCodes旋钮spnspnPages文本框txttxtLastName垂直滚动条vsbvsbRate滑块sldsldScale代码注释约定所有过程的开始部分都应有描述其功能的简要注释。这些注释并不描述细节信息（如何实现功能），这是因为细节有时要频繁更改。这样就可以避免不必要的注释维护工作以及错误的注释。细节信息由代码本身及必要的内部注释来描述。当传

5、递给过程的参数的用途不明显，或过程对参数的取值范围有要求时，应加以说明。如果过程改变了函数和变量的返回值（特别是通过参数引用来改变），也应在过程的开始部分描述该返回值。过程开始部分的注释应包含以下区段标题。相关样例，请参阅后面的“格式化代码”部分。区段标题注释内容目的过程的功能（不是实现功能的方法）。假设其状态影响此过程的外部变量、控件或其他元素的列表。效果过程对每个外部变量、控件或其他元素的影响效果的列表。输入每个目的不明显的参数的解释。每个参数都应占据单独一行并有其内部注释。返回返回值的解释。注册表中的excel配置信息add_inmanager列出"工具">加载宏的列表

6、autoSave保存设置的自动保存选项Converters外部的文件转换程序DeleteCommands允许指定不想出现哪个菜单命令ErrorChecking保存公式错误检查方面的设置InitCommands保存自定义命令方面的信息InitMenus保存自定义菜单方面的信息LinePrint保存1-2-3宏打印用到的位置Options这是一个全捕捉小节RecentFiles最近保存的文件的名称RecentTemplates最近使用的模板名称Resiliency用于恢复文档的信息Security指定打开包含宏的文件时的安全级SpellChecker拼写检查选项的信息UserIn

7、fo有关用户的信息Excel2000VBA删除VBA模块代码WithActiveWorkbook.VBProject.VBComponents.Remove.VBComponents("module1")EndWith'以上代码在excel2002及更高版本不能运行页眉打印完整工作簿路径和文件名PrivateSubWorkbook_BeforePrint(CancelAsBoolean)ForEachshtInThisWorkbook.Sheetssht.PageSetup.LeftHeader=Thi