이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:4]](http://www.abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1613point (21%), 레벨:4/30"){kind=icon}
고수가되고파운영체제 : win7
엑셀 : 2010 sp1
첨부된 예제에서 매크로를 실행하면 나오는 대화상자에서 InputBox메서드가 Type:=8 이므로
범위만 입력할 수 있습니다.
질문1)
문자, 숫자를 입력하면 MsgBox함수로 에러처리를 하려면 어떻게 하여야 하는지요?
질문2)
첨부된 파일의 코드에는 on error를 이용하여 "취소" 선택시 MsgBox함수로 에러처리를 하였는데요.
Type:=8을 변경하지 않은 상태에서 on error를 이용하지 않고 "취소" 선택시 MsgBox함수로 에러처리를 하고,
문자, 숫자 입력 시 MsgBox함수로 에러처리를 하는 방법도 있는지요?
질문3)
범위 입력시 F3 셀만 선택하고 "확인"을 누르면 나오는 msgbox함수에서 "확인"을 누르면 또다시 msgbox함수가 나오는데요.
원인이 무엇인지요?
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142083point, 레벨:30/30"){kind=icon}
아별
안녕하세요? 고수가되고파님..
닉네임에서 절실함이 느껴집니다. ^^
열심히 공부하시는걸 보니.. 금방 고수가 되실 수 있을 것 같습니다.
답변1)
해보시면 아시겠지만.. type을 8로 지정하셨기 때문에 범위가 아닌 값을 입력하고 확인을 입력하면..
inputbox자체에서 에러 문구를 띄웁니다. 따로 코딩하실 필요가 없습니다.
답변2)
지금 하신 코딩이 취소 버튼을 클릭했을때의 올바른 처리입니다.
If rngSelection Is Nothing Then 에러메시지..
On Error Error Resume Next 와 On Error GoTo 0는 불필요한 코딩인 것 같습니다. 해당 행들은 삭제해주세요..
답변3)
일단 로직 자체가 잘 못 되었습니다.
상수 중에 숫자로 된 셀들 안에서 수식이 있는 셀을 검사하는 것 자체가 오류입니다.
수식이 아닌 상수만 있는 셀만을 대상으로 해서 수식이 있는 셀인지 검사한다는것인데요.. 항상 해당하는 것이 없을 수 밖에 없습니다.
For Each rngC In rngSelection.SpecialCells(xlCellTypeConstants, xlNumbers)
If rngC.HasFormula Then
rngC.Interior.Color = vbGreen
Else
MsgBox "해당되는 셀이 없습니다.", vbOKOnly + vbInformation, strTitle
End If
Next rngC
첨부파일을 참고하세요..
다운받기 : 예제(에러처리) (1).xlsm