エラー内容を取得する
サンプルソース
Sub Sample1() On Error Goto ErrorLabel Dim i As Long i = "test" ' この行で処理は中断せず、ErrorLabelに処理が移る Exit Sub :ErrorLabel MsgBox "エラー番号:" & Err.Number MsgBox "エラー内容:" & Err.Description End Sub Sub Sample2() On Error Resume Next Dim i As Long i = "test" ' この行で処理が中断せず、次の行が実行される MsgBox "エラー番号:" & Err.Number MsgBox "エラー内容:" & Err.Description End Sub |
解説
On Error Goto ラベル、On Error Resume Nextを定義した場合にErrオブジェクトを使って、エラー番号とエラー内容を表示することができます。
Err.Numberはエラー番号です。
Err.Descriptionはエラー番号に対応する文字列(エラー内容)です。
Err.Sourceは現在のプロジェクト名です。
何も定義していない場合は、On Error Goto 0が有効になっています。
Sample1で、エラー発生すると指定したラベルに処理が移ります。
Sample2で、エラーが発生しても次の行が続けて実行されます。
Excel操作
- 変数や定数の宣言を強制する変数や定数の宣言を強制する サンプルソース Option Explicit Dim str1 As String Msgbo...
- エラー処理を制御するエラー処理を制御する サンプルソース Sub Sample1() On Error Goto 0 Dim i As Long ...
- デバッグするデバッグする サンプルソース Dim i As Long i = 100 Debug.Print i ' イミディエイト...
- Excelのパスを取得するExcelのパスを取得する サンプルソース ' Excelアプリケーションのパスを表示 Msgbox App...
- Excelのバージョンを取得するExcelのバージョンを取得する サンプルソース ' Excelのバージョンを表示 Msgbox Applica...
- OSのバージョンを取得するOSのバージョンを取得する サンプルソース ' OSのバージョンを表示 Msgbox Application.O...
- ユーザ名・所属名を取得するユーザ名・所属名を取得する サンプルソース ' ユーザ名を表示 Msgbox Application.UserN...
- 全画面表示にする全画面表示にする サンプルソース ' 全画面表示 Aplication.DisplayFullScreen = True '...
- オートコンプリート機能を有効にするオートコンプリート機能を有効にする サンプルソース ' オートコンプリート機能を有効 Ap...
- PDFに変換して保存するPDFに変換して保存する サンプルソース ' PDFに変換する ActiveSheet.ExportAsFixedFormat...
- ファイルのダイアログを開くファイルのダイアログを開く サンプルソース ' 「ファイルを開く」ダイアログを開く Appli...
- 単語のスペルをチェックする単語のスペルをチェックする サンプルソース ' 単語のスペルをチェック Msgbox Cells.Chec...
- ワークシート関数を使うワークシート関数を使う サンプルソース ' 合計を求める Msgbox WorksheetFunction.Sum(Ra...
- ブックの計算を手動にするブックの計算を手動にする サンプルソース ' ブックの計算を手動にする Application.Calcu...
Excel VBA講座
Excel VBA とは
Excel VBAとは、Excelに標準で付いているプログラミング言語です。
VBAはVisual Basic for Applicationsの略で、プログラムの構文は、Vi... |
色を設定するには(ColorIndex、Color)
色の指定方法にはColorIndexとColorの2種類があります。
セルの文字色の場合は Font に、背景色の場合は Interior に... |
VBE とは
VBE (Visual Basic Editor) とは、Excelに搭載したVBA用のエディターのことです。
VBEを起動するには、Excelの「ツール」→「マクロ」→「Visual... |