エラー処理を制御する
サンプルソース
Sub Sample1() On Error Goto 0 Dim i As Long i = "test" ' この行で処理が中断 End Sub Sub Sample2() On Error Goto ErrorLabel Dim i As Long i = "test" ' この行で処理は中断せず、ErrorLabelに処理が移る Exit Sub :ErrorLabel Msgbox "エラー発生" End Sub Sub Sample3() On Error Resume Next Dim i As Long i = "test" ' この行で処理が中断せず、次の行が実行される Msgbox "処理終了" End Sub |
解説
On Error Goto 0はエラー処理を無効にします。エラーが発生した行で処理を中断します。
On Error Goto ラベルはエラーが発生すると、指定したラベルに処理を移します。
On Error Resume Nextはエラーが発生しても無視して処理を続けます。
何も定義していない場合は、On Error Goto 0が有効になっています。
Sample1で、型不一致によるデータ例外などのエラー発生した行で処理が中断されます。
Sample2で、エラー発生すると指定したラベルに処理が移ります。ラベル(ここでいうErrorLabel)は任意の名前を設定できます。
Sample3で、エラーが発生しても次の行が続けて実行されます。
Excel操作
- 変数や定数の宣言を強制する変数や定数の宣言を強制する サンプルソース Option Explicit Dim str1 As String Msgbo...
- エラー内容を取得するエラー内容を取得する サンプルソース Sub Sample1() On Error Goto ErrorLabel Dim i...
- デバッグするデバッグする サンプルソース 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... |