엑셀 vba 조건에 맞는 셀 글자색 변경 및 옆칸에 글자 넣기

 

엑사남 4강

엑셀 파일 다운로드

Range, Font, Color, For, Next, If, i, j, 엑셀, vba.xlsm

0.15MB

'range는 "&"로 입력 :  Range("c" & i) 'cells는 ","로 입력     : Cells(i, j)

Sub Test_1() Dim i As Long          For i = 3 To 11         If Range("c" & i) < 500 Then             Range("c" & i).Font.Color = 255             Range("D" & i) = "저조"         Else         End If     Next End Sub

Sub 초기화() Dim i As Long          For i = 3 To 11                      Range("c" & i).Font.Color = 0             Range("D" & i) = ""              Next End Sub

Sub Test_2() Dim i As Long Dim j As Long          For i = 3 To 11         For j = 3 To 14             If Cells(i, j) < 500 Then                 Cells(i, j).Font.Color = 255                     '차이점                     'range는 "&"로 입력                     'cells는 ","로 입력             Else             End If         Next     Next End Sub

Sub 초기화2() Dim i As Long Dim j As Long          For i = 3 To 11         For j = 3 To 14             If Cells(i, j) < 500 Then                 Cells(i, j).Font.Color = 0                     '차이점                     'range는 "&"로 입력                     'cells는 ","로 입력             Else             End If         Next     Next End Sub