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

ngnndkkk

→友の良杰← 发表于 2012-11-1 00:16
现在的是for each  没有i   求解如何让其进入下一个循环

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

你的代码太乱了，不明白你要达到的目的究竟是什么。
言归正传：
换个思路就行了：
       If Not sht Is ActiveSheet Then
            Cells(irow, "B").Value = irow - 3
            irow = irow + 1
        End If
即：为什么一定要跳呢？

事后补：你的代码真是一团糟，前后矛盾，忍不住还是多说几句，或者说提醒你。Cells(irow, "B").Value = irow - 3　指向的永远都是活动工作表，可你的目的却是要在非活动工作表上操作，让人无语，究竟目的是什么，只有你自个儿明白了。

→友の良杰←

ngnndkkk 发表于 2012-11-1 01:38
你的代码太乱了，不明白你要达到的目的究竟是什么。
言归正传：
换个思路就行了：

这段代码是用来动态生成目录用的，但是在生成目录时，又不想把目录所在sheet本身给列进去，所以在遍历worksheets时，要把目录也给过滤掉，所以才会出现在for each 循环中如何跳出的问题
当然可以用if语句来排除，但是想寻求一下其他的解决方案


至于cells（irow，"B”）.value=irow-3这句话就是操作当前活动表的，注：当前活动表就是目录表

hehex

vba 的语法应该是来自于vb 6.0 吧，好像没有break, continue 之类的进入下次循环的语句。
vb.net 没学过，好像挺难的样子。
如果投机取巧不知道是否work,你在next 前面一句加一个标记比如 1:
然后用那个if XXX=XXXX then goto 1
这样就是直接跳转到next 那里了，如果可以的话不是相当于执行下一次循环了？

→友の良杰←

hehex 发表于 2012-11-1 15:14
vba 的语法应该是来自于vb 6.0 吧，好像没有break, continue 之类的进入下次循环的语句。
vb.net 没学过， ...

是不是可以理解成这样
for each sht in worksheets
    if sht.name="索引" then
       goto 1
    end if
1:next

hehex

对，是这样，不过1: 好像要单独占一行吧，具体我没用过，你看看语法上是不是过的去。
1:
next

→友の良杰←

hehex 发表于 2012-11-1 15:19
对，是这样，不过1: 好像要单独占一行吧，具体我没用过，你看看语法上是不是过的去。
1:
next

恩，其实.net有很多方法封装的很好，大大简化的变成难度，可惜vba用不了……

→友の良杰←

Public Sub ReLoadIndex()
   Application.ScreenUpdating = False
    Dim tmpst As Worksheet
    Set tmpst = ActiveSheet
    Application.Worksheets("索引").Activate
    '清理残留数据
   Rows("4:104").ClearContents
    Rows("4:104").Borders.LineStyle = xlNone
    Dim sht As Worksheet, irow As Integer, i As Integer
    irow = 4
    For Each sht In Worksheets
       ' If sht.Name <> ActiveSheet.Name And sht.Name <> "参数" And sht.Name <> "模板" Then
       If sht.Name = ActiveSheet.Name Or sht.Name = "参数" Or sht.Name = "模板" Then
            GoTo 1
       End If
       '略去具体业务逻辑代码

       irow = irow + 1
        
1:
    Next
    '激活当前表的A1单元格
    ActiveSheet.Range("A1").Activate
    '激活保存前的表
    tmpst.Activate
    '启用屏幕更新
    Application.ScreenUpdating = True
    '更新状态栏信息
    Application.StatusBar = False
End Sub



试了一下，这样是可行的……（上述代码已经删除部分具体业务逻辑代码，仅保留问题代码）

hehex

哦，可行实在是太好了。
VB 好像只能这样投机取巧，没有continue 语句，没办法。
从本质上，越专业的人员越会规避使用goto, 这可能是一个思维的盲点吧。

→友の良杰←

hehex 发表于 2012-11-1 16:12
哦，可行实在是太好了。
VB 好像只能这样投机取巧，没有continue 语句，没办法。
从本质上，越专业的人员 ...

可能吧，反正写惯了.net的程序回头来些VB6的有点不习惯……

nbubaihao

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
                '这里需要跳出当前循环，执行下一循环
        Cells(irow, "B").Value = irow - 3
            irow = irow + 1
        End If
        
    Next
   
End Sub



不知道这样能不能得到你想要的结果？