配列操作

「配列がありません」のエラーが出た場合の回避方法【ExcelVBA】

「配列がありません」エラーが出た

Array関数で代入するデータはVariant型であることを忘れてしまい、エラーが発生します。

「配列がありません」が発生するコード

Public Sub sample()
    Dim tmp As String    'Dim tmp As Variantにすればエラー回避できます
    
    tmp = Array("a", "b", "c", "d", "e")
    Dim i As Long
    
    '■コンパイルエラー 配列がありませんが表示
    For i = LBound(tmp) To UBound(tmp)
        Debug.Print tmp(i)
    Next i
End Sub

注意点

  • このエラーの回避は単純に指定ミスです。Array関数を再度見直ししましょう。

関連記事

コメント

タイトルとURLをコピーしました