
VBAの基礎知識 005回
指定したシートの前(左)や後(右)のシートを参照するには、WorksheetオブジェクトのPreviousプロパティ、Nextプロパティを使用します。
Previousプロパティが左のシート、Nextプロパティが右のシートの意味です。
選択しているシートの他のシート、前のシートや後ろのシートを参照したいということがあります。
その時にいちいち名前で指定していたので面倒です。
ここではPreviousプロパティと NEXT プロパティを使用して簡単に指定してみましょう。
1.下記のサンプルでは、 2番目のシートを選択して、前のシートと後ろのシート名を表示します。
Sub 前と後のシート名を参照する()
Worksheets(2).Select
MsgBox "前(左)のシート:" & ActiveSheet.Previous.Name & Chr(10) & _
"後(右)のシート:" & ActiveSheet.Next.Name
End Sub

2. 次のコードでは2番目のシートをコピーして、3番目のシートの後ろに配置しています。
Dim ws As Worksheet
Worksheets(2).Copy After:=Worksheets(3)
Set ws = Worksheets(3).Next
MsgBox "コピーしたワークシート名:" & ws.Name

3. 構文は次の形です。
