엑셀 모든 테두리+굵은 상자 테두리 단축키 만들기

평소 엑셀로 작업할때 모든 테두리 + 굵은 상자 테두리를 많이 사용하는데
일일이 클릭으로 하려니 불편해서 찾아보고 까먹기전에 정리합니다.

 

또한 해당 매크로는 확장자가 "xlsx"일 경우에는 매크로가 저장되지 않는 파일 형식이라면서 알림창이 띄워집니다.

매크로만 저장되지 않는 것이기에 무시하고 저장을 진행하셔도 됩니다.

("xlsm" 확장자로 변경해서 저장하면 매크로까지 저장된다는거 같은데.. 안해봤습니다.)

 

저는 MacBook에서 작업을하였고, 윈도우는 단축키만 다를 뿐 엑셀 자체 기능이므로 동일하게 동작할 것입니다.

1. Visual Basic Editor 열기

도구(tool) → 매크로 → Visual Basic Editor
(단축키: Fn + Option + F11)

 

2. 모듈 생성

visual Basic Editor 좌측 상단 엑셀 모양 옆에 버튼을 클릭하거나, 그 모양 옆에 있는 화살표를 눌러서 만들 수 있습니다.

 

3. 코드 입력

코드를 입력 후 창을 닫으면 됩니다.

Sub ApplyAllBordersWithThickOutline()
    Dim rng As Range
    Set rng = Selection

    With rng.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

    With rng.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With

    With rng.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With

    With rng.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With

    With rng.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
End Sub

4. 매크로 열기

도구(tool) → 매크로 → 매크로 ..
(단축키: Fn + Option + F8)

 

5. 매크로에 단축키 지정

"옵션.." 버튼을 클릭하여 설정할 수 있습니다.

매크로는 모듈에 입력되어있는 "ApplyAllBordersWithThickOutline"으로 자동으로 등록되어 보여집니다.

 

단축키는 “Option + Cmd + ▩” 으로 고정되어 있습니다.
(또한, 입력가능한건 영어만 가능합니다.)

 

마무리

직접 클릭으로 만든 테두리보다 매크로 테두리가 조금 더 굵습니다.

코드를 살짝 수정하면 될거 같지만.. 되는 것에 감사하며 건들지 않았습니다.