構文
Worksheets.Previous
Worksheets.Next
Previous・・・・指定したワークシートの左隣のワークシートを参照します。
Next・・・・・・指定したワークシートの右隣のワークシートを参照します。
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
注意点
- セルと違い、基準となるシートがズレてしまうと思わぬ結果になる場合があります。
- 事前にワークシートを変数に入れて管理した方がわかりやすい場合があります。
コードに合わせて使い分けてください。
コメント