シート間の移動でエラーが発生しました。

質問

シート間の移動でエラーが発生しました。

ActiveWorkbook.Indexを基準にsheet(1)からsheet(10)までループを組みました。

調べてみると、途中に削除されて存在しないIndex番号がありました。存在しないIndex番号のシートでエラーが発生しますし、また画面上で10枚シートが存在していても、全てのシートを「順番に」（１～１０まで順番通りに）処理しようとすると、最後のシートをどう指定すれば良いかも困ります。

さらに手作業でシートの順番が変更されていることも判明しました。ですから画面上ではシートが規則正しく並んでいても、Index番号は正しく並んでいません。

こういうワークブックに対して、画面上のシートの並びの通りに順番にシートを移動しながら処理を行うにはどうすれば良いでしょう。

私に思い浮かぶのは、シート名を1,2,3,・・・・という風に数字にして、ActiveWorksheet.IndexではなくActiveWorksheet.Nameを基準としたループを行うということですが、そうするとシート名に自由が無くなります。なんとなく悔しい。

何か良い方法がないでしょうか。

回答No.2

mitarashi · ベストアンサー

試してみました
Indexで取得できるのは、As Worksheet で宣言しても、Graphシートを含む番号の様ですが、
Graphシートは存在していませんか？

Sub test()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
Debug.Print sh.Name, sh.Index
Next sh
End Sub
'Graphシートが最初に入れてあり、それのIndexが1とされます
'Sheet2は削除してありますが、そのIndexは他に割り振られます
（単純にシートの並び順でつけられる）
Sheet3 2
Sheet5 3
Sheet1 4
Sheet4 5

Sub test2()
Dim sh As Worksheet
Dim i As Long

For i = 1 To ActiveWorkbook.Worksheets.Count
Debug.Print i, Worksheets(i).Name
Next
End Sub
'これだと、1から指定できます。test()で取得されるIndexと違っています。
1 Sheet3
2 Sheet5
3 Sheet1
4 Sheet4

お礼

私に勘違いがありました。

ワークシートのIndexとオブジェクト名を混同していました。オブジェクト名の場合、あるシートを削除するとそのシートのオブジェクト名は欠番となり、新たに別のシートを挿入しても、そのオブジェクトは再利用されません。

皆さんが、私がやったのと同じようにIndexを基準にループを廻して、先頭のタブから順番に処理できているのを見て、他に原因があるはずと、再度コードを見直したところ、別のバグが見つかりました。

ご迷惑をお掛けしました。

すみません。

回答No.1

yorozu_ya

なんか、質問内容が判然としません。
（１）シートタブの並んでる順に処理したい
（２）シート名の順に処理したい
の、どちらでしょう。

For i = 1 To 10
Debug.Print Worksheets("Sheet" & i ).Name
なんて書き方をしてるのでしょうか？

（１）の並んでる順なら、
For i = 1 To Worksheets.Count
Debug.Print Worksheets(i).Name
ってな感じになります。

お礼

mitarashiさんへのレスに書いたとおり、私の不注意でした。

てっきりIndexとオブジェクト名を同じと思っておりました。大変失礼しました。

皆様にご教授いただいたコードを検分する中で、この愚昧に気づかせていただきました。

ありがとうございます。