Sub score()
Dim i As Long
For i = 2 To 23
If Cells(i, 2) <= 70 Then
Cells(i, 2).Font.ColorIndex = 3 '빨간색(코딩컬러표)
End If
Next
End Sub
Sub score()
Dim i As Long
Dim lngR As Long
lngR = Range("B10000").End(xlUp).Row
'B10000셀을 끝이라고 생각하고 올라오면서(xlup)
'첫번째 데이터가 있는 행(row)을 찾아 lngR에 넣어라
For i = 2 To lngR
If Cells(i, 2) <= 70 Then
Cells(i, 2).Font.ColorIndex = 3 '빨간색(코딩컬러표)
End If
Next
End Sub
Sub score()
Dim i As Long
Dim lngR As Long
Dim lngC As Long
lngR = Range("B10000").End(xlUp).Row
'B10000셀을 끝이라고 생각하고 올라오면서(xlup)
' 첫번째 데이터가 있는 행(row)을 찾아 lngR에 넣어라
lngC = Range("IV2").End(xlToLeft).Column
For i = 2 To lngR
For j = 2 To lngC
If Cells(i, j) <= 70 Then
Cells(i, j).Font.ColorIndex = 3 '빨간색(코딩컬러표)
End If
Next
Next
End Sub