해보시면 아시겠지만.. 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)
해보시면 아시겠지만.. 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