我在宏中有一个循环,我正在编写以下结构:
本书中有两个工作表。原始数据(因此是端点数据变量)和总账(总账)表(因此是端点GL变量)
有三种for
该函数中的循环:
(1) 第一个循环迭代原始数据文件中的每条记录。
(2) 第二个循环迭代已验证的匹配项REGEXP
(正则表达式搜索)和
(3) 第三个循环遍历总帐并找到相应的匹配项并放入(使用:PUT_DATA_RANGE
)将数据放入适当的位置。
这就是我的意思:
伪代码:
For i = 2 To endpointData
If SOME_TEST = True Then
Set MATCHES = REGEXP.EXECUTE()
For Each myMatch In MATCHES
For j = 1 To endpointGL
If myMatch.value = SOME_CONDITION Then
PUT_DATA_RANGE
Exit For
ElseIf myMatch.value <> SOME_CONDITION Then
MsgBox ("there might be a problem")
' EXIT BOTH LOOPS HERE
' write handler code
Next
End If
Next
End If
Next i
现在你会注意到我对自己有一些评论。如果第三个循环在总帐中找不到匹配项,则代码当前会中断以通知用户。但是那个消息框MsgBox("there might be a problem")
与第三个循环一起循环。我如何让Excel退出两个循环并将第一个for循环带到原始数据中的下一个可用记录?
顺便说一句,我尝试用Exit For
但这似乎并不完全有效。
我看到两个选择。
1)使用一系列布尔值来检查外循环是否应该继续
2)使用goto语句退出内循环直接回到主程序
在这种情况下,goto 可能不会那么糟糕,因为您没有跳转到代码的完全不同的部分。只要好好记录一下就可以了...
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)