엑사남 강의 21강 색상표 만들기

엑사남 강의 21강 색상표 만들기

 

Option Explicit  '정의하지 않는 변수가 있으면 오류를 발생시킨다.

Sub colortext01()
    Dim rngD As Range
    Dim rngt As Range
    
    Set rngD = Range("rngR") 'rngR이라고 이름 정의한 영역을 rngD변수에 넣는다.
    rngD.Interior.ColorIndex = 0 '영역을 초기화한다.
    
    For Each rngt In rngD
        If rngt <> "" Then
            rngt.Offset(0, 1).Interior.ColorIndex = rngt
        End If
        
    Next rngt

End Sub


Sub colortext02()
    Dim rngD As Range
    Dim rngt As Range
    
    Set rngD = Range("rngHW") 'rngHW이라고 이름 정의한 영역을 rngD변수에 넣는다.
    rngD.ClearContents
    
    For Each rngt In rngD
        If rngt.Interior.ColorIndex > 0 Then
            rngt.Offset(0, 1) = rngt.Interior.ColorIndex
        End If
        
    Next rngt

End Sub

Sub colortext03()
    Dim rngD As Range
    Dim rngt As Range
    
    Set rngD = Range("rngImage")
    rngD.Interior.ColorIndex = 0 '영역을 초기화한다.
    
    For Each rngt In rngD
        If rngt = 1 Then
            rngt.Offset(0, 0).Interior.ColorIndex = 7
        End If
        
    Next rngt

End Sub

 

21. 색상표 만들기.xlsm

0.05MB