前景提要
昨天我们成功得实现了在数据录入的过程中，自动登记日期/时间和手工录入日期/时间得方法，在当初完成这个小脚本的时候，也是尝试了一下效果，还是非常得不错，至少能够满足集中录入和随时录入这两种情况了，相信能够在日后的工作中给有这方面需要的童鞋提供一些帮助得，然而今天一同事告诉我，这样操作有一个很明显得bug，让他使用的非常得不舒服。
抱着不断完善小脚本得心态，我又仔细了解了下它的问题，原来她也是集中录入的，并且是自动录入日期，手工录入时间的，对于每天需要集中录入很多交易数据的她来说，这功能是不错，但是我这同事也是非常仔细的同事，他每次录入完成之后，都会和收据上的数据核对下，但是这个时候我们程序中的不足就体现出来了，录入完成之后，自动进入循环，弹窗让我们录入一下条数据，数据少的时候还没有影响， 数据量的时候还会遮挡我们录入得数据，想要核查录入的数据是否正确， 还要手动去移开弹窗，有点不方便。
我仔细想想好像这样也是一个问题，可能有时候我们要核对数据录入得准确性，毕竟有些地方我们不得不进行手工录入，手工就会存在出错得情况，所以我们应该在数据录入之后，留下一个等待时候，让用户检查核对数据，然后在提示输入，那今天我们继续完善下我们得代码。
函数说明
延时等待，这种方法在很多得代码中都是比较常用得，比方说在使用python访问网页的时候，一般都会带有延时操作，以免被封号，在学习VBA得时候，小编也简单得接触过延时操作，但是小编觉得excel再利用VBA处理数得过程中，一般都用不到延时，因为他都是自动等excel执行完上一个命令在执行下一个命令得，根本不需要等待。但是在今天这样得场景中，等待延时又变的非常有必要了，那我们就来学习下延时得方法，很简单wait()轻松搞定。
上代码
我们还是利用昨天得表格，不做任何变动，加上延时，可惜好像不好上传动画，延时得效果似乎展示得不太好。案例中设置得等待时间是10s
Sub test()
Dim num&, ShopName$
line:
num = Application.InputBox("请输入商品的序号", "输入准确的序号", , , , , , 3)
If num <> 0 Then
ShopName = Choose(num, "苹果手机", "vivo", "华为", "OPPO X27", "摩托罗拉", "红米 小辣椒XR", "百度音响5-5")
LastCol = Cells(Rows.Count, 6).End(xlUp).Row
Cells(LastCol + 1, 6) = ShopName
Cells(LastCol + 1, 9) = Date
'NewDate = Application.InputBox("请输入实际销售日期,用点隔开", "日期的输入", , , , , , 3)
'YEAR1 = Split(NewDate, ".")(0)
'MONTH1 = Split(NewDate, ".")(1)
'DAY1 = Split(NewDate, ".")(2)
'Cells(LastCol + 1, 9) = DateSerial(YEAR1, MONTH1, DAY1)
NewDate = Application.InputBox("请输入实际销售时间,用点隔开", "日期的输入", , , , , , 3)
'Cells(LastCol + 1, 9).Offset(0, 1) = Time
hour1 = Split(NewDate, ".")(0)
min1 = Split(NewDate, ".")(1)
senc1 = Split(NewDate, ".")(2)
Cells(LastCol + 1, 9).Offset(0, 1) = TimeSerial(hour1, min1, senc1)
Application.Wait Now() + VBA.TimeValue("00:00:10")
GoTo line
End If
End Sub
因为上传不了动图，可能上传图片得话，效果并不是太好，我们截取两个静态图来验证下效果吧，具体得效果大家可以自己下去操作下代码感受下，
效果如图：
这个是完成了一次录入时候，并没有立刻弹窗提示输入吓一跳数据，在这个过程中，页面是很干净得，所有的数据都能够展示并且看到，这样在这个时间段内，我们就能够轻松得核对数据了。
前面我们也说了，设置得等待时间是10s,所以10S一到，弹窗又会继续展示，让我们继续录入下一条数据。
代码解析
今天我们重点说下wait()函数得用法，看上面得代码，写起来也非常得简单，学起来自然也不是很难，wait(h:m:s)括号中得数据就是完整得时分秒，这里wait()又可以延伸出来两种不同得用法，我们来分别说下
一种就是从现在开始等多久执行下一步,举个例子
Application.Wait Now() + VBA.TimeValue("00:00:10")
'Application.Wait Now() + VBA.TimeValue("00:10:00")‘等待10分钟
'Application.Wait Now() + VBA.TimeValue("10:00:00")‘等待10小时
案例中得写法就是这样得，从我执行完最后一步，也就是时间得录入之后，等待10s在执行下一步，就是弹窗提示输入下一个序号，同同时我也告诉大家如果要等到10分钟，10小时得写法，大家可以根据自己得需要，灵活使用。
另外一种就是直到什么时间，采取执行下一步
Application.Wait VBA.TimeValue("23:30:05")
此写法得作用就是执行了时间录入之后，我就暂停程序了，然后脚本会自动监控当前得时间，直到当前时间是23：30：05得时候，才会接着执行下一步命令，在此之前程序都是处于暂停状态，我们可以做任何其他得操作。
