私のExcel VBAマクロがクラッシュするのはなぜですか？

Question

私はExcelマクロを作ったので、実行しようとするとクラッシュしてしまいます。ここには：

result = "fail" 

j = 4 

Do While result = "fail" Or Cells(2, j) <> " " 

     If Cells(2, j).Value >= 15 Then 

      result = "pass" 


     Else 

      j = j + 1 

     End If 

Loop 

Answer 1

またはに変更されています。 ループはどこかで停止する必要があり、現在は無限ループに入っています。 plsは以下のコードを試してみて、これがあなたが望むものか、あなたの要求を間違って理解しているかどうかを教えてください。

Sub tester() 


result = "fail" 

j = 4 

Do While result = "fail" And Cells(2, j) <> "" 
    If Cells(2, j).Value >= 15 Then 

     result = "pass" 


    Else 

     j = j + 1 

    End If 

Loop 
End Sub 

Answer 2

あなたDo WhileループDo While result = "fail" Or Cells(2, j) <> " "はresult = "fail"かCells(2, j) <> " "いずれかの場合に実行されます。

空のセルに達したらループを終了するか、result = "pass"になると思います。だから、あなたはあなたのOrAndにを変更する必要があります。

Do While result = "fail" And Cells(2, j) <> " " 

あなたはケースを中に終了する場合のみ、空きスペースがセル内に存在し、またTrimを追加します。

Do While result = "fail" And Trim(Cells(2, j)) <> ""