配列がありませんのエラー

Question

配列にて文字列を格納し、セルに値を入れようとしてます。
ですが実行すると配列がありません。のエラーが出ます。
tmp1の部分で配列がありませんとのエラーになります。
ご教示よろしくお願いします。

Dim tmp1 As String
Dim tmp2 As String
Dim tmp3 As String
Dim i As Long

tmp1 = Array("◆タブタッチ上昇率　ワースト◆", "順位", "1", "2", "3", "4", "5")
tmp2 = Array("◆タブタッチ上昇率　ベスト◆", "順位", "1", "2", "3", "4", "5")
tmp3 = Array("タブID", "タブ名", "上昇率")


    With sh
        For i = 0 To 6
            For c = 28 To 34
                .Cells(c, 1) = tmp1(i)
            Next
        Next
        For i = 0 To 6
            For c = 36 To 42
                .Cells(c, 1) = tmp2(i)
            Next
        Next
        For i = 0 To 2
            For c = 2 To 4
                .Cells(29, c) = tmp3(i)
            Next
        Next
        For i = 0 To 2
            For c = 2 To 4
                .Cells(37, c) = tmp3(i)
            Next
        Next

Answer 1

Dim tmp1 As String
Dim tmp2 As String
Dim tmp3 As String

Arrayが返すのはVariant型ですので、

Dim tmp1 As Variant
Dim tmp2 As Variant
Dim tmp3 As Variant

とすればよいと思います。

Comments

[Naoko_Coco]

h.horikoshiさん
ありがとうございます。
その通りでした！