Word 표에 색상으로 구분된 드롭다운 목록을 삽입하려면 어떻게 해야 하나요?

Author: Xiaoyang Last Modified: 2025-05-21

Word 문서에 표가 있다고 가정해 보겠습니다. 이제 표의 열에 색상으로 구분된 드롭다운 목록을 삽입하려고 합니다. 이는 드롭다운에서 한 옵션을 선택하면 셀 색상이 빨강으로 바뀌고, 다른 옵션을 선택하면 셀 색상이 초록으로 바뀌는 것을 의미합니다. 아래 스크린샷에서 보이는 것처럼 말이죠:

Demo showing a cell's color changing when an item is selected from the drop-down list

VBA 코드를 사용하여 Word 문서에 색상으로 구분된 드롭다운 목록 삽입하기

다음 단계는 표 셀에 드롭다운 목록을 삽입하고 선택한 항목에 따라 셀에 배경색을 적용하는 방법을 안내합니다:

드롭다운을 삽입하려는 표의 셀을 선택한 다음 "개발 도구" > "드롭다운 목록 콘텐츠 컨트롤"을 클릭합니다.
참고: 리본 메뉴에서 개발 도구 탭이 보이지 않는 경우 다음을 참조하세요: Word 리본에 개발 도구 탭을 표시하는 방법.
드롭다운이 특정 셀에 삽입됩니다. 그런 다음 "개발 도구" > "속성"을 클릭합니다.

Drop-down inserted into a specific cell with Properties option highlighted

"콘텐츠 컨트롤 속성" 대화 상자에서 다음 작업을 수행하세요:
1. "제목" 텍스트 상자에 제목 이름을 입력합니다.
2. "추가" 버튼을 클릭하여 "선택 항목 추가" 대화 상자를 엽니다.
3. "표시 이름" 텍스트 상자에 드롭다운 목록 항목을 입력합니다.
필요한 경우 3단계를 반복하여 다른 드롭다운 목록 항목을 삽입합니다.
첫 번째 드롭다운 목록을 생성한 후에는 이를 복사하여 다른 셀에 붙여넣을 수 있습니다.
ALT + F11을 길게 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

Microsoft Visual Basic for Applications 창에서 "프로젝트" 창에서 "ThisDocument"를 두 번 클릭하여 모듈을 엽니다. 그런 다음 다음 코드를 빈 모듈에 복사하여 붙여넣습니다:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

참고: 위 코드에서 "Status"는 드롭다운 목록을 생성할 때 사용한 제목 이름이며, "Complete", "In Progress", "Not Start"는 항목입니다. 필요에 따라 이러한 값과 해당 색상을 변경할 수 있습니다.