for ループの先頭に戻るのに少し問題があります。
コードの一部:
For M = 1 To System
Openhours = Numberofhours(M, 1)
If Openhours = 0 Then
M = M + 1
Exit For
End If
1 ~ 6 個の「システム」を持つことができ、さらに追加することができます。「営業時間」は、特定のシステムに割り当てられている時間を示しますが、問題は、その時点で専用の時間がないシステム (システム番号 3 など) がある場合、システムが次のようにクラッシュすることです。例 "Openhours" はゼロであり、他の多くの配列があります。したがって、Openhours がゼロであることに気付いた場合は、すぐにループの先頭に戻って次のシステムをテストするようにコードに指示する必要があります。
「Exit For」はもちろん機能しませんでした。時間ゼロの最初のシステムを見つけた後、他のすべてのシステムをスキップしたからです。