컬러 밴드(Color Band) 코드로 만들기

컬러 밴드, 코드로 만들기

컬러 밴드를 만드는 방법에는 여러 가지가 있습니다. 조건부 서식을 이용하는 방법을 다룬 적도 있는데, 오늘은 간단한 코딩으로 해결해 보겠습니다.

기준이 될 셀에 색을 지정하고 '컬러 밴드 설정' 버튼을 클릭하면, 아래 표에 지정한 색상과 같은 컬러 밴드가 한 행씩 걸러 생기도록 만들어 보겠습니다. 색상을 지정할 영역에는 미리 MyTable이라는 이름을, 기준 셀에는 CellColor라는 이름을 정의해 두었습니다.

ColorBanding 프로시저 작성하기

(1) 표준 모듈에 다음 코드를 입력합니다. Application.InputBox로 영역을 선택받고, Range("CellColor").Interior.Color로 기준 색상을 가져온 다음, For Each ~ Next 문으로 각 행을 돌면서 홀수 행에만 색을 입힙니다.

Sub ColorBanding()

    Dim rngTarget As Range
    Dim rngCell As Range
    Dim lngColor As Long
    Dim strTargetAddress As String
    On Error GoTo ET

    strTargetAddress = Range("MyTable").Address
    Set rngTarget = Application.InputBox("영역을 선택하세요", "영역 선택", Default:=strTargetAddress, Type:=8)
    lngColor = Range("CellColor").Interior.Color

    For Each rngCell In rngTarget.Rows
        If rngCell.Row Mod 2 = 1 Then
            rngCell.Interior.Color = lngColor
        Else
            rngCell.Interior.Color = xlNone
        End If
    Next rngCell

ET:
    If Err.Number <> 0 Then
        MsgBox Err.Description, , "에러 발생"
        Exit Sub
    End If

End Sub

Sub DelColorBand()
    Range("MyTable").Interior.Color = xlNone
End Sub

(2) 컬러 밴드를 지우고 싶다면 다음과 같이 간단한 프로시저 하나만 더 추가하면 됩니다.

Sub DelColorBand()
    Range("MyTable").Interior.Color = xlNone
End Sub

간단하죠? 여러 형태로 응용이 가능합니다. On Error 문으로 사용자가 InputBox에서 '취소'를 누르는 경우까지 대비해 두었다는 점도 눈여겨보시기 바랍니다.

정리 — ColorBanding / DelColorBand 프로시저

프로시저	역할
ColorBanding	선택한 영역의 홀수 행에 지정한 색으로 컬러 밴드 적용
DelColorBand	MyTable 영역의 컬러 밴드(배경색) 모두 제거
Application.InputBox	Type:=8 옵션으로 셀 범위를 사용자로부터 선택받음

자주 묻는 질문 (FAQ)

마치며

표에 줄무늬 하나 넣는 것도 이렇게 코드로 만들어두면, 버튼 한 번으로 언제든 다시 쓸 수 있어 편합니다. 이름 정의와 InputBox를 함께 활용하는 감을 익혀 보세요!