ワークブックの現在のワークシート番号を取得する方法は?
複数のワークシートを含むワークブックを操作する際、現在(アクティブ)なシートの正確な位置やインデックス番号を把握しておくと、非常に便利です。特に、参照の作成やタスクの自動化を行う際にその効果を発揮します。また、シート数が多く構成が複雑なワークブックでは、データの整理状況を素早く把握するうえでも役立ちます。各シートを手動で数えて位置を確認する必要はありません――Excel には、現在のワークシートの番号を直接取得できる便利な方法がいくつか用意されています。
VBA コードでワークブックの現在のワークシート番号を取得する
簡単な数式を使用して現在のワークシート番号を取得する
現在のワークシートのインデックス番号を表示するには、Excel に内蔵されているSHEET 関数が使えます。この関数を使えば、ワークブック内でのシートの位置を瞬時に取得でき、従来の GET.WORKBOOK メソッドよりもシンプルで信頼性の高い代替手段となります。
この方法は、ワークブック内のシートのインデックスを参照または表示する必要があるほとんどのシーンで活用できます。たとえば、動的ダッシュボードやシートナビゲーションシステムの構築、あるいはユーザー向けの可視的なドキュメントとして最適です。
ワークシート上に現在のワークシート番号を直接表示するには、任意のセルに次の数式を入力してください。
="Current sheet index = " & SHEET() Enterキーを押すと、Excel がそのシートのインデックス番号を表示します。たとえば、ワークブック内の3 番目のワークシートにこの数式を入力すると、次のように結果が表示されます:現在のワークシート index = 3
メリット:この方法ではマクロや特別な設定が不要で、シートを移動したりワークシートの名前を変更したりした際に自動的に更新されます。ワークブック内でシートの位置を参照する最もシンプルで安全な方法です。
VBA コードでワークブックの現在のワークシート番号を取得する
アクティブなワークシートのインデックス番号を取得する直接的な方法の一つは、シンプルな VBA コードを使うことです。この方法は、マクロに慣れていて、ダイアログベースの即時的な解決策をお探しの場合に特に適しています。
VBA による解決策をご利用になるには、以下の手順に従ってください。
1.インデックス番号を取得したいワークシートをアクティブにしてください。
2.ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
3.VBA エディターで、挿入>標準モジュールをクリックし、モジュールウィンドウに次のコードを貼り付けてください。
VBA コード:現在のワークシート番号を取得する
Sub GetActiveSheetIndex()
MsgBox ActiveSheet.Index
End Sub
4.F5キーを押してコードを実行すると、アクティブなワークシートのインデックス番号を示すメッセージボックスが表示されます(下記スクリーンショット参照)。別のワークシートに切り替えてスクリプトを再実行すると、シート番号もそれに応じて更新されます。

関連記事:
Excel でセルに素早くシート名を挿入するには、どうすればよいですか?
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得