VBA 独自エラーを発生させる

VBAで、独自エラーを発生させるコードを記述してます。
環境
- OS windows10 64bit
独自エラーを発生
独自エラーを発生させるには、「Err.Raise 独自エラーNo,Description:=”独自メッセージ”」を使用します。
実際に適当なボタンを用意して、「Err.Raise」で独自エラーを発生させる
以下のソースコードを記述します。
ソースコード
Option Explicit
Private Sub CommandButton1_Click()
On Error GoTo EXCEPTION_SECTION
' 独自エラーを発生させる
Err.Raise 1000, Description:="独自エラーです"
EXCEPTION_SECTION:
With Err
MsgBox ("エラーナンバー" & .Number & .Description), vbOKOnly + vbExclamation + vbSystemModal
End With
GoTo EXIT_SECTION
EXIT_SECTION:
End Sub
独自エラーが発生していることが確認できます。

-
前の記事
javascript エラー「QuotaExceededError: The quota has been exceeded.」の解決方法 2022.08.12
-
次の記事
javascript tableのcaption要素を削除する 2022.08.12
コメントを書く