<em>vba</em>中如何在for语句中运行<em>goto</em>

最简单的来两句，不明白百请追问~~~

FOR的用法是这样的：
FOR I=1 TO N
......语句......
NEXT I
这样的功能是，使里面的 语句度 运行问N次，每答次I的值都不同，分别专是1~N，用来完成固定次数的重复。

IF的用法是这样的：
IF 条件 THEN
.......语句1.......
ELSE
......语句2......
END IF
这样的功能是判断条件是否满足，如果满足就执行 语句1，否则执行 语句2

以上例子中的语句、语句1、语句2都可以是一个或者多个属语句，往往是一段。

1、goto语句主要用于for循环的多层嵌套语知句，对于单个for循环还是建道议使用exit for来退出循环。

2、示例在二维数组中专查找一个数，找到后退出循环的属例子：

dim a(100,100) as integer,i as integer,j as integer
for i=0 to 100
  for j=0 to 100
    a(i,j)=int(rnd*1000)'给数组赋一个随机数。
  next
next

for i=0 to 100
  for j=0 to 100
    if a(i,j)=100 then
       goto iprt
    endif
  next
next

iprt:debug.print i,j,a(i,j)

定义一个boolean类型变量 用exit for 推出循环 用if <boolean变量值e799bee5baa6e79fa5e98193e59b9ee7ad94331> end if 判断代码是否需要执行
Dim goNext As Boolean '定义一个boolean类型变量
For ii = min To max
goNext = True 'Boolean 变量赋值
j = ii
For k = 1 To N
seq(k) = 0
Next k

For k = N To 1 Step -1
seq(k) = (j Mod Q)

If (seq(k) = 0) Then
'GoTo nxii
goNext = False ‘改变boolean变量值
Exit For '退出for K 循环
End If
j = (j - seq(k)) / Q

For l = N To k + 1 Step -1
If (seq(l) <= seq(k)) Then
goNext = False '改变boolean变量值
Exit For '退出For I 循环
'GoTo nxii
End If
Next l
If goNext = False Then Exit For '判断是否推出For k 循环
Next k

'输出
If goNext Then '判断是否执行代码
For k = 1 To N
Sheets(1).Cells(rowid, k) = (seq(k))
Next k

rowid = rowid + 1
End If
'nxii:
Next ii

不行。
For是循环。
而IF呢，是条件判断！！