Office TANAKA - VBAの実行時エラー[インデックスが有効範囲にありません。(エラー番号：9)]

Sub Sample1() Dim i As Long For i = 1 To 4 Cells(i, 1) = Worksheets(i).Name Next i End Sub これは、よく起こるエラーです。 上のコード、ワークシートが3枚しかない状態で実行すると「インデックスが有効範囲にありません」と怒られます。 そりゃそうです。Worksheets(1)からWorksheets(3)までしかないのに、Worksheets(4)を調べようとしているのですから。30人の生徒がいるクラスで、出席番号31番の生徒を指しているようなものですね。"学校の怪談"じゃないんですから、それで返事される方が怖いです。 インデックスは、コレクションの数だけではありません。次のようなケースでも同じエラーが起こります。 Sub Sample2() Dim tmp As Variant, i As Long

[yosuke13]

vba