シートの選択

質問

特に名前をつけていないシートを選択するときに、マクロで、右のシートを選択するのは、ActiveSheet.Next.Select
でできたのですが、左のシートを選択する場合はどうしたらいいでしょうか？ちなみに、２つ左とかは？

回答No.1

noname#52504 · ベストアンサー

アクティブシートの１つ前のシートを選択
　ActiveSheet.Previous.Select

２つ前（前の前）のシートなら、
　ActiveSheet.Previous.Previous.Select

４つ前のシートとかになると、さすがにPreviousを重ねるのは間抜けなので
　Sheets(ActiveSheet.Index - 4).Select
とか。

お礼

出来ました！！
ありがとうございました。

回答No.2

imogasi

右に行くにつれ、SheetのIndexが１づつ増えるのだから
Sub test01()
d = ActiveSheet.Index
MsgBox d
If d - 2 > 0 Then
Sheets(d - 2).Select
Else
MsgBox "エラー"
End If
End Sub
ーーー
または
Sub test02()
d = ActiveSheet.Index
If d > 3 Then
For i = 1 To 3
ActiveSheet.Previous.Select
Next i
Else
MsgBox "エラー"
End If
End Sub

お礼

ありがとうございました。
Previousを使ってやってみます！