Excel Makro überprüfen ersten zwei Zeile Werte weniger als 15

Question

Hier ist meine Excel-Makro-Codierung Ich muss die ersten zwei Zeilen überprüfen, jeder Wert ist weniger als 15 es sagt 3. Zeile "pass". jetzt habe ich es getan, aber es funktioniert nur eine Reihe. Aber ich muss wie weise ganze Reihen und Spalten prüfen, wie ich dieses erreichen kann. Jungs helfen mir

Dim result As String 
Dim score As Integer 
Dim score1 As Integer 

Sub wewew() 

score = Range("A1").Value 
score1 = Range("B1").Value 
If score < 15 Or score1 < 15 Then result = "pass" 

Range("C1").Value = result 
    Range("C1").Interior.Color = RGB(255, 0, 0) 

End Sub 

Answer 1

Non VBA Way

diese Formel C1 in Zelle setzen und es

=IF(OR(A1<15,B1<15),"Pass","") 

nach unten ziehen und dann Startseite verwenden | Bedingte FormatierungC Spalte

VBA Way

Sub Sample() 
    Dim ws As Worksheet 
    Dim lRow As Long, i As Long 

    Set ws = Sheet1 '<~~ Set this to the relevant worksheet 

    With ws 
     lRow = .Range("A" & .Rows.Count).End(xlUp).Row '<~~ Find Last Row 

     For i = 1 To lRow 
      If .Range("A" & i).Value < 15 Or .Range("B" & i).Value < 15 Then 
       With .Range("C" & i) 
        .Value = "Pass" 
        .Interior.Color = RGB(255, 0, 0) 
       End With 
      End If 
     Next i 
    End With 
End Sub