Attribute VB_Name = "modAutoFit"
Option Explicit
' =====================================================================================
'  modAutoFit : ¼¿°£°ÝÁ¤¸® (v2.3 °íµµÈ­)
'   ¸Þ´º 1. ¸ðµç ±ÛÀÚ 1ÇàÀ¸·Î   : ÁÙ¹Ù²Þ ÇØÁ¦, ¸ðµç ³»¿ëÀÌ ÇÑ ÁÙ·Î º¸À̵µ·Ï ¿­ ³Êºñ ÀÚµ¿(#### ¹æÁö)
'   ¸Þ´º 2. A4 °¡·Î Àμâ¿ë      : Àμ⠰¡´É Æø¿¡ ¸ÂÃç ¿­ ³Êºñ ¹èºÐ, ±ÛÀÚ=ÀÚµ¿ ÁٹٲÞ, ¼ýÀÚ=¼¿¿¡ ¸ÂÃã
'   ¸Þ´º 3. A4 ¼¼·Î Àμâ¿ë      : À§¿Í °°À½(¼¼·Î ¹æÇâ)
'   ¸Þ´º 4. µÇµ¹¸®±â(¿ø·¡´ë·Î)  : 1~3 ½ÇÇà Àü »óÅÂ(¿­ ³Êºñ¡¤Çà ³ôÀÌ¡¤Áٹٲޡ¤¼¿¿¡ ¸ÂÃ㡤Àμ⠹æÇâ) º¹¿ø
'   - µÇµ¹¸®±â Á¤º¸´Â ÅëÇÕ ¹®¼­ÀÇ ¼û±è ½ÃÆ®(_BUSAN_¼¿°£°Ý¹é¾÷)¿¡ ½ÃÆ®º°·Î 1°³ º¸°ü(ù ½ÇÇà ½ÃÁ¡ ±âÁØ).
'   - ´ë»ó ¹üÀ§: 2¼¿ ÀÌ»ó ¼±Åà ½Ã ±× ¹üÀ§, ¾Æ´Ï¸é ½ÃÆ® »ç¿ë ¿µ¿ª Àüü.
' =====================================================================================
Private Const SNAP_SHEET As String = "_BUSAN_¼¿°£°Ý¹é¾÷"
Private Const CHUNK As Long = 30000            ' ¼¿ Çϳª¿¡ ´ã´Â ÃÖ´ë ±ÛÀÚ ¼ö
Private Const A4_W As Single = 595.3           ' A4 Æø(pt)
Private Const A4_H As Single = 841.9           ' A4 ³ôÀÌ(pt)
Private Const MIN_TEXT_W As Single = 6         ' ±ÛÀÚ ¿­ ÃÖ¼Ò ³Êºñ(¹®ÀÚ ´ÜÀ§)
Private Const MAX_COL_W As Single = 250        ' ¿­ ³Êºñ »óÇÑ
Private AF_Silent As Boolean                   ' True ¸é °á°ú MsgBox »ý·«(ÀÚµ¿ °ËÁõ¿ë)

Public Sub AF_SetSilent(ByVal v As Boolean)
    AF_Silent = v
End Sub

Private Sub AF_Info(ByVal msg As String)
    If AF_Silent Or Not Application.Visible Then Exit Sub
    MsgBox msg, vbInformation, "¼¿°£°ÝÁ¤¸®"
End Sub

' ---------------------------------------------------------------- ÁøÀÔÁ¡(¸®º»)
Sub ¼¿ÀÚµ¿¸ÂÃã2(control As IRibbonControl)
    Dim ws As Worksheet, rng As Range, choice As Long
    Set ws = ActiveSheet
    Set rng = AF_TargetRange(ws)
    If rng Is Nothing Then
        MsgBox "Á¤¸®ÇÒ µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù.", vbExclamation, "¼¿°£°ÝÁ¤¸®"
        Exit Sub
    End If
    choice = UI_Choose("¼¿°£°ÝÁ¤¸®", "´ë»ó ¹üÀ§: " & rng.Address(False, False) & vbCrLf & "¿øÇÏ´Â Á¤¸® ¹æ½ÄÀ» ¼±ÅÃÇϼ¼¿ä.", _
             Array("¸ðµç ±ÛÀÚ 1ÇàÀ¸·Î  (ÁÙ¹Ù²Þ ¾øÀÌ, ¼ýÀÚ #### ¹æÁö)", _
                   "A4 °¡·Î Àμâ¿ë Á¤¸®  (±ÛÀÚ ÀÚµ¿ ÁٹٲÞ, ¼ýÀÚ ¼¿¿¡ ¸ÂÃã)", _
                   "A4 ¼¼·Î Àμâ¿ë Á¤¸®  (±ÛÀÚ ÀÚµ¿ ÁٹٲÞ, ¼ýÀÚ ¼¿¿¡ ¸ÂÃã)", _
                   "µÇµ¹¸®±â  (Á¤¸® Àü ¿ø·¡ »óÅ·Î)"))
    Select Case choice
        Case 1: AF_OneLine ws, rng
        Case 2: AF_FitPage ws, rng, xlLandscape
        Case 3: AF_FitPage ws, rng, xlPortrait
        Case 4: AF_Restore ws
    End Select
End Sub

' ---------------------------------------------------------------- ´ë»ó ¹üÀ§
Private Function AF_TargetRange(ByVal ws As Worksheet) As Range
    Dim rng As Range
    If TypeName(Selection) = "Range" Then
        If Selection.cells.CountLarge > 1 Then Set rng = Selection
    End If
    If rng Is Nothing Then Set rng = ws.usedRange
    If rng Is Nothing Then Exit Function
    If rng.Areas.Count > 1 Then Set rng = rng.Areas(1)
    If rng.rows.Count = ws.rows.Count Or rng.Columns.Count = ws.Columns.Count Then
        If Intersect(rng, ws.usedRange) Is Nothing Then Exit Function
        Set rng = Intersect(rng, ws.usedRange)
    End If
    If Application.WorksheetFunction.CountA(rng) = 0 Then Exit Function
    Set AF_TargetRange = rng
End Function

' ---------------------------------------------------------------- 1. ¸ðµç ±ÛÀÚ 1ÇàÀ¸·Î
Public Sub AF_OneLine(ByVal ws As Worksheet, ByVal rng As Range)
    Dim c As Range, capped As Long
    AF_Snapshot ws, rng
    Application.ScreenUpdating = False
    With rng
        .WrapText = False
        .ShrinkToFit = False
    End With
    rng.Columns.AutoFit
    For Each c In rng.Columns
        If Not c.hidden Then
            If c.ColumnWidth > MAX_COL_W Then c.ColumnWidth = MAX_COL_W: capped = capped + 1
        End If
    Next c
    rng.rows.AutoFit
    Application.ScreenUpdating = True
    AF_Info "¸ðµç ±ÛÀÚ¸¦ ÇÑ ÁÙ·Î Á¤¸®Çß½À´Ï´Ù." & vbCrLf & vbCrLf & _
           "´ë»ó ¹üÀ§: " & rng.Address(False, False) & _
           IIf(capped > 0, vbCrLf & "³Êºñ »óÇÑ(" & MAX_COL_W & ")¿¡ °É¸° ¿­: " & capped & "°³", "") & vbCrLf & vbCrLf & _
           "µÇµ¹¸®·Á¸é [¼¿°£°ÝÁ¤¸® ¡æ µÇµ¹¸®±â]¸¦ ½ÇÇàÇϼ¼¿ä."
End Sub

' ---------------------------------------------------------------- 2¡¤3. A4 Àμâ¿ë
Public Sub AF_FitPage(ByVal ws As Worksheet, ByVal rng As Range, ByVal orient As Long)
    Dim c As Range, col As Range, i As Long, n As Long
    Dim natW() As Single, minW() As Single, hidden() As Boolean
    Dim u As Single, p As Single, availPt As Single, availUnits As Single
    Dim sumNat As Single, sumMin As Single, sumFlex As Single, remain As Single
    Dim W As Single, orientName As String

    AF_Snapshot ws, rng
    Application.ScreenUpdating = False

    ' (1) ÆäÀÌÁö ¼³Á¤: A4 + ¹æÇâ
    On Error Resume Next
    With ws.PageSetup
        .PaperSize = xlPaperA4
        .Orientation = orient
    End With
    On Error GoTo 0
    availPt = IIf(orient = xlLandscape, A4_H, A4_W) - ws.PageSetup.LeftMargin - ws.PageSetup.RightMargin

    ' (2) ¼¿ ¼Ó¼º: ±ÛÀÚ=ÀÚµ¿ ÁٹٲÞ, ¼ýÀÚ(³¯Â¥¡¤¼ö½Ä °á°ú Æ÷ÇÔ)=¼¿¿¡ ¸ÂÃã
    AF_ApplyCellFormat rng

    ' (3) °¢ ¿­ÀÇ ÀÚ¿¬ ³Êºñ(ÇÑ ÁÙ ±âÁØ)¿Í ÃÖ¼Ò ³Êºñ(¼ýÀÚ°¡ ±úÁöÁö ¾Ê´Â Æø) ÃøÁ¤
    n = rng.Columns.Count
    ReDim natW(1 To n): ReDim minW(1 To n): ReDim hidden(1 To n)
    rng.WrapText = False                       ' ÃøÁ¤À» À§ÇØ Àá½Ã ÇØÁ¦
    rng.Columns.AutoFit
    For i = 1 To n
        Set col = rng.Columns(i)
        hidden(i) = col.hidden
        If hidden(i) Then
            natW(i) = 0: minW(i) = 0
        Else
            natW(i) = col.ColumnWidth
            If natW(i) > MAX_COL_W Then natW(i) = MAX_COL_W
            minW(i) = AF_MinWidth(col)
            If minW(i) > natW(i) Then minW(i) = natW(i)
            sumNat = sumNat + natW(i)
            sumMin = sumMin + minW(i)
        End If
    Next i
    AF_ApplyCellFormat rng                     ' ÁÙ¹Ù²Þ ´Ù½Ã Àû¿ë

    ' (4) ¿­ ³Êºñ ¹èºÐ: ³Êºñ(¹®ÀÚ´ÜÀ§)¡æpt ȯ»ê°è¼ö ÃøÁ¤ ÈÄ, Àμâ Æø ¾È¿¡ µé¾î°¡µµ·Ï ¹èºÐ
    AF_MeasureUnit ws, u, p
    availUnits = (availPt - p * AF_VisibleCount(hidden)) / u
    If availUnits < 1 Then availUnits = 1

    If sumNat <= availUnits Then
        For i = 1 To n
            If Not hidden(i) Then rng.Columns(i).ColumnWidth = natW(i)
        Next i
    ElseIf sumMin >= availUnits Then
        ' ÃÖ¼Ò ³Êºñ ÇÕÁ¶Â÷ ÆäÀÌÁöº¸´Ù Å©¸é ºñÀ² Ãà¼Ò(+ Àμ⠽à °¡·Î 1ÂÊ ¸ÂÃãÀÌ º¸¿Ï)
        For i = 1 To n
            If Not hidden(i) Then rng.Columns(i).ColumnWidth = AF_Max(minW(i) * availUnits / sumMin, 2)
        Next i
    Else
        ' ÃÖ¼Ò ³Êºñ´Â º¸ÀåÇÏ°í ³²´Â ÆøÀ» '´õ ÇÊ¿äÇÑ ¸¸Å­'¿¡ ºñ·ÊÇØ ³ª´²ÁØ´Ù
        remain = availUnits - sumMin
        For i = 1 To n
            If Not hidden(i) Then sumFlex = sumFlex + (natW(i) - minW(i))
        Next i
        For i = 1 To n
            If Not hidden(i) Then
                W = minW(i)
                If sumFlex > 0 Then W = W + (natW(i) - minW(i)) * remain / sumFlex
                rng.Columns(i).ColumnWidth = W
            End If
        Next i
    End If

    ' (5) Çà ³ôÀÌ ÀÚµ¿ + Àμ⠽à °¡·Î 1ÂÊ ¾ÈÀüÀåÄ¡
    rng.rows.AutoFit
    On Error Resume Next
    With ws.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
    On Error GoTo 0
    Application.ScreenUpdating = True

    orientName = IIf(orient = xlLandscape, "°¡·Î", "¼¼·Î")
    AF_Info "A4 " & orientName & " Àμ⿡ ¸ÂÃç Á¤¸®Çß½À´Ï´Ù." & vbCrLf & vbCrLf & _
           "´ë»ó ¹üÀ§: " & rng.Address(False, False) & vbCrLf & _
           "±ÛÀÚ ¼¿: ÀÚµ¿ ÁÙ¹Ù²Þ / ¼ýÀÚ ¼¿: ¼¿¿¡ ¸ÂÃã" & vbCrLf & _
           "ÆäÀÌÁö ¼³Á¤: A4 " & orientName & ", °¡·Î 1ÂÊ ¸ÂÃã" & vbCrLf & vbCrLf & _
           "µÇµ¹¸®·Á¸é [¼¿°£°ÝÁ¤¸® ¡æ µÇµ¹¸®±â]¸¦ ½ÇÇàÇϼ¼¿ä."
End Sub

' ±ÛÀÚ ¼¿ = ÀÚµ¿ ÁٹٲÞ, ¼ýÀÚ ¼¿ = ¼¿¿¡ ¸ÂÃã
Private Sub AF_ApplyCellFormat(ByVal rng As Range)
    Dim c As Range, v As Variant
    For Each c In rng.cells
        If c.MergeCells Then
            If c.Address <> c.MergeArea.cells(1, 1).Address Then GoTo NextCell
        End If
        v = c.Value2
        If IsEmpty(v) Then
            ' ºó ¼¿Àº ±×´ë·Î
        ElseIf AF_IsNumberLike(v) Then
            c.WrapText = False
            c.ShrinkToFit = True
        Else
            c.ShrinkToFit = False
            c.WrapText = True
        End If
NextCell:
    Next c
End Sub

Private Function AF_IsNumberLike(ByVal v As Variant) As Boolean
    Select Case VarType(v)
        Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbDate, vbDecimal, vbBoolean, vbError
            AF_IsNumberLike = True
        Case Else
            AF_IsNumberLike = False
    End Select
End Function

' ¿­ ¾ÈÀÇ ¼ýÀÚ ¼¿ÀÌ ±úÁöÁö ¾ÊÀ» ÃÖ¼Ò ³Êºñ(¹®ÀÚ ´ÜÀ§) - Ç¥½Ã ¹®ÀÚ¿­ ±æÀÌ ¡¿ ±Û²Ã ¹èÀ²
Private Function AF_MinWidth(ByVal col As Range) As Single
    Dim c As Range, L As Single, best As Single, base As Single, T As String
    base = ActiveWorkbook.Styles("Normal").Font.Size
    If base <= 0 Then base = 11
    best = MIN_TEXT_W
    For Each c In col.cells
        If Not IsEmpty(c.Value2) Then
            If AF_IsNumberLike(c.Value2) Then
                T = c.text
                If Left$(T, 1) = "#" Then T = CStr(c.Value2)
                L = Len(T) * (c.Font.Size / base) * 1.05 + 1.5
                If c.Font.Bold Then L = L * 1.08
                If L > best Then best = L
            End If
        End If
    Next c
    AF_MinWidth = best
End Function

' ¿­ ³Êºñ 1¹®ÀÚ ´ÜÀ§°¡ ¸î ptÀÎÁö(u)¿Í ¿­´ç °íÁ¤ ¿©¹é(p)À» ½ÇÃø
Private Sub AF_MeasureUnit(ByVal ws As Worksheet, ByRef u As Single, ByRef p As Single)
    Dim c As Range, w1 As Single, pt1 As Single, pt2 As Single
    On Error GoTo Fallback
    Set c = ws.Columns(ws.Columns.Count)
    w1 = c.ColumnWidth
    If w1 <= 0 Then w1 = ws.StandardWidth: c.ColumnWidth = w1
    pt1 = c.Width
    c.ColumnWidth = w1 + 10
    pt2 = c.Width
    c.ColumnWidth = w1
    u = (pt2 - pt1) / 10
    p = pt1 - w1 * u
    If u <= 0 Then GoTo Fallback
    Exit Sub
Fallback:
    u = 5.25: p = 3.75
End Sub

Private Function AF_VisibleCount(ByRef hidden() As Boolean) As Long
    Dim i As Long
    For i = LBound(hidden) To UBound(hidden)
        If Not hidden(i) Then AF_VisibleCount = AF_VisibleCount + 1
    Next i
End Function

Private Function AF_Max(ByVal a As Single, ByVal b As Single) As Single
    If a > b Then AF_Max = a Else AF_Max = b
End Function

' ---------------------------------------------------------------- µÇµ¹¸®±â Á¤º¸ ÀúÀå/º¹¿ø
' ¼û±è ½ÃÆ® ÇÑ Çà = ½ÃÆ® Çϳª. A:½ÃÆ®¸í B:ÀúÀå½Ã°¢ C:¹üÀ§ D:¹æÇâ E:¿ëÁö F:Zoom G:°¡·ÎÂʼö H:¼¼·ÎÂʼö
'   I~: ¿­³Êºñ "¿­:³Êºñ;..." / Çà³ôÀÌ "Çà:³ôÀÌ;..." / ÁÙ¹Ù²Þ ¼¿ / ¼¿¿¡¸ÂÃã ¼¿  (°¢°¢ CHUNK ´ÜÀ§·Î À̾ ÀúÀå, ±¸ºÐÀÚ ¼¿ "|")
Private Function AF_SnapSheet(ByVal wb As Workbook, ByVal createIfMissing As Boolean) As Worksheet
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = wb.Worksheets(SNAP_SHEET)
    On Error GoTo 0
    If ws Is Nothing And createIfMissing Then
        On Error Resume Next
        Set ws = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count))
        If Not ws Is Nothing Then
            ws.name = SNAP_SHEET
            ws.Visible = xlSheetVeryHidden
        End If
        On Error GoTo 0
    End If
    Set AF_SnapSheet = ws
End Function

Private Function AF_FindRow(ByVal snap As Worksheet, ByVal sheetName As String) As Long
    Dim r As Long
    For r = 1 To snap.cells(snap.rows.Count, 1).End(xlUp).row
        If snap.cells(r, 1).value = sheetName Then AF_FindRow = r: Exit Function
    Next r
End Function

Private Sub AF_Snapshot(ByVal ws As Worksheet, ByVal rng As Range)
    Dim snap As Worksheet, r As Long, c As Range, col As Range, rw As Range
    Dim sW As String, Sh As String, sWrap As String, sShr As String, colIdx As Long
    Dim orig As Worksheet
    Set orig = ActiveSheet
    Set snap = AF_SnapSheet(ws.parent, True)
    If snap Is Nothing Then
        orig.Activate
        MsgBox "µÇµ¹¸®±â Á¤º¸¸¦ ÀúÀåÇÒ ¼ö ¾ø¾î(ÅëÇÕ ¹®¼­ ±¸Á¶ º¸È£ µî) µÇµ¹¸®±â ¾øÀÌ ÁøÇàÇÕ´Ï´Ù.", vbExclamation, "¼¿°£°ÝÁ¤¸®"
        Exit Sub
    End If
    r = AF_FindRow(snap, ws.name)
    If r > 0 Then Exit Sub                     ' ù ½ÇÇà »óŸ¦ À¯Áö(µÇµ¹¸®±â Àü±îÁö µ¤¾î¾²Áö ¾ÊÀ½)
    r = snap.cells(snap.rows.Count, 1).End(xlUp).row + 1
    If snap.cells(1, 1).value = "" Then r = 1

    For Each col In rng.Columns
        sW = sW & col.Column & ":" & col.ColumnWidth & IIf(col.hidden, "h", "") & ";"
    Next col
    For Each rw In rng.rows
        Sh = Sh & rw.row & ":" & rw.RowHeight & IIf(rw.hidden, "h", "") & ";"
    Next rw
    For Each c In rng.cells
        If c.WrapText Then sWrap = sWrap & c.Address(False, False) & ";"
        If c.ShrinkToFit Then sShr = sShr & c.Address(False, False) & ";"
    Next c

    With snap
        .cells(r, 1).value = ws.name
        .cells(r, 2).value = Format$(Now, "yyyy-mm-dd hh:nn:ss")
        .cells(r, 3).value = rng.Address(False, False)
        On Error Resume Next
        .cells(r, 4).value = ws.PageSetup.Orientation
        .cells(r, 5).value = ws.PageSetup.PaperSize
        .cells(r, 6).value = ws.PageSetup.Zoom
        .cells(r, 7).value = ws.PageSetup.FitToPagesWide
        .cells(r, 8).value = ws.PageSetup.FitToPagesTall
        On Error GoTo 0
        colIdx = 9
        AF_PutLong snap, r, colIdx, sW
        AF_PutLong snap, r, colIdx, Sh
        AF_PutLong snap, r, colIdx, sWrap
        AF_PutLong snap, r, colIdx, sShr
    End With
    orig.Activate
End Sub

' ±ä ¹®ÀÚ¿­À» CHUNK ´ÜÀ§·Î ¿©·¯ ¼¿¿¡ ³ª´² ¾²°í ¸¶Áö¸·¿¡ "|" ±¸ºÐ ¼¿À» µÐ´Ù
Private Sub AF_PutLong(ByVal snap As Worksheet, ByVal r As Long, ByRef colIdx As Long, ByVal s As String)
    Dim pos As Long
    pos = 1
    Do While pos <= Len(s)
        snap.cells(r, colIdx).NumberFormat = "@"
        snap.cells(r, colIdx).value = Mid$(s, pos, CHUNK)
        colIdx = colIdx + 1
        pos = pos + CHUNK
    Loop
    snap.cells(r, colIdx).value = "|"
    colIdx = colIdx + 1
End Sub

Private Function AF_GetLong(ByVal snap As Worksheet, ByVal r As Long, ByRef colIdx As Long) As String
    Dim s As String, v As String
    Do
        v = CStr(snap.cells(r, colIdx).value)
        colIdx = colIdx + 1
        If v = "|" Then Exit Do
        If Len(v) = 0 Then Exit Do
        s = s & v
    Loop
    AF_GetLong = s
End Function

Public Sub AF_Restore(ByVal ws As Worksheet)
    Dim snap As Worksheet, r As Long, colIdx As Long, rng As Range
    Dim sW As String, Sh As String, sWrap As String, sShr As String
    Dim parts() As String, kv() As String, i As Long, isHidden As Boolean, num As String
    Set snap = AF_SnapSheet(ws.parent, False)
    If Not snap Is Nothing Then r = AF_FindRow(snap, ws.name)
    If r = 0 Then
        MsgBox "'" & ws.name & "' ½ÃÆ®¿¡´Â µÇµ¹¸± ¼¿°£°ÝÁ¤¸® ±â·ÏÀÌ ¾ø½À´Ï´Ù." & vbCrLf & _
               "(1~3¹ø Á¤¸®¸¦ ½ÇÇàÇÏ¸é ½ÇÇà Àü »óÅ°¡ ÀÚµ¿ ÀúÀåµË´Ï´Ù.)"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    On Error Resume Next
    Set rng = ws.Range(CStr(snap.cells(r, 3).value))
    On Error GoTo 0
    colIdx = 9
    sW = AF_GetLong(snap, r, colIdx)
    Sh = AF_GetLong(snap, r, colIdx)
    sWrap = AF_GetLong(snap, r, colIdx)
    sShr = AF_GetLong(snap, r, colIdx)

    ' Áٹٲޡ¤¼¿¿¡ ¸ÂÃã: ¹üÀ§ Àüü ÇØÁ¦ ÈÄ ±â·ÏµÈ ¼¿¸¸ º¹¿ø
    If Not rng Is Nothing Then
        rng.WrapText = False
        rng.ShrinkToFit = False
    End If
    parts = Split(sShr, ";")
    For i = 0 To UBound(parts)
        If Len(parts(i)) > 0 Then ws.Range(parts(i)).ShrinkToFit = True
    Next i
    parts = Split(sWrap, ";")
    For i = 0 To UBound(parts)
        If Len(parts(i)) > 0 Then ws.Range(parts(i)).WrapText = True
    Next i

    ' ¿­ ³Êºñ
    parts = Split(sW, ";")
    For i = 0 To UBound(parts)
        If InStr(parts(i), ":") > 0 Then
            kv = Split(parts(i), ":")
            num = kv(1): isHidden = (Right$(num, 1) = "h")
            If isHidden Then num = Left$(num, Len(num) - 1)
            ws.Columns(CLng(kv(0))).ColumnWidth = CSng(num)
            ws.Columns(CLng(kv(0))).hidden = isHidden
        End If
    Next i
    ' Çà ³ôÀÌ
    parts = Split(Sh, ";")
    For i = 0 To UBound(parts)
        If InStr(parts(i), ":") > 0 Then
            kv = Split(parts(i), ":")
            num = kv(1): isHidden = (Right$(num, 1) = "h")
            If isHidden Then num = Left$(num, Len(num) - 1)
            ws.rows(CLng(kv(0))).RowHeight = CSng(num)
            ws.rows(CLng(kv(0))).hidden = isHidden
        End If
    Next i
    ' ÆäÀÌÁö ¼³Á¤
    On Error Resume Next
    With ws.PageSetup
        .Orientation = snap.cells(r, 4).value
        .PaperSize = snap.cells(r, 5).value
        If snap.cells(r, 6).value = False Or snap.cells(r, 6).value = 0 Then
            .Zoom = False
            .FitToPagesWide = snap.cells(r, 7).value
            .FitToPagesTall = snap.cells(r, 8).value
        Else
            .Zoom = snap.cells(r, 6).value
        End If
    End With
    On Error GoTo 0

    snap.rows(r).Delete                       ' ±â·Ï ¼Ò°Å(´ÙÀ½ Á¤¸® ¶§ »õ·Î ÀúÀå)
    If snap.cells(1, 1).value = "" Then
        On Error Resume Next
        Application.DisplayAlerts = False
        snap.Visible = xlSheetVisible
        snap.Delete
        Application.DisplayAlerts = True
        If Err.Number <> 0 Then Err.Clear: snap.Visible = xlSheetVeryHidden
        On Error GoTo 0
    End If
    ws.Activate
    Application.ScreenUpdating = True
    AF_Info "'" & ws.name & "' ½ÃÆ®¸¦ ¼¿°£°ÝÁ¤¸® ÀÌÀü »óÅ·ΠµÇµ¹·È½À´Ï´Ù." & vbCrLf & _
           "(¿­ ³Êºñ¡¤Çà ³ôÀÌ¡¤Áٹٲޡ¤¼¿¿¡ ¸ÂÃ㡤Àμ⠹æÇâ)"
End Sub