당신은 링크`에 익숙하지 않은 경우 : / VBA – 예 – 오류 처리 [오류 처리]`

그러나, 우리는 매우 먼저이 예제를 읽을 것을 권장합니다. 엑셀 VBA에서 오류가 발생하면, Err 개체의 속성 정보로 채워진다.

상황 :

이 프로그램은 아래 숫자의 제곱근을 계산합니다.

Err Object in Excel VBA

  1. 명령 단추

및 워크 시트에하면 다음 코드 줄을 추가

Dim rng As Range, cell As Range

Set rng = Selection

For Each cell In rng

On Error GoTo InvalidValue:

cell.Value = Sqr(cell.Value)

Next cell

Exit Sub

InvalidValue:

MsgBox Err.Number & " " & Err.Description & " at cell " & cell.Address

Resume Next

시트에 명령 단추를 클릭하십시오 : 당신이 범위 ( “B6 B2를”)를 선택하면 결과

Err Object Result

Err Object Result

설명 : 에러 발생시 Err 개체의 수 속성이 현재의 에러의 고유 번호 및 오류 설명 속성 가득 현재 오류의 오류 정보로 채워진다.

  1. 이러한 설명은 프로그램의 사용자들에게 큰 도움이되지 않을 수 있습니다. 다음과 같이 매크로의 마지막 부분을 수정하여 오류 메시지보다 사용자 친화적 만들 수 있습니다

InvalidValue:

Select Case Err.Number

Case Is = 5

MsgBox "Can't calculate square root of negative number at cell " & cell.Address

Case Is = 13

MsgBox "Can't calculate square root of text at cell " & cell.Address

End Select

Resume Next

팁 : 우리의`링크를 통해 이동 : / VBA – 예 – 선택의 경우는 [선택 케이스]`프로그램을 선택 케이스 구조에 대해 더 배우고.

결과 :

Friendly Message

Friendly Message