office用vba变瑞士军刀

《office用vba变瑞士军刀》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Office用VBA变瑞士军刀Office比WPS强大的原因之一，就是它有VBA支持。VBA如同一把多功能的瑞士军刀，可以为Office补充各种我们需要的功能，为日常的使用带来更多便利。下面就为大家介绍几例，希望大家能举一反三。Word变身贴心提醒器现在大家的工作和学习节奏都很快，工作一忙起来就忘这忘那。对于一些重要的日子（如MM的生日、自考日、情人节等），很有必要对自己进行提醒。利用我们常用的Word即可打造一个贴心的提醒器。提醒器的操作需要借助VBA脚本实现，由于Word2013默认并没有显示VBA工具，所以要点击“文件”菜单，接着在打开的Word边

2、栏上点击“设置/自定义功能区”，打开自定义功能区设置页面，向下拖动滚动条，找到“开发工具”，勾选“开发工具”，将其添加到菜单栏上（图1）。图1添加开发工具到菜单栏接着新建一个空白文档，切换到“开发工具”，点击“宏→新建”，新建一个宏，然后在宏里输入下列的代码（图2，斜杠后为注释内容无需输入）：图2在宏中输入VBA代码SubAutoexec()IfMonth(Now())=10AndDay(Now())=21Then//表示指定日期10月21号执行MsgBox"主人，记住明天要参加自考，请提前做好准备哦"//弹出提醒对话框内容，请自行设置EndifEndS

3、ub保存后继续点击“开发工具→宏安全性”，将其设置为“启用所有宏”，这样只要到了10月21号，当打开Word开始办公时，就会自动弹出提示框，提醒我们应该做好准备参加自考（图3）。图3VBA提示框阅后即焚的Excel工作薄对于重要的文档，我们经常可以在电影电视上看到有阅后即焚的自毁功能。其实这些看似神奇的高科技功能，借助Excel的VBA脚本同样可以实现。比如我们可以制作一个仅能打开2次的XLS文档。启动Excel后，同上添加开发工具栏，然后制作一个需要阅后即焚的重要文档。接着选中任意一个空白单元格右击选择“定义”，在打开的窗口中将其名称定义为“opent

4、imes”，引用位置设置为“=0”，作为初始打开的计数依据（图4）。图4设置定义参数接着点击“开发工具→宏”，新建一个名为“cfan”的宏，宏的位置位于当前工作簿，使得这个宏只在当前工作薄生效（图5）。按提示在打开的窗口中输入相应的代码（图6）。图5在当前工作薄建立宏图6输入自焚代码这段代码中，以下部分用来计数，其中“IfOtime>2”表示，如果文档被打开过2次后，即启动自毁程序。具体文档可打开的次数，可以自行设置。如果打开的文档次数不足2，则进行计数累加。DimOtimeAsIntegerOtime=Evaluate(ThisWorkbook.Nam

5、es("opentimes").RefersTo)Otime=Otime+1IfOtime>2ThenCall启动自毁ElseThisWorkbook.Names("opentimes").RefersTo=OtimeThisWorkbook.SaveEndIf所谓的自毁程序，其实也非常简单，只有几行代码，执行删除操作。Sub启动自毁()WithThisWorkbook.Saved=True.ChangeFileAccessxlReadOnlyKill.FullName.CloseEndWithEndSub点击保存并退出VBA窗口，然后将文件另存，在保存

6、窗口的保存类型中选择“Ecxel启用宏的工作薄”。这样当用户打开该文档时就会自动运行上述设置的宏（图7）。图7保存为Ecxel启用宏的工作薄用户首次打开该文档后，按下Ctrl+F3键可以看到打开次数变为1，因为文档只允许用户打开1次，这样用户试图再次打开该文档时，运行的宏就会自动调用自毁程序，将当前文档彻底删除，并且还无法从回收站恢复，有效保护重要文档的安全（图8）。图8每打开一次文档就会自动计数当然，除了使用定义来读取打开次数外，使用文档属性值、日期设置（在指定日期前自毁）、文件路径、计算机名（如果不是本机打开则自毁）等参数设置更多的自毁设置。具体操作

7、可以参考VBA其他函数进行设置即可。小提示：VBA脚本还有更多神奇的功效，比如有的网友利用Excel自制赛车游戏，有的则制作出聊天工具，高手们甚至将Excel打造为家居装修的利器，大家可以到Excel论坛去下载VBA脚本实现更多的功能。