[사무용 엑셀 매크로] 조건에 맞춰서 표의 칸 색상 변경

조건에 따라서 표의 칸 색상 변경

 

 

예시 표

예시 표

 

VBA 코드에서 I 는 세로, J는 가로

VBA 코드에서 사용산 I, J 에 대한 설명 화면

 

 

해당 Cell의 값이 ( 10 < Cell < 30 ) 일때 해당 표의 색상을 빨간색으로 설정

또는 해당 Cell의 값이 ( 80 < Cell < 100 ) 일 때 해당 표의 색상을 빨간색으로 설정

 

매크로 결과 화면

VBA 코드

* 해당 표는 B4 부터 시작하기때문에 시작값을 i = 4 To 10, j = 1 To 7로 설정 

Sub check()

    Dim i As Long
    Dim j As Long
    
    
    For i = 4 To 10
        For j = 1 To 7
        
    
        If Val(Cells(i, (j * 2) + 1)) > 10 And Val(Cells(i, (j * 2) + 1).Value) < 30 Then
            Cells(i, (j * 2) + 1).Interior.Color = 255
            
        ElseIf Val(Cells(i, (j * 2) + 1).Value) > 80 And Val(Cells(i, (j * 2) + 1).Value) < 100 Then
                Cells(i, (j * 2) + 1).Interior.Color = 255
                   
         
        End If
        
        Next
    Next
    


End Sub

* Val 이란 ? 문자를 숫자로 변경하는 함수

* Val 이 필요한 이유 : Cells 자체는 문자가 여서 정상적으로 숫자인 상태에서 조건을 설정하려면 숫자로 설정해야함

 

사용한 예시 Excel Sample

excelExample210220_2.xltm

0.02MB