vba 关闭当前窗体 前窗体不关闭_VBA自动关闭窗体及模拟打字效果

题记：春节期间，情况特殊，希望大家尽可能待在家里，静下心，多学习有用的知识，多提高自己的水平和能力，这才是正道。

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.197-NO.198内容是：

NO. 197：在VBA代码中使用Wait方法使窗体显示10秒后关闭

NO. 198：在VBA代码中使用API函数，模拟打字效果。

VBA过程代码197：在VBA代码中使用Wait方法使窗体显示10秒后关闭

Sub mynz ()

Dim i As Integer

For i = 1 To 10

Sheets("81").Cells(1, 1) = "这是个演示文件,将在" & 11 - i & "秒后自动关闭!"

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

Next

Windows("VBA代码解决方案修订（49-98) ").Close

End Sub

代码解析：mynz过程使用Wait方法使窗体显示10秒后关闭。代码在窗体的标签中显示倒计时关闭的秒数。Wait方法使代码暂停运行1秒钟。运行窗体，标签中显示倒计时关闭的秒数并在10秒后关闭，

VBA过程代码198：在VBA代码中使用API函数，模拟打字效果

Sub mynz ()

Dim sTest As String

Dim i As Integer

sTest = "欢迎你来到这个平台学习VBA!"

For i = 1 To Len(sTest)

Range("A1").Value = Left(sTest, i)

Sleep 200

Next

End Sub

代码解析：Mynz过程模拟打字效果在单元格A1中输入一行文字。"欢迎你来到这个平台学习VBA!"，代码Sleep API函数声明，参数dwMilliseconds为以毫秒为单位的时间长度。

在每次循环时增加显示的数据，并且在每次增加时使用Sleep语句延时200毫秒，好像字符逐个输入，从而达到模拟打字的效果.

使用这个函数要注意的是，由于这个函数是Windows API函数，使用前必须先声明，然后使用。

VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程。利用这些可以提高自己的编程效率。

其一：“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；

其二“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。

其三“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。

其四“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第三册的118讲,以上各教程的代码都是经过实测，可以拿来即用。

春节期间，情况特殊，大家尽可能待在家里，多学习有用的知识，多提高自己，这才是正道。