VBAで最後から2番目のシート名を取得する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「excel2013 マクロ sheet.count 最期から2つ目のシート」
という検索キーワードに気づきました。

Excel VBAで、最後から2番目のシートをどうにかするには、どのようなコードを書けばいいのか探していらしたのでしょう。

シートをどうしたかったのかが
「excel2013 マクロ sheet.count 最期から2つ目のシート」
だけではわかりませんので、シート名を取得するサンプルをご紹介しておきます。

［スポンサードリンク］

最後のシート名を取得するサンプルマクロ

まずは、シートの枚数を変数に代入しておいて、最後のシート名を取得するマクロを理解しましょう。

Sub 最後のシート名を取得()
　Dim cnt As Long

　cnt = Sheets.Count
　MsgBox Sheets(cnt).Name
End Sub

SheetsコレクションオブジェクトのCountプロパティで、シートの枚数を取得できます。

その値を変数・cntに代入しておけば、最後のシートを表すオブジェクトを「Sheets(cnt)」という式で取得できます。

その名前を取得しているのが「Sheets(cnt).Name」というオブジェクト式です。

変数・cntを使わずに、
　cnt = Sheets.Count
　MsgBox Sheets(cnt).Name
をまとめると、
　MsgBox Sheets(Sheets.Count).Name
とも書けます。

で、最後から2番目のシート名を取得するマクロは以下のとおりです。

Sub 最後から2番目のシート名を取得()
　Dim cnt As Long

　cnt = Sheets.Count
　MsgBox Sheets(cnt - 1).Name
End Sub

変数・cntには、シートの総数が代入されているので「- 1」した数値を使って「Sheets(cnt - 1)」というオブジェクト式で、最後から2番目のシートを表すオブジェクトを取得できます。

変数を使わないのであれば、
　MsgBox Sheets(Sheets.Count - 1).Name
です。

プログラミングの経験がない方の場合、「cnt - 1」のような単純な引き算や足し算を思いつけないことがあるのですが、何回か自分で考えてコードを書くと、思いつけるようになります。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Sheets・Worksheet」の記事一覧