1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

VBA에러처리2

VBA 조회 수 2741 추천 수 0 2012.09.26 09:35:08

운영체제 : win7

엑셀 : 2010 sp1

 

질문1)

첨부된 예제의 "형식1" 워크시트에서 실행버튼을 누르고 나오는 대화 상자에서 F열, H열, J열, L열을 선택하고 확인을 누르면

원하는 목적이 달성됩니다. 그런데 "형식2" 워크시트에서 실행버튼을 누르고 나오는 대화 상자에서 F열, H열, J열, L열을 선택하고 확인을 누르면 대상이 없으므로 Msgbox로 "해당되는 셀이 없습니다" 라고 딱 1번만 나오게끔 하려는데 이게 잘 안되네요.

 

질문2)

"형식1" 워크시트에서 셀 1개만 선택하면 Msgbox로 "열 전체를 선택하세요"라고 처리했는데, 여기서 확인을 누르면 다시 InputBox로 돌아가게끔 했습니다. 그리고 다시 나오는 InputBox에서 "취소'버튼을 누르면 exit sub가 되는데 아니고 오류가 나네요. "취소"버튼을 누르면 exit sub로 되게끔 하려면 어떻게 해야 하는지요?

 

질문3)

선택영역에 숫자가 없을때의 오류처리인데요. 이리저리 생각해 봤는데 잘 안되네요.

코드에는 주석으로 표현된 부분인데요. 선택영역에 숫자가 1개라도 없다면 이라는 구문을 어떻게 표현해야 하는지요?

주석으로 표현한 것처럼

Cset IsNumeric(rngSelection.Cells)
MsgBox "선택영역에 숫자가 없으므로, 작업을 진행하지 않고 종료합니다.", vbOKOnly + vbInformation, Es
Exit Sub

이게 아니더라구요.

설사 표현했다하더리도 숫자가 1개만 있다면 for each 구문에서 선택영역이 1개이므로 이것도 문제가 될 것 같고요..

좋은 방법이 있는지요?


댓글 '5'

profile

[레벨:30]아별

2012.10.08 20:39:44
*.104.126.21

고수가되고파님..

안녕하세요? 제가 요즘 시간이 없어서 답변이 늦었습니다. ( 회사일 + 여행 + 개인적인 일 )

 

질문1번과 2번은 Do Loop문으로 해결 할 수 있습니다.

 

    strMsg = "'금액'이라는 문자가 있는 열을 선택하세요." & vbCr & vbCr & _
              "('금액'이라는 문자가 있는 열을 선택하지 않으면 올바르지 않은 결과를 초래합니다.)"
    Do
        On Error Resume Next
        Set rngSelection = Application.InputBox(strMsg, Es, Type:=8)
        If rngSelection Is Nothing Then
            MsgBox "취소 버튼을 누르셨네요.. 종료합니다."
            Exit Sub
        ElseIf rngSelection.Cells.Count = rngSelection.EntireColumn.Cells.Count Then
            bln = True
        Else
            bln = False
        End If
        If Err.Number <> 0 Or bln = False Then
            MsgBox "'금액'이라는 문자가 있는 열 전체을 선택하세요", vbOKOnly + vbCritical, "영역선택 오류"
        End If
        On Error GoTo 0
    Loop Until bln '### 선택행이 열 전체일때까지 반복 실행합니다.

 

 

질문3번은

숫자 셀만 영역 변수에 할당을 시키고.. 이때 발생하는 에러의 종류에 따라 처리하면 되겠습니다.

할당할 셀 영역이 없으면 1004 에러.. "해당되는 셀이 없습니다." 에러를 발생시키거든요..

 

    Dim rngNumber As Range
    On Error Resume Next
    Set rngNumber = rngSelection.SpecialCells(xlCellTypeConstants, xlNumbers)
    Select Case Err.Number
        Case 0
            rngNumber.Interior.Color = vbGreen
        Case 1004
            MsgBox "선택영역에 숫자가 없으므로, 작업을 진행하지 않고 종료합니다.", vbOKOnly + vbInformation, Es
        Case Else
            MsgBox "원인을 알 수 없는 에러가 발생하여 종료합니다."
    End Select

 

 

자세한 내용은 첨부파일을 참고하시기 바랍니다.

다운받기 : abyul.com_inputbox_20121008-1.xlsm

 

도움이 되셨기를.. ^^

첨부

[레벨:4]고수가되고파

2012.10.10 11:32:04
*.104.208.234

고맙습니다. 덕분에 잘 해결되었습니다, 복 받으세요^^

그런데, 이런 생각을 한번 해보았습니다. 굳이 InputBox로 범위를 전달 받아야만 하는가이죠.

*금*액* 이란 단어가 어느 행에 위치하는지 특정할 수가 없는 상황에서,

*금*액* 이라는 단어가 입력된 열을 찾아서 한방에 해결하는거죠.

물론, *금*액* 이라는 단어가 없는 경우가 있을 수 있으므로 MsgBox로 제어해야겠지만서두...

이런 생각을 해보았는데 가능은 한건가요?

profile

[레벨:30]아별

2012.10.11 16:06:06
*.104.126.21

다시 올리신 질문에 대한 답변으로 이 문제는 설명이 된 것 같네요..

http://www.abyul.com/zbxe/111532


찾은 결과가 없을 때는 아래처럼 처리합니다.

찾은 결과가 없으면 rng가 nothing이거든요.. IF문으로 검사해서 진행하면 되겠습니다.


Sub test()

    Dim rng As Range

    Set rng = Cells.Find("금 액")

    If rng Is Nothing Then

        MsgBox "그런 셀이 없습니다."

        Exit Sub

    Else

        '### 작업할 코드를 여기에 넣습니다.

    End If

End Sub


[레벨:4]고수가되고파

2012.10.10 18:58:04
*.104.208.234

한가지만 더 문의드릴께요.

만약 범위선택에서 빈 열을 선택하면 엉뚱한 메세지가 출력되는데요.

*금*액* 이라는 단어가 없는 열을 선택하면 "선택한 열에 금액이라는 단어가 없습니다." 라고 제어하고 싶다면 어떻게 수정이 되어야 하는지요? 오늘 이 것땜에 생각 많이 했는데 안되네요...

실력이 부족하네요...

profile

[레벨:30]아별

2012.10.11 16:06:33
*.104.126.21

바로 위 댓글을 참고하세요..

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40230
502 날짜/시간 수식 답변 너무 감사하구요 재문의 드립니다. file [5] [레벨:0]아민 2012-09-27 1793
501 VBA 개체와 컬렉션 [2] [레벨:4]고수가되고파 2012-09-26 2054
500 VBA 빠른실행도구모음 외 image [2] [레벨:4]고수가되고파 2012-09-26 2011
» VBA VBA에러처리2 file [5] [레벨:4]고수가되고파 2012-09-26 2741
498 VBA vba 에러처리 file [2] [레벨:4]고수가되고파 2012-09-23 2215
497 날짜/시간 수식 수식연동 좀 해 주셔요 file [6] [레벨:0]아민 2012-09-22 1480
496 VLookup 다른시트에 있는 연락처 옮겨오기 file [2] [레벨:1]뚱뚱만만 2012-09-20 1923
495 VBA 엑셀파일 검색후 불러오기 문의 file [3] [레벨:2]광택입니다 2012-09-19 2832
494 셀서식(표시형식) 아별님 다시 질문드려요, file [2] [레벨:2]북곰 2012-09-18 1799
493 엑셀일반 콤보박스의 값 하나를 선택하면 또 다른 목록이 보이는 콤보박스 만들기 등 file [2] [레벨:4]성투은자 2012-09-18 5556
492 엑셀일반 안녕하세요^^야별님.. file [2] [레벨:2]북곰 2012-09-16 1448
491 VBA vba속도 관련 외 file [2] [레벨:4]고수가되고파 2012-09-12 2005
490 VBA 파일&폴더 참조하고 있는 파일 열기 [1] [레벨:4]고수가되고파 2012-09-11 2463
489 차트 안녕하세요 아별님 file [2] [레벨:2]쿠라 2012-09-09 1865
488 엑셀일반 질문드립니다. file [2] [레벨:3]빛의행운아 2012-09-07 1570
487 아별툴관련질문 작은 창이 생겨서 사라지지 않습니다. imagefile [4] [레벨:3]이경남 2012-09-06 1574
486 엑셀일반 폼에 그림넣는법점알려주세여 [2] [레벨:2]snail0513 2012-09-05 1598
485 기타 요청한 항목을 찾을 수 없습니다. (hhttp/1.0 404) _ 외부 연결 끊기, 업데이트하지 않도록 옵션 설정하기 imagefile [6] [레벨:3]월전천넘 2012-09-05 3403
484 엑셀수식 분포도 그래프 [1] [레벨:5]눈물바다 2012-09-05 3070
483 SUMIF SUMIFS 관련 질문입니다!! [4] [레벨:3]jmsynn 2012-09-03 2410