How to stop VBA code processing???

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

From the following code, since it will create multiple layers of Sub. When I try "Exit Sub", it just exit the current Sub layer, but return to the previous Sub layer. So, my question is how to exit the code ENTIRELY when a condition "BCDEA" is met?


Actually, I know that I can run the entire code first, then search "BCDEA" in the worksheet, and manually delete the rest. However, it may lead to a huge computational cost which discourages me to do so.


Sub ABCDE()
Dim x, y As Variant
    y = "ABCDE"
    x = ""
Call GetPermutation(x, y)
End Sub

Sub GetPermutation(ByVal x, ByVal y)
Dim i, j, CurrentRow As Integer
CurrentRow = Application.WorksheetFunction.CountA(Columns(1))
    j = Len(y)
    If j < 2 Then
        Cells(CurrentRow + 1, 1) = x & y
       If Cells(CurrentRow + 1, 1) = "BCDEA" then Exit Sub     
    Else
        For i = 1 To j
            Call GetPermutation(x + Mid(y, i, 1), Left(y, i - 1) + Right(y, j - i))
        Next
    End If
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Processing processI Process ROCE code following multiple previous question current

只需要把 "Exit Sub" 改成 "End"。我试过，这样就可以遇到BCDEA就停下来。