Excelマクロでの「実行時エラー9: インデックスが有効範囲にありません」の原因と解決方法

こんにちは！今日は、Excelマクロを使っているときに遭遇することがある「実行時エラー9: インデックスが有効範囲にありません」についてお話しします。このエラーは、マクロを実行中に突然表示され、作業を中断させてしまう厄介なものです。でも安心してください。今回は、このエラーの原因とその解決方法を初心者の方にもわかりやすく解説します。

「実行時エラー9」とは？
「実行時エラー9」が発生する主な原因
「実行時エラー9」の解決方法
今すぐ解決したい！どうしたらいい？
よくある質問や疑問
1. Q1. マクロを実行するときだけエラーが出ますが、手動で操作すると問題ありません。なぜでしょうか？
2. Q2. 配列のインデックスエラーを防ぐための良い方法はありますか？

「実行時エラー9」とは？

Excelのイメージ

まず、「実行時エラー9」とは何かを簡単に説明します。このエラーは、マクロが実行中に存在しないシートやブック、または配列の範囲外を参照しようとしたときに発生します。例えば、指定したシート名が間違っていたり、開いていないブックを参照しようとすると、このエラーが表示されます。

「実行時エラー9」が発生する主な原因

では、このエラーが具体的にどのような状況で発生するのか、主な原因を見ていきましょう。

1. 存在しないシート名を指定している

マクロ内で指定したシート名が、実際のブック内に存在しない場合、このエラーが発生します。例えば、以下のコードを見てください。

vba

Sub SampleMacro()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    ws.Range("").Value = "Hello, World!"

End Sub

このコードでは、「Sheet1」というシートを指定しています。しかし、ブック内に「Sheet1」という名前のシートが存在しない場合、エラーが発生します。

2. 開いていないブックを参照している

マクロで他のブックを参照する際、そのブックが開かれていないとエラーになります。例えば、以下のコードを見てください。

vba

Sub SampleMacro()

    Dim wb As Workbook

    Set wb = Workbooks("Data.xlsx")

    wb.Sheets("Sheet1").Range("").Value = "Hello, World!"

End Sub

このコードでは、「Data.xlsx」というブックを参照していますが、このブックが開かれていないとエラーが発生します。

3. 配列の範囲外を参照している

配列を使用している場合、存在しないインデックスを参照するとエラーが発生します。例えば、以下のコードを見てください。

vba

Sub SampleMacro()

    Dim arr(2) As String

    arr(0) = "Apple"

    arr(1) = "Banana"

    arr(2) = "Cherry"

    Debug.Print arr(3)

End Sub

このコードでは、配列「arr」は0から2までの3つの要素を持っています。しかし、`Debug.Print arr(3)`で存在しない4番目の要素を参照しようとしているため、エラーが発生します。

「実行時エラー9」の解決方法

では、これらのエラーをどのように解決すればよいのでしょうか。具体的な対策を見ていきましょう。

1. シート名やブック名を正しく指定する

まず、マクロ内で指定しているシート名やブック名が正しいか確認しましょう。シート名やブック名は正確に指定する必要があります。例えば、シート名が「Sheet1」ではなく「シート1」のように日本語の場合もあります。正確な名前を確認し、コード内で正しく指定してください。

2. ブックが開かれているか確認する

他のブックを参照する場合、そのブックが開かれていることを確認しましょう。もし開かれていない場合は、以下のコードのようにブックを開く処理を追加すると良いでしょう。

vba

Sub SampleMacro()

    Dim wb As Workbook

    On Error Resume Next

    Set wb = Workbooks("Data.xlsx")

    On Error GoTo 0

    If wb Is Nothing Then

        Set wb = Workbooks.Open("C:\Path\To\Data.xlsx")

    End If

    wb.Sheets("Sheet1").Range("").Value = "Hello, World!"

End Sub

このコードでは、まず「Data.xlsx」が開かれているか確認し、開かれていない場合は指定したパスからブックを開くようにしています。

3. 配列の範囲を確認する

配列を使用する際は、参照するインデックスが配列の範囲内であることを確認しましょう。`UBound`関数を使って配列の上限を取得し、その範囲内で処理を行うと安全です。

vba

Sub SampleMacro()

    Dim arr(2) As String

    arr(0) = "Apple"

    arr(1) = "Banana"

    arr(2) = "Cherry"

    Dim i As Integer

    For i = 0 To UBound(arr)

        Debug.Print arr(i)

    Next i

End Sub

このコードでは、`UBound`関数を使って配列の上限を取得し、その範囲内でループ処理を行っています。