EXCEL循环语句FOR NEXT 举例(数字验证)

什么？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，逐句执行，观察代码的运行来加深理解。

转自：米宏Office