NEW ARTICLE
WinSCP 選択中のファイルをコマンドラインに入力するショートカットキー
  1. HOME
  2. vba
  3. VBA 独自エラーを発生させる

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

  • 作成日 2022.08.12
  • vba
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

独自エラーが発生していることが確認できます。