Question

VBA语句中“For n = 1 To 5”是什么意思？

有这么一个创建输入对话框的宏： Sub 请输入编号() x = InputBox("请输入编号：") Cells(3, 1) = x For n = 1 To 5 'ActiveWindow.SelectedSheets.PrintOut Next n End Sub 请老师指教： For n = 1 To 5 'ActiveWindow.SelectedSheets.PrintOut 这两个语句是什么意思？

Answer 1

For
n
=
1
To
5
循环,n是变量,初始值为1,每次递增,当n值为5的时候,循环结束.
'ActiveWindow.SelectedSheets.PrintOut
打印当前窗口被选中的工作表,不过这句话之前有
'
号,表示被注释掉了,在程序里不起作用.
====补充====
1:
Sub
请输入编号()
2:
x
=
InputBox("请输入编号：")
3:
Cells(3,
1)
=
x
4:
For
n
=
1
To
5
5:
'ActiveWindow.SelectedSheets.PrintOut
6:
Next
n
7:
End
Sub
我们逐语句解释.
第1行:定义一个过程,过程名称叫"请输入编号".
第2行:定义一个变量"x",它的值是待你输入的.
第3行:将你输入的值放入第3行第1列.
第4行:开始一个循环,n是变量,初始值为1,每次递增,当n值为5的时候,循环结束.
第5行:打印当前窗口被选中的工作表,不过这句话之前有
'
号,表示被注释掉了,在程序里不起作用.
第6行:循环结束,但从之前的代码里可以看到,循环里面是没有可执行的代码的,也就是说,这个循环没做任何事情.
第7行:整个过程结束.