vba - Excel宏检查前两行值小于15

Question

这是我的 excel 宏编码，我需要检查前两行任何值都小于 15，它说第三行“通过”。现在我已经做到了，但它只工作了一行。但我必须明智地检查整个行和列，我该如何实现这一点。伙计们帮帮我

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