在vba中for each 中如果有if语句，想跳过当前循环执行下一循环，该如何写？

→友の良杰← · 发表于 2012-10-30 16:45

在vba中for each 中如果有if语句，想跳过当前循环执行下一循环，该如何写？

Private Sub ReloadBtn_Click()
Rows("4:65536").ClearContents
Dim sht As Worksheet, irow As Integer, i As Integer
irow = 4
For Each sht In Worksheets
      If sht.Name = ActiveSheet.Name Then
            '这里需要跳出当前循环，执行下一循环
      End If
      Cells(irow, "B").Value = irow - 3
      irow = irow + 1
Next

End Sub

dsmch · 发表于 2012-10-30 16:56

直接执行下一循环
If sht.Name <> ActiveSheet.Name Then

wanghu572 · 发表于 2012-10-30 23:11

本帖最后由 wanghu572 于 2012-10-30 23:11 编辑

用goto 语句

wanghu572 · 发表于 2012-10-30 23:13

2楼的可行，你看明白了吗

→友の良杰← · 发表于 2012-10-31 00:31

dsmch 发表于 2012-10-30 16:56
直接执行下一循环
If sht.Name ActiveSheet.Name Then

你这样写，需要把代码卸载判断里面，
有没有其他的方法呢？

→友の良杰← · 发表于 2012-10-31 00:32

wanghu572 发表于 2012-10-30 23:11
用goto 语句

goto 语句怎么调至下一条呢?

这个是for each

next i 似乎没用

ggsmart · 发表于 2012-10-31 13:34

使用Exit For语句啊

如想当i>2时退出循环，可以使用
If i > 2 Then Exit For
如果手上有《别怕，Excel VBA其实很简单》，可以看P91中间For语句的语法形式

→友の良杰← · 发表于 2012-10-31 14:17

ggsmart 发表于 2012-10-31 13:34
使用Exit For语句啊

如想当i>2时退出循环，可以使用

Exit for 是退出循环，这个我知道，我要的效果是退出当前循环，进入下一次循环
假设i=3
退出i,进入i=4的操作

ngnndkkk · 发表于 2012-10-31 17:17

→友の良杰← 发表于 2012-10-31 14:17
Exit for 是退出循环，这个我知道，我要的效果是退出当前循环，进入下一次循环
假设i=3
退出i,进入i=4的 ...

答：
两个办法，如下所示
1.在循环体中，更改循环变量 i 的值，如 IF i=3 then i=4
2.用行标签，然后用 GoTo 行标签的语句，如 IF i =3 then goto MyContinue

→友の良杰← · 发表于 2012-11-1 00:16

ngnndkkk 发表于 2012-10-31 17:17
答：
两个办法，如下所示
1.在循环体中，更改循环变量 i 的值，如 IF i=3 then i=4

现在的是for each 没有i 求解如何让其进入下一个循环

.net 中可以用continue for来解决，但vb6里面就不行了

		自动登录	找回密码
密码			免费注册