シート名でなくindex番号でシートの移動をしたい

質問

windows7 Excel2007でマクロ作成の初心者です。以下の点で困ってます。ご指導お願いします。
シートの次ページへ、およびページの前に戻るというコードをつくりましたが、文字列でなく、indexを使ってつくりたのでですが、思うようになりません。
現在のコードは
Private Sub 次ページへ_Click()
If ActiveSheet.Name <> "23.日本太郎" Then
ActiveSheet.Next.Activate
End If
End Sub
----------------------------------
Private Sub 前に戻る_Click()
On Error Resume Next
If ActiveSheet.Name <> "1.日本花子" Then
ActiveSheet.Previous.Activate
End If
End Sub

これを
Dim i As Integer
For i = 1 To Worksheets.Count - 6
などを使って作りたいです、なぜかというとシートの増減で名前が変わったとき、いちいち名前を変更しなければならないからです。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

>indexを使ってつくりたのでですが

こういうことでしょうか？
これも、ひとつのロジックかもしませんね。
注意点としては、Worksheet ではなくて、Sheet ということですね。
なお、この場合は、Selectでも、Activate でもよいですが同じですが、若干、Select メソッドが良いのではないかと思います。
'-------------------------------------------

Private Sub AdvancePage_Click()
　　'前に進む
　　Dim t As Integer, i As Integer, j As Integer
　　t = Sheets.Count
　　i = ActiveSheet.Index
　　j = i Mod t + 1
　　Sheets(j).Select
End Sub
'-------------------------------------------
Private Sub BackwordPage_Click()
　　'後ろに下がる
　　Dim t As Integer, i As Integer, j As Integer
　　t = Sheets.Count
　　i = ActiveSheet.Index
　　j = (i + t - 2) Mod t + 1
　　Sheets(j).Select
End Sub

お礼

なるほどこうゆうことですが。おかげで名前を入力せずにすみました。ありがとうございました。

回答No.3

米沢 栄蔵（@YON56）

「次ページ、およびページの前」の定義がはっきりしていないところが問題だと思います。
次ページとは、アクティブなシートの直右のシート。
ページの前とは、アクティブなシートの直左のシート。
と、定義すると

If ActiveSheet.Name <> "23.日本太郎" Then
Sheets(ActiveSheet.Index+1).Select
End If
If ActiveSheet.Name <> "1.日本花子" Then
Sheets(ActiveSheet.Index-1).Select
End If
但し、アクティブなシートの直右又は、直左にシートが存在することを確認する構文がないとエラーが発生する可能性が残ります。

回答No.1

kmetu

ActiveSheet.Index
を利用してください。