隣のシートを参照・取得する【Previousプロパティ/Nextプロパティ】【ExcelVBA】

構文

Worksheets.Previous
Worksheets.Next

隣のワークシートを参照・取得するPrevious/Nextのサンプルコード

Public Sub sample()

    '■指定シート(Sheet2)の左側(Previous)右側(Next)のシート名(Name)を取得
    Debug.Print Worksheets("Sheet2").Previous.Name  'Sheet1
    Debug.Print Worksheets("Sheet2").Next.Name      'Sheet3
    
    '■2枚目のシートの左側(Previous)右側(Next)のシート名(Name)を取得
    Debug.Print Worksheets(2).Previous.Name   'Sheet1
    Debug.Print Worksheets(2).Next.Name       'Sheet3
    
    '■参照だけでなく値を反映することなども可能。
    Worksheets(2).Previous.Range("A1") = 1

    '■1枚目のシートの左隣などエラーが発生するケース
    Debug.Print Worksheets(1).Previous.Name     '実行時エラー '91'オブジェクト変数または With ブロック変数が設定されていません。
    
End Sub

注意点

• セルと違い、基準となるシートがズレてしまうと思わぬ結果になる場合があります。
• 事前にワークシートを変数に入れて管理した方がわかりやすい場合があります。
  コードに合わせて使い分けてください。

関連記事

• ワークシートに関する機能のまとめ(逆引き目次)
• ワークシート名を変数にSetし、短い名前で利用する【マクロ初級者必読】
• 隣のセルを参照・取得する【Previousプロパティ/Nextプロパティ】【ExcelVBA】