VBA강좌

Frequently Asked Questions
질문을 하시기 전에 이미 있는 내용인지 먼저 살펴보시기 바랍니다.

78,147

01. 시트 탭의 색깔과 폰트를 바꿀 수 있나요?

02. 여러 개의 중복되는 자료 중에서 중복되지 않는 자료들만 추출하려면?

03. 글자가 갑자기 이상하게(깨지거나 겹쳐져서) 나타나요!

04. 숫자를 한글로 바꿀 수 있나요?

NumberString 함수, 사용자 정의 서식, 사용자 정의 함수 등의 방법을 통해 가능합니다.

방법 1: NumberString() 함수 사용(관련 강좌 : X0089)

숫자	변환값	사용 방법
1,234,567,890	십이억삼천사백오십육만칠천팔백구십	=NumberString(A1,1)
1,111,111	壹百壹拾壹萬壹阡壹百壹拾壹	=NumberString(A2,2)
123,123,123	일이삼일이삼일이삼	=NumberString(A3,3)

방법 2. 사용자 정의 서식 사용(관련 강좌 : X0118)

숫자	변환값	사용자 정의 서식
123	百二十三	[dbnum1]
	壹百貳拾參	[dbnum2]
	百2十3	[dbnum3]
	백이십삼	[dbnum4]

방법 3 : 사용자 정의 함수 사용(관련 강좌 : VB0057)

Function Num2Kor(XXX) As String
    Dim strInput As String
    Dim strOutput As String
    Dim strTemp As String
    Const strChar As String = "일이삼사오육칠팔구"
    Dim i As Integer
    Dim intLen As Integer
    Dim blnOK As Boolean
    strInput = CStr(XXX)
    intLen = Len(strInput)

    For i = intLen To 1 Step -1
        strTemp = Mid(strInput, intLen - i + 1, 1)
        If Val(strTemp) <> 0 Then
            strOutput = strOutput & Mid(strChar, Val(strTemp), 1)

            Select Case i Mod 4
                Case 0: strOutput = strOutput & "천"
                Case 3: strOutput = strOutput & "백"
                Case 2: strOutput = strOutput & "십"
            End Select
            blnOK = True
        End If

        If blnOK Then
        Select Case i
            Case 13
                strOutput = strOutput & "조"
                blnOK = False
            Case 9
                strOutput = strOutput & "억"
                blnOK = False
        Case 5
                strOutput = strOutput & "만"
                blnOK = False
        End Select
        End If
    Next i
    Num2Kor = strOutput & " 원정"
End Function

05. 중복되는 자료 중에서 하나씩만 추려낼 수 있습니까?

06. 아래아 한글로 작성한 표를 엑셀로 불러올 수 있나요?

방법 1: 메모장을 이용하는 방법

Excel 문서 중 일부를 복사해서 아래아 한글에서 붙여넣기를 하면 (원하지 않아도) 표가 만들어집니다. 이런 경우에는

① Excel에서 "복사"를 합니다.

② 메모장(또는 텍스트 에디터)을 열고 붙여넣기를 합니다.

③ 메모장의 내용을 다시 복사한 다음 아래아 한글로 가서 붙여넣기를 합니다.

방법 2 : 아래아 한글 문서의 일부를 엑셀로 불러오는 방법

아래아 한글 문서 중 일부만을 엑셀로 가져오는 것은 아주 쉽습니다. 그냥 '복사-붙여넣기'만 하면 되지요. 그런데 아래아 한글 문서 중 표를 Excel로 가져오려면 몇 단계를 거쳐야 합니다.

① 아래아 한글 문서에서, 커서를 표 외부에 위치시킵니다.

② Shift 키와 방향키를 함께 사용하여 표를 블럭으로 지정합니다.

③ 표 메뉴 중에서 표를 문자열로라는 메뉴를 선택합니다.

④ 분리 방법을 지정합니다(대체로 디폴트 값인 탭을 선택하시면 됩니다).

이 때 표 안의 한 셀에 여러 줄이 겹쳐질 경우, 셀의 크기를 조절해서 한 줄에 모두 표시되도록 해 주어야 합니다.

⑤ 표가 문자열로 나뉘어지면, 그것을 블럭으로 지정하고 복사한 다음 Excel에 붙여 넣습니다.

방법 3 : Html 형식을 매개로 하는 방법

아래아 한글 문서와 Excel 문서는 모두 Text 파일 포맷과 Html 문서 포맷을 지원합니다. 그러므로 아래아 한글의 문서를 Html 문서로 저장했다가 Excel에서 불러들이거나 그 반대의 경우도 가능합니다. 위 (1), (2)에서 해결이 안되는 경우 이 방법을 사용하세요.

07. "파일을 열 수 없습니다..."라는 에러 메시지가 뜨면서 파일이 열리지 않아요!

Microsoft 기술자료를 참고로 정리해 보았습니다.
　

일단 파일이 열리기는 열리는 경우
　

(방법 1) 파일을 HTML 문서로 저장한다.
　

(1) "파일-다른 이름으로 저장" 메뉴를 선택합니다.
(2) "파일 형식" 항목에서 "웹 페이지(*.html; *.htm)"를 선택합니다.
(3) 다른 이름으로 저장 대화상자에서 "전체 통합 문서"를 선택하고 "저장" 버튼을 클릭합니다.
(4) EXCEL에서 위 문서(html로 저장한 문서)를 다시 open합니다.
(5) "파일-다른 이름으로 저장" 메뉴에서 "파일 형식"을 "Microsoft Excel 통합 문서"로 하여 다시 저장합니다. HTML 포맷으로 저장할 경우, 일부 내용은 손실될 수 있습니다.
　
(방법 2) 파일을 SYLK 형식으로 저장한다.
　

(방법 1)과 거의 비슷합니다. (2) 단계에서 "Symbolic Link(*.slk)"를 선택하는 것이 다릅니다.
　
(방법 3) 워크시트로 작업하는 도중 갑자기 파일이 손상되었을 때
　

(1) "파일-열기" 메뉴를 선택한 다음 지금 작업중인 파일명을 선택합니다.
(2) "... 이미 열려 있습니다. 다시 열면 편집한 내용을 잃게 됩니다..." 이런 메시지가 뜨는데 "확인"을 클릭합니다. 이 방법은 현재 작업중인 파일을 가장 최근에 저장된 상태의 파일로 되돌리는 것입니다. 따라서 파일을 한번도 저장하지 않은 상태라면 곤란하겠지요?

파일이 열리지조차 않는 경우
　

(방법 1) 파일을 Microsoft Word나 WordPad, 다른 Spread Sheet로 열어 본다.

손상된 EXCEL 파일을 Word로 열었을 경우, Module Sheet나 Dialog Sheet, Chart Sheet 등은 복구가 안됩니다. 또한 공식이 입력된 셀의 경우, 그 결과값만을 볼 수 있게 됩니다. WordPad로 파일을 열었을 경우에는 Visual Basic Code를 복구할 수 있습니다.
　
(방법 2) 파일을 EXCEL Viewer로 열어 본다.

만약 Microsoft Excel Viewer가 설치되어 있다면 손상된 파일을 뷰어로 열어 봅니다. 그래서 내용이 나타나면 EXCEL에서 새로운 워크북을 하나 만들고 뷰어의 내용을 "복사-붙여넣기" 합니다. 하지만 이 경우에도 Module Sheet나 UserForm 등은 복구할 수 없고, 공식이 입력된 셀의 경우에도 Formula는 복구가 안되고 결과값만을 볼 수 있습니다.
EXCEL Viewer Download
　
(방법 3) 외부참조(External References) 방법을 사용한다(관련 강좌 : X0160)

파일이 손상을 입업을 경우 가장 보편적인 복구 방법은 외부참조 방법을 사용하여 값을 추출해 내는 것입니다. 단 이 방법을 사용할 경우에는 파일의 구조를 손상된 파일과 완전히 같도록 만들어 두어야 합니다. 파일이 열리는 경우에도 이 방법을 사용할 수 있습니다.
　
CASE 1
① "파일-열기" 메뉴에서 손상된 파일이 있는 폴더를 선택하고 "취소" 버튼을 클릭합니다.
② "파일-새로 만들기" 메뉴에서 "새 통합문서"를 선택하고 "확인"을 클릭합니다.
③ 새 워크북 파일의 A1 셀에 "=손상된 파일명!A1"(인용부호는 빼고) 이라고 입력합니다. 만약 "시트선택" 대화상자가 나타나면 적절한 시트를 선택하고 "확인"버튼을 선택합니다.
④ A1셀을 선택한 다음 "편집-복사"를 선택합니다. 손상된 파일의 데이터 부분과 같은 크기만큼 범위를 정한 다음 "편집-붙여넣기" 합니다.
⑤ 범위가 선택되어진 상태에서 "복사-붙여넣기-값 복사"를 합니다.
　
CASE 2
① "파일-새로 만들기-새 통합문서-확인"을 차례로 선택합니다.
② "파일-열기" 메뉴를 선택하고 손상된 파일이 있는 폴더를 선택한 다음 "취소" 버튼을 클릭합니다.
③ 첫 번째 파일(손상된 파일)의 A1 셀을 선택하고 "편집-복사"를 선택합니다(파일이 열리기는 하는 경우).
④ 두 번째 워크북(새로 삽입한 파일) 파일의 A1 셀을 선택하고, "편집-선택하여 붙여넣기" 메뉴에서 "연결하여 붙여넣기"를 선택합니다.
⑤ 다시 A1 셀을 선택하고 절대주소를 상대주소로 바꾸어 줍니다. 예를 들어, =[Book5]Sheet1!$A$1
이런 식으로 주소가 입력되어 있다면, =[Book5]Sheet1!A1 이렇게 바꾸어 줍니다.
　
⑥ A1 셀을 선택하고 "편집-복사" 메뉴를 선택합니다.
⑦ 손상된 파일의 데이터 영역과 같은 크기만큼(예를 들면 A1:H100) 선택한 다음 "붙여넣기" 메뉴를 선택합니다.
⑧ 현재 상태(영역이 선택되어져 있는 상태)에서 "편집-연결" 메뉴를 선택합니다.
⑨ 연결 대화상자에서 "원본 변경"을 클릭하면 대화상자가 하나 나타나는데 여기서 손상된 파일을 선택하고 "확인".
⑩ 역시 범위가 선택되어져 있는 상태에서 "편집-복사", "편집-선택하여 붙여넣기-값 복사-확인"을 차례로 선택합니다.

08. 엑셀을 다운받을 수 있는 방법을 알려주세요!

09. 머리글이나 바닥글에 회사 로고를 삽입할 수 있나요?

11. 한 셀에 값을 누적해서 입력할 수 있나요? [VBA]

12. '셀 서식이 너무 많습니다...' 라는 메시지가 나타나요!

13. 16 이상의 원문자를 사용하려면 어떻게 해야 하나요?

14. 카메라 기능이 제대로 작동하지 않아요!

15. 자동 필터 시, 상태 표시줄에 '필터 상태'라고만 나타나요!

보통 자동 필터를 실행하면, "OOO개 중 OO개의 레코드가 있습니다." 라는 메시지가 나타납니다. 이것은 전체 레코드 중에서 필터링 된 결과 레코드가 몇 개인지를 나타내주는 기능입니다. 그런데 이런 메시지 대신 '필터 상태' 라고만 표시되는 경우가 가끔씩 있습니다. 이것은 테이블 내에 '51개 이상의 수식이 들어있고, 각 수식이 하나 이상의 셀 참조를 하고 있는 경우' 나타나는 문제라고 합니다. 보다 자세한 내용은 다음 문서를 참고하세요.

XL2000: Excel AutoFilter Status Bar Message Shows "Filter Mode"

이러한 증상은 다음과 같은 두 가지 방법에 의해 해결할 수 있습니다.

방법 1: 계산 방법을 '수동'으로 지정하는 방법

(1) '도구 - 옵션' 메뉴를 선택합니다.

(2) '계산' 탭을 선택합니다.

(3) 계산 부분에서 '수동' 항목에 체크를 하고 '확인' 버튼을 클릭합니다.

이렇게 하고 필터링을 해보면, 수식이 많더라도 필터 결과 메시지가 제대로 표시가 됩니다. 하지만 사용된 각종 수식이 자동으로 계산되지 않으므로 <F9> 키를 눌러 계산을 필요할 때마다 하거나 혹은 계산 방법을 다시 '자동'으로 바꿔 주어야 합니다.

방법 2: SubTotal 함수를 이용하는 방법

우리가 잘 알고 있는 SubTotal 함수를 이용하면 보다 간편하게 이 문제를 해결할 수 있습니다. 필터링 결과를 표시하려는 셀에 다음과 같은 수식을 입력합니다.

=COUNTA(대상 영역)&"개 중"&SUBTOTAL(3,대상 영역)&"개의 데이터가 있습니다."

SubTotal 함수 앞의 숫자 인수를 다른 것으로 지정하면 보다 다양한 계산 방법을 이용하실 수 있습니다. SubTotal 함수에 대한 보다 자세한 사용은 도움말이나 X0178 강좌를 참고하시기 바랍니다.

16. 숫자가 제대로 계산되지 않아요!

17. 매크로를 삭제했는데 왜 파일을 열 때마다 '매크로 포함' 여부를 묻나요? [VBA]

Sub DisplaySheets()

    Dim shtSheet As Worksheet

    For Each shtSheet In Sheets
        If shtSheet.Visible = xlSheetHidden Or _
            shtSheet.Visible = xlSheetVeryHidden Then
            shtSheet.Visible = xlSheetVisible
        End If
    Next shtSheet

End Sub

(1) 워크시트 상태에서 '도구-매크로-Visual Basic Editor' 메뉴를 선택합니다.

(2) VB Editor 상태에서 '보기-프로젝트 탐색기' 메뉴를 선택합니다.

(3) 매크로를 제거하려는 파일을 선택하고 'VBA Project(파일명)' 앞에 있는 '+' 기호를 눌러 해당 프로젝트, 즉 파일을 확장^Expand합니다. 모듈^Module이나 유저폼^UserForm, 클래스 모듈^{Class
Module}이란 것들이 있으면 이것도 확장합니다.

(4) 각각의 모듈, 유저폼, 클래스 모듈을 마우스 오른쪽 버튼으로 클릭하면 단축 메뉴가 나타나는데, 'OOOO 제거'를 선택합니다.

(5) 해당 개체를 내보낼 것인지를 묻는 대화상자가 나타나는데, 해당 개체를 저장하려면 '예', 그럴 필요가 없으면 '아니오'를 클릭합니다.

이번에는 이벤트 핸들러 프로시저^{Event Handler Procedure}를 제거할 차례입니다.

(1) ThisWorkbook 개체나 Sheet1, Sheet2 등을 더블 클릭합니다.

(2) 화면 오른쪽 코드창^{Code Window}에 코드가 나타나면 모두 지웁니다.

이것 말고도 정의되어 있는 이름^Name이 매크로를 참조하고 있는 경우도 있습니다.

(1) 워크시트 상태에서, '삽입-이름-정의' 메뉴를 선택합니다.

(2) 정의되어 있는 이름 중에 auto_open, auto_close 등과 같이 'auto'라는 접두사가 포함되어 있는 경우 모두 삭제합니다.

(3) 그리고 '참조 영역' 부분에 'Get.Cell(...)' 등과 같이 Excel4Macro 함수를 참조하는 이름이 있는 경우 역시 모두 삭제합니다.

마지막으로, 다음 코드를 실행하여 숨겨져 있는 이름에 대해서도 확인을 합니다.

Sub ShowAllNames()

Dim nmeName As Name

For Each nmeName In ActiveWorkbook.Names

nmeName.Visible = True

Next nmeName

End Sub

18. 행/열 머리글의 일부만 표시하려면 어떻게 해야 하나요?

어떤 강좌 파일은 행이나 열 머리글의 일부만 보이고 나머지는 없는 것이 있는데 이것은 어떻게 하는 것인지에 대한 문의가 흔히 있습니다.

(1) 숨기려는 위치가 시작되는 행(또는 열) 머리글을 마우스로 클릭합니다.

(2) <Ctrl+Shift+아래쪽 방향키(

(3) 선택된 영역 내의 임의의 행(또는 열) 머리글을 마우스 오른쪽 버튼으로 클릭하고 '숨기기' 메뉴를 선택합니다.

만약 숨긴 영역을 다시 표시하려면, 전체 셀 선택 버튼^{Exceller가 붙여본 이름으로, 행과 열 머리글이 만나는 지점에 있는 회색
버튼을 의미}을 클릭한 다음, 행 또는 열 머리글을 오른쪽 마우스 버튼으로 클릭하고 '숨기기 취소' 메뉴를 선택합니다.

19. 행 머리글이 숫자로 나타나요!

(4) '확인' 버튼을 클릭하면 행 머리글이 원래 상태로 되돌아 옵니다.

20. 화면에 보이는 영역만 복사할 수 없나요?

(5) 선택된 영역을 '복사'한 다음 원하는 위치에 '붙여넣기' 합니다.

21. 파일 용량이 갑자기 커졌어요!

(4) '마지막 데이터 셀' 항목과 '개체' 항목을 각각 선택하여 의도하지 않은 데이터나 개체가 있으면 삭제합니다.

22. 라이브러리가 누락되어 매크로를 실행할 수 없다고 하는데요? [VBA]