[vba]엑셀 맞춤법 검사 후 색칠하기

출처: http://blog.naver.com/dukuby/50188893300

좋은 정보 알려주신 "두꺼비"님 감사합니다.

1. 엑셀에서 맞춤법 검사를 하고 싶은 시트에서 Alt+F11 을 누른다.

2. 왼쪽 상단VBA 프로젝트창에서 해당 시트의 이름을 더블클릭한다.

3. 아래 코드를 입력한다.

4. F5를 눌러 코드를 실행한다.

5. 해당 시트에 돌아가서 확인한다.

Sub SpellCheck()

'

' 활성 시트의 셀을 순회하며 맞춤법 검사

' 맞춤법에 맞지 않는 단어가 입력된 셀 노란 배경 표시

'

Dim rUsed As Range, cCheck As Range

Set rUsed = ActiveSheet.UsedRange

For Each cCheck In rUsed

If Not Application.CheckSpelling(cCheck) Then _

cCheck.Interior.ColorIndex = 6

Next cCheck

End Sub