3.2.19:几个特殊功能的实现

【分享成果，随喜正能量】困境总是因为自我的执着，自我的傲慢，所以才把困境弄得难以处理。如果能用谦虚的态度，不在人情上计较、比较，困境自然化解。。

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。

如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。

VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是：3.2.19:几个特殊功能的实现

3.2.19 几个特殊功能的实现

在VBA的应用中，我给大家讲解了几个有意思的应用：1VBA实现定时关机；2如何暂停代码的运行；3 利用代码让程序延时；4 如何让VBA做到自毁程序；5 数据的校验。

大家看下面的几句代码：

Shell ("Shutdown.exe -s -t 30")

Application.Wait Now() + VBA.TimeValue("00:00:01")

Private Declare PtrSafe Sub

Remove .Item(vbc.Name)

Private Sub object_KeyPress( ByVal KeyANSI As MSForms.ReturnInteger)

为了更好地方便大家理解教程中的讲解，我就几个关键点给大家加以介绍；

Shell 函数：运行可执行程序并在成功时返回表示程序的任务 ID 的 Variant (Double)；否则返回零。

语法：Shell(pathname, [ windowstyle ])

参数：

1）pathname必需；Variant (String)。要执行的程序的名称以及任何必需的参数或命令行开关；可能包括目录或文件夹和驱动器。在 Macintosh 中，可以使用 MacID 函数指定应用程序的签名，而不是名称。 以下示例使用 Microsoft Word 的签名：Shell MacID("MSWD")

2) windowstyle可选。与要运行程序的窗口的样式对应的 Variant (Integer)。如果省略 windowstyle，则在最小化焦点的情况下启动程序。在 Macintosh（系统 7.0 或更高版本）上，windowstyle 仅确定程序在运行时是否获得焦点。

其中windowstyle 命名的参数具有以下这些值：

vbHide窗口将隐藏，并且焦点将传递给隐藏窗口。vbHide 常量在 Macintosh 平台中不适用。

vbNormalFocus1窗口具有焦点且还原为其原始大小和位置。

vbMinimizedFocus2窗口将显示为具有焦点的图标。

vbMaximizedFocus3使用焦点最大化窗口。

vbNormalNoFocus4窗口将还原为其最新的大小和位置。当前活动窗口仍保持活动状态。

vbMinimizedNoFocus6窗口将显示为图标。当前活动窗口仍保持活动状态。

l如果 Shell 函数成功执行命名文件，它将返回已启动程序的任务 ID。 任务 ID 是标识正在运行的程序的唯一编号。 如果 Shell 函数无法启动指定的程序，则会发生错误。

l在 Macintosh 中，vbNormalFocus、vbMinimizedFocus 和 vbMaximizedFocus 都将应用程序置于前台；vbHide、vbNoFocus 和 vbMinimizeFocus 都将应用程序置于后台。

其他：对于数据的校验，有些学员会利用正则运算，这块的内容在我的第六套教程及第九套教程中会有介绍，但在VBA中一般总会有其他的方案替代；关于64位的API函数声明语句，我在第六套教程中也有讲解，如果大家有需要，我会提供一份专门的资料给大家。

我2多年的VBA实践经验，全部浓缩在下面的各个教程中：