Attribute VB_Name = "modBorderStyle"
Option Explicit
' Å׵θ® ½ºÅ¸ÀÏ: ¼±Åà ¹üÀ§ÀÇ ¹Ù±ù¡¤¾ÈÂÊ Å׵θ®¿¡ ¼± Á¾·ù¿Í ±½±â¸¦ Àû¿ëÇÑ´Ù.
' [v2.6] Æû ÇÑ ÀåÀ¸·Î ÅëÇÕ: ¼± Á¾·ù¸¶´Ù ¼± ¸ð¾ç ¹Ì¸®º¸±â + ±½±â(¾ã°Ô¡¤Áß°£¡¤±½°Ô)´Â üũ Ç׸ñÀ¸·Î ¼±ÅÃ
'        1¼¿ ¼±Åà ½Ã ¿¬°á ¿µ¿ª, 1¿­/1Çà ¹üÀ§ÀÇ ¾ÈÂÊ ¼± ¿À·ù ¹æÁö, ¿¢¼¿ÀÌ Áö¿øÇÏÁö ¾Ê´Â Á¶ÇÕÀº ÀÚµ¿ º¸Á¤

Sub Å׵θ®¼±½ºÅ¸ÀÏ(control As IRibbonControl)
    Dim rng As Range, kind As Long, wt As Long, ls As Long, W As Long, b As Variant, fixMsg As String, wtName As String, kindName As String
    If TypeName(Selection) <> "Range" Then
        MsgBox "Å׵θ®¸¦ Àû¿ëÇÒ ¹üÀ§¸¦ ¸ÕÀú ¼±ÅÃÇϼ¼¿ä.", vbExclamation, "Å׵θ® ½ºÅ¸ÀÏ"
        Exit Sub
    End If
    Set rng = Selection
    If rng.cells.CountLarge = 1 Then Set rng = rng.CurrentRegion

    kind = UI_ChooseEx("Å׵θ® ½ºÅ¸ÀÏ", _
                       "¹üÀ§ " & rng.Address(False, False) & " ÀÇ ¸ðµç Å׵θ®(¹Ù±ù+¾ÈÂÊ)¿¡ Àû¿ëÇÕ´Ï´Ù." & vbCrLf & _
                       "¾Æ·¡¿¡¼­ ±½±â¸¦ üũÇÑ µÚ ¼± Á¾·ù¸¦ Ŭ¸¯ÇÏ¸é ¹Ù·Î Àû¿ëµË´Ï´Ù.", _
                       Array("½Ç¼±", "Á¡¼±", "ªÀº Á¡¼±", "Á¡-½Ç¼±", "ÀÌÁß¼±", "Å׵θ® ¾øÀ½ (Áö¿ì±â)"), _
                       Array("line:solid", "line:dot", "line:dash", "line:dashdot", "line:double", "line:none"), _
                       Array("¾ã°Ô", "Áß°£", "±½°Ô"), 1, wt)
    If kind = 0 Then Exit Sub
    Select Case kind
        Case 1: ls = xlContinuous: kindName = "½Ç¼±"
        Case 2: ls = xlDot: kindName = "Á¡¼±"
        Case 3: ls = xlDash: kindName = "ªÀº Á¡¼±"
        Case 4: ls = xlDashDot: kindName = "Á¡-½Ç¼±"
        Case 5: ls = xlDouble: kindName = "ÀÌÁß¼±"
        Case 6: ls = xlLineStyleNone
    End Select

    If ls = xlLineStyleNone Then
        Application.ScreenUpdating = False
        rng.Borders.LineStyle = xlLineStyleNone
        Application.ScreenUpdating = True
        MsgBox "Å׵θ®¸¦ Áö¿ü½À´Ï´Ù." & vbCrLf & "´ë»ó ¹üÀ§: " & rng.Address(False, False), vbInformation, "Å׵θ® ½ºÅ¸ÀÏ"
        Exit Sub
    End If

    Select Case wt
        Case 2: W = xlMedium: wtName = "Áß°£"
        Case 3: W = xlThick: wtName = "±½°Ô"
        Case Else: W = xlThin: wtName = "¾ã°Ô"
    End Select
    ' ¿¢¼¿ÀÌ Áö¿øÇÏ´Â ¼±Á¾·ù¡¿±½±â Á¶ÇÕÀ¸·Î º¸Á¤ (Á¡¼±=¾ã°Ô¸¸, ªÀºÁ¡¼±/Á¡-½Ç¼±=¾ã°Ô¡¤Áß°£, ÀÌÁß¼±=±½°Ô °íÁ¤)
    Select Case ls
        Case xlDouble
            If W <> xlThick Then fixMsg = "ÀÌÁß¼±Àº ±½±â°¡ °íÁ¤ÀÔ´Ï´Ù."
            W = xlThick
        Case xlDot
            If W <> xlThin Then fixMsg = "Á¡¼±Àº ¾ã°Ô¸¸ Áö¿øµÇ¾î ¾ã°Ô·Î Àû¿ëÇß½À´Ï´Ù."
            W = xlThin
        Case xlDash, xlDashDot
            If W = xlThick Then fixMsg = "ÀÌ ¼± Á¾·ù´Â ±½°Ô°¡ ¾ø¾î Áß°£À¸·Î Àû¿ëÇß½À´Ï´Ù.": W = xlMedium
    End Select

    Application.ScreenUpdating = False
    For Each b In Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight)
        With rng.Borders(b)
            .LineStyle = ls
            .weight = W
            .ColorIndex = xlAutomatic
        End With
    Next b
    If rng.Columns.Count > 1 Then
        With rng.Borders(xlInsideVertical)
            .LineStyle = ls: .weight = W: .ColorIndex = xlAutomatic
        End With
    End If
    If rng.rows.Count > 1 Then
        With rng.Borders(xlInsideHorizontal)
            .LineStyle = ls: .weight = W: .ColorIndex = xlAutomatic
        End With
    End If
    Application.ScreenUpdating = True
    MsgBox "Å׵θ®¸¦ Àû¿ëÇß½À´Ï´Ù. (" & kindName & " ¡¤ " & wtName & ")" & vbCrLf & vbCrLf & _
           "´ë»ó ¹üÀ§: " & rng.Address(False, False) & IIf(Len(fixMsg) > 0, vbCrLf & "¡Ø " & fixMsg, ""), vbInformation, "Å׵θ® ½ºÅ¸ÀÏ"
End Sub