본문 바로가기

Engineer LARRY/3) 현장업무-공무

엑셀 수식없애는 매크로 (따라만하면 다 됨)

반응형

엑셀 매크로 실행 방법 (단계별 안내)


① VBA 편집기 열기
• Alt + F11 키를 누릅니다.
• VBA 편집기가 열립니다.

② 새 모듈 삽입
• 왼쪽의 VBAProject(통합문서 이름)에서 마우스 오른쪽 클릭
→ [삽입] > [모듈] 클릭
(또는 상단 메뉴 [삽입] > [모듈])

③ 코드 붙여넣기
• 아래 코드 붙여넣습니다:

코드블럭

Sub 모든시트_수식제거_값만남기기()
    Dim sht As Worksheet
    Dim rng As Range

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    For Each sht In ThisWorkbook.Worksheets
        With sht.UsedRange
            If Not .Cells Is Nothing Then
                .Value = .Value
            End If
        End With
    Next sht

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

    MsgBox "모든 시트의 수식이 제거되고 값만 남았습니다.", vbInformation
End Sub


텍스트


Sub 모든시트_수식제거_값만남기기()
    Dim sht As Worksheet
    Dim rng As Range

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    For Each sht In ThisWorkbook.Worksheets
        With sht.UsedRange
            If Not .Cells Is Nothing Then
                .Value = .Value
            End If
        End With
    Next sht

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

    MsgBox "모든 시트의 수식이 제거되고 값만 남았습니다.", vbInformation
End Sub

반응형