MsgBox gibt keinen Wert

Question

In der Spalte "V34: V99" stehen die Ziffern 1,2,3,0 in der gestreuten Reihenfolge. Ich möchte zählen, wie viele Situationen (n) sein werden (drei aufeinanderfolgende 1 к=3, ohne Berücksichtigung von Nullen), wenn 2 oder 3 auftreten, dann k=o. Ich habe den Code geschrieben, aber es funktioniert nicht (gibt keine Anzahl von Situationen (n)).

0 
1 
0 
1 
0 
0 
0 
1 
0 
1 
0 
0 
0 
0 
1 
0 
0 
1 
0 
0 
1 
0 
0 
1 
0 
0 
1 
0 
0 
0 
1 
0 
0 
0 
0 
3 
0 
1 
0 
3 
0 
0 
0 
3 
0 
1 
0 
1 
0 
0 
1 
3 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

-Code

Sub а33условие3() 

    Dim k, n As Integer 
    Dim parRange As Range 

    Set parRange = Range("V34:V99") 
    k = 0 
    n = 0 
    For Each Cell In parRange.Rows 

     If Cell.Value = 1 Then 
      k = k + 1 
      If k = 3 Then 
       n = n + 1 
       k = o 
       MsgBox n 
      End If 
     End If 
     If Cell.Value = 2 Or 3 Then 
      k = 0 
     End If 
    Next Cell 

End Sub 

Answer 1

Sie können nicht die Or Aussage in dieser Art und Weise nutzen. Sie sollten Cell.Value = 2 Or Cell.Value = 3 Auch verwenden Sie selbst eine If Anweisung speichern, aktualisiert Code siehe unten:

Sub а33условие3() 

Dim k, n As Integer 
Dim parRange As Range 

Set parRange = Range("V34:V99") 
k = 0 
n = 0 
For Each Cell In parRange.Rows 

    If Cell.Value = 1 Then 
     k = k + 1 
     If k = 3 Then 
      n = n + 1 
      k = o 
      MsgBox n 
     End If 
    ElseIf Cell.Value = 2 Or Cell.Value = 3 Then 
     k = 0 
    End If 
Next Cell 

End Sub