엑셀 VBA(매크로) - 엑셀에서 스타일(Style) 제거 방법

이미 만들어 놓은 엑셀 양식을 여러사람이 사용하면 시간이 지날수록 속도가 점차 느려집니다.

 

이때 해결하는 방법 중 스타일을 제거하는 방법이 있습니다.

 

엑셀 메뉴에서 홈 메뉴 버튼을 클릭합니다.

 

'홈'메뉴에서 오른쪽에 스타일을 보시면 처음보는 여러 스타일이 있는 것을 확인하실 수 있습니다.

 

이때 매크로를 사용해서 지우시면 간단하게 필요없는 스타일을 지울 수 있습니다.

 

매크로 사용방법은 아래 링크를 클릭하세요 ↓

2020/10/25 - [IT와 친해지기/엑셀 VBA 자료실] - 엑셀VBA(매크로) - 시작하기

엑셀VBA(매크로) - 시작하기

 

'개발 도구' 매뉴에서 "Visual Basic"을 클릭합니다.

아래 그림과 같이 마우스 오른쪽을 클릭한 후 "파일 가져오기(I)..." 을 클릭합니다.

포스트 아래에 공유한 파일을 아래 그림과 같이 선택 하세요.

※ 메모장으로 미리 열어 보시면 아시겠지만 이상한 바이러스 코드 없는 깨끗한 코드이니 걱정마시고 다운로드 받으세요.

모듈파일을 가지고 온 모습

아래의 모듈 파일을 가져오시면 위의 그림과 같이 "스타일제거"라는 이름의 모듈이 추가 된 것을 볼 수 있습니다.

 

이 모듈을 더블클릭 합니다.

 

위의 그림과 같이 이렇게 코드창이 나옵니다. 

위의 그림에 붉은색 네모 박스와 같이 초록색 재생버튼 같이 생긴 버튼을 누릅니다.

 

지우는데 시간이 좀 걸립니다. 커피를 한 잔 하시고 오시거나, 담배를 피우고 오시면 깨끗하게 지워진 것을 확인 하실 수 있습니다.

 

기본 스타일만 남고 필요없는 스타일은 전부 지워졌습니다.

 

아래는 "스타일지우기" 모듈 파일입니다. ↓

스타일제거.bas

0.00MB

모듈 파일 전체 코드는 아래와 같으니 참고하세요

 

직접 타이핑 하셔도 되고요

Sub RebuildDefaultStyles()
 
  Dim MyBook As Workbook
  Dim tempBook As Workbook
  Dim CurStyle As Style
 On Error Resume Next '//오류가 발생하도 무시하고 계속 진행
 'Set MyBook to the active workbook.
  Set MyBook = ActiveWorkbook
  
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  
 
 'Delete all the styles in the workbook.
  For Each CurStyle In ActiveWorkbook.Styles
      If Not (CurStyle.BuiltIn) Then CurStyle.Delete  '//기본 스타일이 아닐 경우에만 삭제
  Next CurStyle
 
 'Open a new workbook.
  Set tempBook = Workbooks.Add
 
 'Disable alerts so you may merge changes to the Normal style
  'from the new workbook.
 
  Application.DisplayAlerts = False
 'Merge styles from the new workbook into the existing workbook.
  MyBook.Styles.Merge Workbook:=tempBook
 
 'Enable alerts.
     Application.DisplayAlerts = True
 
 'Close the new workbook.
  tempBook.Close
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
 
 
End Sub