이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
운영체제 : 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개이므로 이것도 문제가 될 것 같고요.. 좋은 방법이 있는지요?
MsgBox "선택영역에 숫자가 없으므로, 작업을 진행하지 않고 종료합니다.", vbOKOnly + vbInformation, Es
Exit Sub 이게 아니더라구요. 설사 표현했다하더리도 숫자가 1개만 있다면 for each 구문에서 선택영역이 1개이므로 이것도 문제가 될 것 같고요.. 좋은 방법이 있는지요?
댓글 '5'
다시 올리신 질문에 대한 답변으로 이 문제는 설명이 된 것 같네요..
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
고수가되고파님..
안녕하세요? 제가 요즘 시간이 없어서 답변이 늦었습니다. ( 회사일 + 여행 + 개인적인 일 )
질문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
도움이 되셨기를.. ^^