엑셀VBA 짝수값이 들어있는 셀만 색칠하기
한동안 VBA를 안했더니 까먹어간다.
테스트 삼아 간단한걸 짜보자.
특정 영역에서 값이 짝수이면, 회색을 칠하고,
우측셀에 +1 한 값을 넣어본다.
아무 의미는 없다.
어느새 mod 함수를 까먹고 있었다는 사실을 알아냈다.
[코드샘플]
Sub range_T()
Dim a As Range
Dim k As Integer
Set a = Range("a1:a10")
For i = 1 To 10
k = Val(a(i))
If k Mod 2 = 0 Then
a(i).Offset(0, 1) = k + 1
a(i).Interior.Color = RGB(97, 97, 97)
End If
Next i
End Sub
모르는 걸 인지하는 순간 더이상 그건 모르는게 아니라는 거. 하하하
