なぜこの技術が重要なのか
実務において、複数のシートに分かれたデータを順次処理したり、あるいは特定のシートから隣のシートへデータを転送したりするケースは非常に多いです。この際、シート名をコードに直接書き込んでしまうと、シート名が変更された瞬間にマクロがエラーを起こして止まってしまいます。NextプロパティやPreviousプロパティを活用すれば、シート名に依存しない「位置関係に基づいた柔軟なシート操作」が可能になります。保守性の高いマクロを作るための必須知識です。
基礎知識：NextとPreviousの仕組み
Excel VBAにおけるワークシートの並び順は、ブック内でのインデックス（番号）で管理されています。
Nextプロパティは「アクティブなシートの右隣（インデックス番号が大きい方向）」を指し、Previousプロパティは「アクティブなシートの左隣（インデックス番号が小さい方向）」を指します。
注意が必要なのは、シートが存在しない方向（先頭シートの左や、末尾シートの右）を指定するとエラーが発生する点です。そのため、必ず条件分岐で「今のシートがどこに位置しているか」を判定するロジックを組み合わせるのが実務の鉄則です。
実装のポイント
実務で安全に実装するためには、以下のようなチェックロジックを入れます。
1. 現在のシートが先頭（Sheets(1)）か末尾（Sheets(Sheets.Count)）かを判定する。
2. 範囲外であればメッセージを出して終了させる、あるいはループさせる処理を入れる。
これにより、予期せぬ実行時エラーを未然に防ぐことができます。
サンプルプログラム：安全なシート移動マクロ
以下のコードは、現在のシートを起点に、エラーチェックを行いながら隣のシートへ移動する汎用的なサンプルです。
Sub MoveToNextSheet()
‘ 現在のシートが末尾かどうかを確認
‘ Sheets.Countはシートの総数です
If ActiveSheet.Index = Sheets.Count Then
MsgBox “これ以上右にはシートがありません。”, vbExclamation
Else
‘ 次のシートを選択してアクティブにする
ActiveSheet.Next.Activate
MsgBox ActiveSheet.Name & ” に移動しました。”
End If
End Sub
Sub MoveToPreviousSheet()
‘ 現在のシートが先頭かどうかを確認
If ActiveSheet.Index = 1 Then
MsgBox “これ以上左にはシートがありません。”, vbExclamation
Else
‘ 前のシートを選択してアクティブにする
ActiveSheet.Previous.Activate
MsgBox ActiveSheet.Name & ” に移動しました。”
End If
End Sub
応用と注意点
1. 隠しシートの扱い
NextやPreviousプロパティは、非表示状態のシートもスキップせずにカウントして移動します。もし「表示されているシートだけを巡回したい」という高度な要件がある場合は、For EachループとVisibleプロパティを組み合わせた処理が必要です。
2. Rangeオブジェクトとの併用
Nextプロパティはシートだけでなく、Rangeオブジェクトに対しても使えます（例：ActiveCell.Next.Select）。これはキーボードの「Tab」キーを押す動作と同じです。ただし、セルの編集中には動作しないため、マクロ実行時はセルの編集状態が解除されていることを確認してください。
3. エラー回避のヒント
マクロの実行速度を優先し、かつエラーを回避したい場合は、SelectやActivateを使わずに、直接オブジェクト（Worksheet）を代入して操作することをお勧めします。
例：Set targetSheet = ActiveSheet.Next
