Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » 隣のシート名を取得するマクロ

隣のシート名を取得するマクロ

対象：Excel2003, Excel2007, Excel2010, Excel2013

「マクロ隣のシートシート名取得」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

隣のシートの名前を取得するVBAのコードを探している方による検索です。

［スポンサードリンク］

参考になりそうなマクロをご紹介しておきましょう。

Sub 左隣のシート名をアクティブセルに入力する()
　If Not (ActiveSheet.Previous Is Nothing) Then
　　　MsgBox ActiveSheet.Previous.Name
　End If
End Sub

ChartオブジェクトやWorksheetオブジェクトのPreviousプロパティで、左隣のシートが取得できます。
そのNameプロパティでシート名が取得できます。

実質的には
　　　MsgBox ActiveSheet.Previous.Name
の部分だけでいいのですが、一番左のシートがアクティブなときに、ActiveSheet.Previousを取得しようとするとエラーとなってしまうので、それを避けるために
　If Not (ActiveSheet.Previous Is Nothing) Then
としています。

左隣ではなく右隣のシート名を取得したいときは以下のとおりです。

Sub 右隣のシート名をアクティブセルに入力する()
　If Not (ActiveSheet.Next Is Nothing) Then
　　　MsgBox ActiveCell.Value = ActiveSheet.Next.Name
　End If
End Sub

左隣のときとほとんど同じですが、Previousプロパティの代わりにNextプロパティを利用しています。

最終更新日時：2020-03-11 15:59

［スポンサードリンク］