[땡큐엑셀vba & 엑셀매크로] 선택된 영역의 숫자가 입력받은 숫자보다 크면 빨간색으로,작으면 파란색으로, 같으면 노란색으로 칠한다.

 

 

 

 

 

 

 

 

'다음 매크로를 작성하시오.
'워크시트에 셀영역을 설정하고 매크로를 수행시킨다
'InputBox를 이용하여 숫자를 입력받는다.
'선택된 영역의 숫자가 입력받은 숫자보다 크면 셀색깔을 빨간색으로,작으면 파란색으로, 같으면 노란색으로 칠한다.
'(힌트) 셀 색깔은 Selection.Cells(i,j).Interiror.Color로 설정하고
'빨간색은 vbRed,파란색은 vbBlue, 노란색은 vbYellow이다.


'
'Source by 땡큐엑셀vba & 엑셀매크로
'
Sub 셀영역색칠하기()

    MsgBox "선택범위에서 입력값보다 작으면 파란색 크면 빨간색으로 칠하기", vbInformation, "땡큐엑셀vba & 엑셀매크로"

    '선택범위의 행,열수
    행수 = Selection.Rows.Count
    열수 = Selection.Columns.Count
    

    '입력값을 long형으로 변환
    입력값 = CLng(InputBox("숫자를 입력하세요", "숫자입력"))
    
    
    '선택범위 루프
    For i = 1 To 행수
        For j = 1 To 열수
            셀값 = Selection.Cells(i, j)
            
            If 셀값 > 입력값 Then
                Selection.Cells(i, j).Interior.Color = vbRed '셀값 > 입력값
            ElseIf 셀값 < 입력값 Then
                Selection.Cells(i, j).Interior.Color = vbBlue '셀값 < 입력값
            Else
                Selection.Cells(i, j).Interior.Color = vbYellow '셀값 = 입력값
            End If
            

        Next j
    Next i
    
    
    MsgBox "완료되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

 

선택영역에서 큰값 같은값 작은값에 따른 색칠-땡큐엑셀vba.xlsm

0.02MB