에러처리
개인적으로는 에러가 나면, 그냥 종료시키는 형태를 많이 썼는데, 남들은 아래 방식으로 많이 처리를 하는 것 같다.
에러가 나는 이유를 알아서 나쁠 것 없으므로, 귀찮지만, 에러가 나는 코드에 하나씩 넣어주고 있다.
평소엔 에러가 그리 많이 나더니, 예시를 만드려고, 강제로 나게 하는 것도 생각을 해야하는구나..
Sub err_check_msg()
Dim myVal As Integer
On Error GoTo Err_Check
myVal = InputBox("숫자를 입력하세요")
Err_Check:
If Err.Number <> 0 Then
MsgBox "오류번호 : " & Err.Number & vbCr & _
"오류내용 : " & Err.Description, vbCritical, "오류"
End If
End Sub
끝.