Excel VBA スタンダード・エラー対策について

Excel VBAのエラー対策はについて解説します。

エラーを解決するためには、問題の原因を理解し、適切な手段を使って修正することが大切です。また、プログラミングのスキルや知識を磨くことで、エラーの解決能力も向上させることができます。

 

Excel VBA 記述エラー

「記述エラー」は、コードに誤りがある場合に発生します。VBAがコードを理解できない部分があるときに表示するエラーです。

 

記述エラー対応

 

Excel VBA 論理エラー

「論理エラー」は、コンパイル時のエラーや実行時のエラーを指します。コードの文法的な誤りや、実行時における不整合などの問題によって発生します。

 

論理エラー対応

 

 

Excel VBA On Error GoTo

On Error GoToステートメントは、Excel VBA でエラーが発生した場合に特定のエラーハンドリング処理を実行するための方法です。

 

On Error GoToの使い方

 

 

Sub Example()
    On Error GoTo ErrorHandler ' エラー発生時の処理先を指定

    Dim x As Integer
    x = 0
    Debug.Print 10 / x ' ゼロで割り算するエラーを発生させる

ExitSub:
    Exit Sub ' サブルーチンの正常終了
ErrorHandler:
    ' エラー処理を行うコード
    Debug.Print "エラーが発生しました。"
    Resume ExitSub ' 正常終了処理にジャンプする
End Sub

On Error GoTo ErrorHandlerで、エラーが発生したら ErrorHandler ラベルにジャンプし、エラー処理を実行します。エラー処理が終了したら Exit Sub にジャンプしてプロシージャを終了します。

 

Excel VBA Resume Next

On Error Resume Next は、エラーが発生した場合にエラーを無視し、次の行に進むVBAステートメントです。エラー処理を無視し、実行を継続する際に使用されます。

 

On Error Resume Nextの使い方

 

Sub Example()
    On Error Resume Next ' エラーハンドリングを無視する

    Dim x As Integer
    x = 0
    Debug.Print 10 / x ' ゼロで割り算するエラーを発生させる

    ' エラーを無視して処理が続行されるため、次のコードが実行される
    MsgBox "エラーが発生しましたが、次のコードが実行されました。", vbInformation
End Sub

On Error Resume Next を使用して、ゼロで割るエラーを無視し、次の行のコードが実行されることを示しています。エラーが発生しても、エラー処理が実行されずに次のコードが実行します。

 

Excel VBA Errオブジェクト

Errオブジェクトは、エラーが発生したときに、そのエラーの詳細情報を格納します。

 

Errオブジェクト

Sub Example()
    On Error Resume Next ' エラーハンドリングを設定

    ' エラーを意図的に発生させる
    Dim x As Integer
    x = 0
    Debug.Print 10 / x ' ゼロで割り算するエラーを発生させる

    If Err.Number <> 0 Then ' エラーチェック
        MsgBox "エラーが発生しました：" & Err.Description, vbExclamation
        Err.Clear ' エラー情報のクリア
    End If
End Sub

On Error Resume Next ステートメントでエラーハンドリングを設定し、Err オブジェクトを使ってエラーをチェックしています。Err.Number と Err.Description を使用して、エラー情報を取得してメッセージボックスで表示しています。また、Err.Clear メソッドを使って、エラー情報をクリアしています。

 

エラー対策

プログラムを作成する際に、エラーを予防するための対策として次のポイントがあります

たとえば、ProtectStructureプロパティはブックが保護されているかチェックできます。ブックが使える状態が前提であればチェック不要ですが、エラー対策で使えるプロパティです。

 

Excel VBA データクレンジング

データクレンジングは、データの変換、形式の統一、データの標準化など、異なるデータソースからのデータを一貫性のある形式に変換するプロセスを指します。クレンジングは、データの正確性を高め、統一されたデータセットを作成するために行われます。

 

 

StrConv 関数

 

Sub Example()
    Dim i As Long
    For i = 1 To 8
        Cells(i, 2).Value = StrConv(Cells(i, 1).Value, vbWide)
    Next i
End Sub

vbWide は、文字列を全角に変換します。これは、半角文字を全角に変換する場合や、半角カタカナを全角カタカナに変換する場合などに使用します。

 

Sub Example()
    Dim i As Long
    For i = 1 To 8
        Cells(i, 2).Value = StrConv(Cells(i, 1).Value, vbNarrow)
    Next i
End Sub

vbNarrow は、文字列を半角に変換します。全角文字を半角に変換する場合や、全角カタカナを半角カタカナに変換する場合などに使用します。

 

Replace関数

 

Sub Example()
    Dim originalString As String
    Dim replacedString As String
    
    originalString = "This is an example text."
    replacedString = Replace(originalString, "example", "sample")
    Debug.Print replacedString ' "This is an sample text."
End Sub

originalStringの文字列から example を sample に置き換えて、replacedString に新しい文字列を格納しています。

 

DateSerial関数

 

 

Sub Example()
    Dim myDate As Date
    myDate = DateSerial(2023, 12, 31)
    Debug.Print myDate ' "2023/12/31"と出力されます
End Sub

DateSerial 関数を使用して、2023 年 12 月 31 日を myDate に代入しています。

 

 

Sub Example()
    Range("A1").NumberFormat = "0.00" ' A1セルの数値を小数点以下2桁で表示
    Range("B1").NumberFormat = "yyyy/mm/dd" ' B1セルの日付を表示形式で表示
    Range("C1").NumberFormat = "0.00%" ' C1セルの数値をパーセンテージ形式で表示
End Sub

NumberFormat を使用して A1 セルを小数点以下 2 桁の数値、B1 セルを日付形式、C1 セルをパーセンテージ形式に設定しています。