《VBA高级应用30例》(版权10178985),是我推出的第十套教程,教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开,这套教程案例与理论结合,紧贴“实战”,并做“战术总结”,以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序,写好的程序可以升级。 本套教程共三册三十个专题,VBA高级应用30例应用1:确保打开文件时响应事件 【分享成果,随喜正能量】 日子是活给自己看的,不是来源于别人的指指点点;日子是活给时光看的,别让时光的压力把咱压得喘不过气来。。 应用1 在EXCEL中构建加载项9 确保打开文件时响应事件最后,我们希望在工作簿打开时就会调用代码,以便外接程序立即开始响应这些事件。因此,在这个工作簿中,我添加了如下代码: Private Sub Workbook_Open() Application.OnTime Now, ''' & ThisWorkbook.FullName & ''!Init' End Sub 上述代码中我使用OnTime方法,可以确保Excel在调用Init之前加载所有内容。有时,Excel甚至在完成内部管理之前就触发工作簿打开事件。 10 创建外接程序创建外接程序非常简单,只需单击“文件”“另存为”,在保存文件类型中选择“Excel加载宏”选项: 另存为对话框: 选择保存类型: 我们也可以换成自己喜欢的名称,我提供的程序文件中加载宏文件为:mynzSheetTools.xlma l选择Excel加载项时,Excel会将文件夹更改为系统上的标准加载项文件夹,这足让人感到困惑。因为我们从来都不想在那里保存我的加载项,这让们人很恼火。我们只需单击“上一步”按钮即可返回上次打开文件(或将文件保存到)的原始文件夹: 11 验证我们的程序我们随便打开一个工作薄: 然后找到我们的刚才建立的加载宏,mynzSheetTools.xlma。双击打开,此时刚才打开的工作薄会出现下面的变化: 我们点击“工作表工具”: 此时我们就可以利用刚才我们的工具了,点击“Table of contents”: 同时,我们在选择工作表的选项中选择工作表,选择后该工作表会自动激活: 到此,我们从立项到任务完成就全部完成了。 结论: 利用VBA创建我们自己的应用程序接口是一项十分有意义的工作,本专题中我讲解了一个应用程序如何立项,如何规范用户的需求,一直到各个功能的实现,都进行了详细的讲解。最后给大家展示了我们的成果。本文涉及到了很多的VBA知识点,包括高级类的内容。希望本专题的内容对于大家开发应用程序有所帮助。 今日内容回向: 1 应用程序立项过程要完成那些工作? 2 如何实现高版本office功能区的自定义? 3 如何把我们的应用程序另存为加载项? Ø本讲内容参考程序文件:高级应用01.xlsm Ø第三方应用软件:OfficeRibbonXEditor-NETFramework-Installer.EXE Ø实现的外接应用程序:mynzSheetTools.xlma 我20多年的VBA实践经验,全部浓缩在下面的各个教程中:
|
|