[ 예제 ]
찾기버턴을 눌렀을때 국어, 영어, 수학 성적이 모두 80점이상인 학생을 찾아 셀에 색상을 칠하는 예제이다.
[ 소스 ]
Sub 성적확인()
'행카운터 증가를 위한 카운터 변수 정의
Dim i As Long
'For Next 구문을 이용하여 행을 증가시키면서 대상값을 찾는다.
'위의 예제에서는 성적값이 2행부터 13행까지 있으므로 2에서 13까지 카운터 i 값을 증가시켜준다.
For i = 2 To 13
'Cells 함수를 이용하여 국어, 영어성적이 두과목 성적이 모두 80점이상인지 확인한다.
'국어는 Cells(2,"B")->Cells(3,"B")->...Cells(13,"B")까지 루프를 돌면서 체크하게 된다.
'영어는 Cells(2,"B")->Cells(3,"B")->...Cells(13,"B")까지 루프를 돌면서 체크하게 된다.
If Cells(i, "B") >= 80 And Cells(i, "C") >= 80 Then
'80점이상인경우 해당 행의 첫번째 열("A")부터 4번째 열까지 인텍스 6번의 색상을 칠하게 한다.
Cells(i, "A").Resize(1, 4).Interior.ColorIndex = 6
End If
Next i
End Sub