EXCELVBA学习笔记

Next

MsgBox \班的人数为：\End Sub

'3.可以将一个for…next循环放置在另一个for…next循环中，组成嵌套循环 'for i=1 to 10 ' for j=1 to 10 ' for k=1 to 10 ' …… ' next ' next 'next

Sub 理解计数变量的运行() For i = 1 To 2 For j = 1 To 3

k = \外层的第\次的，内层的第 Next Next End Sub

Sub 九九乘法表() Dim a%, b% For a = 1 To 9

\次\ For b = 1 To 9 If b > a Then Exit For Else

Sheets(2).Cells(a, b) = b & \×\＝\ End If Next Next End Sub

1-22 exit与end语句 Exit是退出当前语句

Exit do；exit for；exit function；exit sub End结束一个过程或块

End；end function；end if；end select；end sub 1-23 跳转语句

'GoTo Line 无条件地转移到过程中指定的行。

'注意: 太多的goto 语句，会使程序代码不容易阅读及调试 '尽可能使用结构化控制语句（do…loop,for…next,if…then…else,select) Sub gotoline() Dim str$, k! line:

k = k + 1

If k > 3 Then Exit Sub

str = InputBox(\请录入用户名！\ If str <> \End Sub 'GoTo …return Sub gotoreturn() Dim i! For i = 2 To 10

If Cells(i, 1) > 1 / 3 Then GoSub 100 Next Exit Sub 100:

Cells(i, 2) = \迟到\Return End Sub

1-24、错误分支语句 Sub onerrorresume() Dim i!

On Error Resume Next '当错误的时候继续执行下去 For i = 2 To 8

Cells(i, 4) = Cells(i, 3) + Cells(i, 2)

Next End Sub

'on error goto 当错误的时候去哪儿？ Sub onerrorgoto() On Error GoTo 100 For i = 2 To 8

k = Cells(i, 2) + Cells(i, 3) Next 100:

MsgBox \对不起，错误发生在第\行\End Sub 1-25 with语句

'with语句，当对某个对象执行一系列的语句时，不用重复指出对象的名名称。 Sub with语句()

a = Range(\ b = Range(\ Range(\End Sub Sub with语句2() With Range(\ a = .Address