如果大于90分打勾VBA

nnsea

Sub 基本示例()
Dim rs%
rs = 1
Do
rs = rs + 1
    If rs > 10 Then
        Exit Sub
    Else
        If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "√"
    End If
Loop
End Sub

nnsea

Sub 基本示例()
Dim rs%
rs = 1
Do
rs = rs + 1
    If rs > 10 Then
        Exit Sub
    Else
        If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "√"
    End If
Loop
End Sub



Sub 循环语句while()
Dim rs As Integer
rs = 2
Do While Cells(rs, 2) <> ""   '当单元格不等于空时，则循环
    If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "√"
    rs = rs + 1
Loop '循环
End Sub