次の理由なし - エラー

Question

愚かな質問：このコードは正しくコンパイルされていません。私はちょうど何か愚かな行方不明だと感じている。ここでは、関連するコードがあります：

For Each Cell In CHWAssigned 
    If Cell = "" Then 
     If Cell.Row Mod 3 = 0 Then 
      Cell.Value = "DM" 
     ElseIf Cell.Row Mod 3 = 1 Then 
      Cell.Value = "CWS" 
     ElseIf Cell.Row Mod 3 = 2 Then 
      Cell.Value = "CF" 
    Else 
    End If 
Next Cell 

私がもし文のすべてを閉鎖したと思うが、開いてそこに1がなければなりません。とてもシンプルなものに取り組む時間をとってくれてありがとう。

Answer 1

あなたがいなくて、終了すれば、あなたのコードは今すぐ動作するはずです。 NextステートメントにCellを指定する必要はありません。 ElseIfの代わりにCaseを使用することもできます。

For Each Cell In CHWAssigned 
    If Cell = "" Then 
     If Cell.Row Mod 3 = 0 Then 
      Cell.Value = "DM" 
     ElseIf Cell.Row Mod 3 = 1 Then 
      Cell.Value = "CWS" 
     ElseIf Cell.Row Mod 3 = 2 Then 
      Cell.Value = "CF" 
     End If 
    End If 
Next 

希望します。