Excel居然知道你爱我多久？

什么？Excel居然知道你爱我多久？不信你可以试试看啊！

VBA代码如下：

Sub 密码验证()

Dim num As Integer

For num = 3 To 1 Step -1

If InputBox('你爱我多久?') = '1314' Then

   MsgBox ('太感动了，这才对嘛！')

   Exit For

Else

   MsgBox '什么，再给你' & num & '次机会！'

End If

Next num

End Sub

通过上面一段代码，我们可以复习下前面几节的内容

1、定义并声明变量为整型，Dim num As Integer，也可以简单省略为 dim num%

2、For num = 3 To 1 Step -1，step（步长）省略不写，默认为1，我们这里需要数字从大到小逐一循环，所以step定义为-1；

3、msgbox、inputbox为VBA中的两个函数，msgbox及massagebox，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。inputbox功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。

4、当msgbox/inputbox只是为了弹出对话框时，语法可以是 msgbox/inputbox '内容' ，当msgbox/inputbox的值被引用，比如后面接等号时，语法是 msgbox/inputbox （'内容' ），引号外面要加括号。

5、当弹出输入框要求输入信息时，如果第一次输入就正确时，希望执行完黄色语句后能直接去执行end sub，需要在黄色语句后加 exit for （退出for语句）

Sub 密码验证()

Dim num As Integer

For num = 3 To 1 Step -1

If InputBox('你爱我多久?') = '1314' Then

   MsgBox ('太感动了，这才对嘛！')

   Exit For

Else

   MsgBox '什么，再给你' & num & '次机会！'

End If

Next num

End Sub

或者是加end，前者是退出了for语句，后者是直接退出整个程序。

大家可以通过按F8，逐句执行，观察代码的运行来加深理解。

今天的分享就到这里。

视频教程正在陆续录制中，需要的同学可以加我微信号：527240310，付费的，非诚勿扰！