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(실행 취소) 기능으로 변경 내용을 되돌릴 수 없습니다.
이제 "테두리색" 기능을 활용하여 쉽고 빠르게 테두리 색상을 변경해 보세요! 🎨