あなたは、リンク に精通していない場合エラー処理

まだ、我々は非常にあなたが最初にこの例を読むことをお勧めします。エクセル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

あなたが範囲（「B2：B6」）を選択すると、結果とシート上のコマンドボタンをクリックします。

Err Object Result

Err Object Result

説明：エラーが発生した場合、Errオブジェクトの数プロパティは、現在の誤差の固有のエラー番号とDescriptionプロパティが充填されているが、現在のエラーのエラー内容が充填されています。

2.これらの記述は、あなたのプログラムのユーザーに非常に有用ではないかもしれません。あなたは、次のようなマクロの最後の部分を変更することによって、エラーメッセージがよりユーザーフレンドリーにすることができます

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

ヒント選択ケース] プログラム：私たちのリンクを通過します。

結果：

Friendly Message

Friendly Message