안녕하세요? 제가 요즘 시간이 없어서 답변이 늦었습니다. ( 회사일 + 여행 + 개인적인 일 )
질문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
고수가되고파님..
안녕하세요? 제가 요즘 시간이 없어서 답변이 늦었습니다. ( 회사일 + 여행 + 개인적인 일 )
질문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
도움이 되셨기를.. ^^