엑셀 vba 들여쓰기_초기화

Sub 들여쓰기_초기화()

  Application.Calculation = xlCalculationManual

  Application.ScreenUpdating = False

  

    olines = Last_Lines_입력자동화("A")

    

    For i = 1 To olines

      indvalue = Range("A5").Offset(i, 3).IndentLevel

      If indvalue <> 0 Then

        Range("A5").Offset(i, 3).InsertIndent (-indvalue)

      End If

    Next

       

  Application.Calculation = xlCalculationAutomatic

  Application.ScreenUpdating = True

  

End Sub

Sub 들여쓰기_초기화_선택만()

  Application.Calculation = xlCalculationManual

  Application.ScreenUpdating = False

  

      indvalue = Selection.IndentLevel

      If indvalue <> 0 Then

        Selection.InsertIndent (-indvalue)

      End If

       

  Application.Calculation = xlCalculationAutomatic

  Application.ScreenUpdating = True

  

End Sub

.