하나 엑셀 애드인 – "테두리색" 메뉴얼

1. 개요

"테두리색" 기능은 선택한 셀 범위의 테두리 색상을 회색, 빨강, 파랑으로 변경할 수 있는 기능입니다.

2. 위치

엑셀 리본 메뉴 "선택영역 꾸미기" 그룹 내 "테두리색" 메뉴에서 사용할 수 있습니다.

3. 사용 방법

1. 엑셀에서 변경할 셀 범위를 선택합니다.
2. **리본 메뉴 → "선택영역 꾸미기" → "테두리색"**을 클릭합니다.
3. 원하는 색상(회색, 빨강, 파랑) 버튼을 클릭하면 선택한 셀의 테두리 색상이 변경됩니다.

4. 기능 설명

"테두리색" 메뉴에는 세 개의 버튼이 포함되어 있으며, 각각 다음과 같은 역할을 합니다.

각 버튼을 클릭하면 VBA 코드가 실행되며, 해당 색상이 테두리에 적용됩니다.

5. VBA 코드 설명

버튼 클릭 시 실행되는 btn_border_color 액션은 VBA에서 border_color_change(i_color As Long) 함수를 호출하여 선택한 셀 범위의 테두리 색상을 변경합니다.

VBA 코드 동작 방식

• 선택한 범위를 i_range로 저장
• 반복문을 사용하여 범위 내 각 셀의 테두리 색상 변경
• 기존 테두리가 없을 경우 색상을 변경하지 않음

vba

복사편집

Sub border_color_change(i_color As Long)

 

    Dim i_cell As Range, i_range As Range

    Set i_range = Selection

    Dim i As Long: i = xlNone

 

    For Each i_cell In i_range

        If i_cell.Borders(xlEdgeTop).LineStyle <> i Then i_cell.Borders(xlEdgeTop).Color = i_color

        If i_cell.Borders(xlEdgeLeft).LineStyle <> i Then i_cell.Borders(xlEdgeLeft).Color = i_color

        If i_cell.Borders(xlEdgeRight).LineStyle <> i Then i_cell.Borders(xlEdgeRight).Color = i_color

        If i_cell.Borders(xlEdgeBottom).LineStyle <> i Then i_cell.Borders(xlEdgeBottom).Color = i_color

        If i_cell.Borders(xlInsideVertical).LineStyle <> i Then i_cell.Borders(xlInsideVertical).Color = i_color

        If i_cell.Borders(xlInsideHorizontal).LineStyle <> i Then i_cell.Borders(xlInsideHorizontal).Color = i_color

    Next

 

End Sub

 

6. 주의사항

✅ 테두리가 없는 셀은 색상이 적용되지 않습니다.
✅ 여러 개의 셀을 선택한 경우 전체 테두리 색상이 변경됩니다.
✅ Ctrl + Z(실행 취소) 기능으로 변경 내용을 되돌릴 수 없습니다.

 

---

이제 "테두리색" 기능을 활용하여 쉽고 빠르게 테두리 색상을 변경해 보세요! 🎨