Excelマクロ最初の2行の値が15より小さい

Question

ここに私のExcelのマクロのコーディングがあります。最初の2行をチェックする必要があります。今私はそれをしているが、それは唯一のrow.but私はこれを達成することができます賢明な全体の行と列のようにチェックする必要があります。 |みんなが私

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

非VBAウェイ

はセルC1でこの式を入れて、

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

を、それをプルダウンして、ホームを使用するのに役立ちますC列

VBAウェイ

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