Excel vba统计循环数

我有一个电子表格，我把它放在一起，随机填充了一系列预赛中的评委名单。各小组的法官分配取决于若干标准。为了使其正常工作，它会递增地将随机数分配给每个判断对，在代码中循环，直到满足所有标准。问题是，有时，取决于最初的数字分配，它永远不会达到满足所有标准的程度，因此只会继续循环。我已经看了所有的地方，但是找不到任何可以工作的东西——有没有人有可以计算代码循环次数的代码，如果它达到100次循环的阈值，它会重新启动原始代码？我没有在这篇文章中包含任何代码，因为我的随机化器实在太大了，与这个问题不太相关，而且我在循环计数器方面还远没有成功。考虑到这个论坛的专业知识，我想答案会相当简单，而且是我的一个“doh！”时刻

又快又脏，也许像：

Dim maxcnt as Integer
Dim alldone as Boolean
alldone = False
Do While Not alldone
    For Each Team in AllTeams
        maxcnt = maxcnt + 1
        If maxcnt > 100 Then Exit For
        '==============================
        ' Your code logic
        ' goes here, and when
        ' all done, does this:
        alldone = True
        If alldone Then Exit For
        '==============================
    Next
    If alldone And maxcnt < 100 Then Exit Do
Loop
MsgBox "Job Completed"

Dim maxcnt作为整数
Dim alldone作为布尔值
全部完成=错误
未尽而为
所有团队中的每个团队
maxcnt=maxcnt+1
如果maxcnt>100，则退出
'==============================
'您的代码逻辑
“在这里，什么时候
“全部完成，是否：
全部完成=正确
如果全部完成，则退出
'==============================
下一个
如果alldone和maxcnt<100，则退出Do
环
MsgBox“作业已完成”

---

您可能可以对这一点进行大幅改进，但如果需要我们的帮助，请立即发布您的代码。