VBA わざとエラーを発生させる

• 作成日 2022.03.19
• vba
• vba

VBAで、わざとエラーを発生させるコードを記述してます。

目次

• 1. 環境
• 2. わざとエラーを発生

環境

• OS windows10 64bit

わざとエラーを発生

エラーを発生させるには、「Err.Raise エラーNo」を使用します。

実際に適当なボタンを用意して、「Err.Raise」でエラーを発生させる
以下のソースコードを記述します。

ソースコード

Option Explicit

Private Sub CommandButton1_Click()

On Error GoTo EXCEPTION_SECTION

' エラーNo 1を発生させる
Err.Raise 1

EXCEPTION_SECTION:

    With Err

        MsgBox (.Description), vbOKOnly + vbExclamation + vbSystemModal

    End With

    GoTo EXIT_SECTION

EXIT_SECTION:

End Sub

エラーが発生することが確認できます。

• 前の記事
  

  PostgreSQL 後ろに指定した文字数だけ文字を埋める 2022.03.19

• 次の記事
  

  javascript submitを無効にする 2022.03.19