Home » エクセルマクロ・Excel VBAの使い方 » Workbooks・Workbook » VBAでアクティブブックのインデックス番号を取得する

VBAでアクティブブックのインデックス番号を取得する

対象：Excel2003, Excel2007, Excel2010

「エクセル アクティブなブックのインデックスを調べる」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

VBAで、アクティブなワークブックのインデックス番号を取得する、プロパティや方法を探していた方でしょう。

アクティブシートのインデックスはIndexプロパティで取得できる

アクティブなブックではなく、アクティブなシートのインデックスを取得するなら、
　　ActiveSheet.Index
という簡単なコードで、アクティブなシートのインデックス番号が取得できます。

オブジェクトブラウザで確認すると、Worksheetオブジェクトにも

Excel.Worksheet.Index

Chartオブジェクトにも

Excel.Chart.Index

Indexプロパティが存在していることが確認できます。

［スポンサードリンク］

ところが、オブジェクトブラウザでWorkbookオブジェクトを確認しても、Indexプロパティは見当たりません。

Excel.Workbook

アクティブブックのインデックス番号を取得するサンプル

アクティブなブックのインデックス番号を取得するには、以下のようなコードを利用するしかなさそうです。

Sub アクティプなブックのインデックス番号を取得する()
　Dim i As Long
　For i = 1 To Workbooks.Count
　　If Workbooks(i).Name = ActiveWorkbook.Name Then
　　　MsgBox i
　　　Exit Sub
　　End If
　Next
End Sub

上記のマクロを実行するとアクティブなブックのインデックス番号がメッセージボックスに表示されます。

すべてのブックをFor～Nextループで調べ、
　　For i = 1 To Workbooks.Count

アクティブなブックと名前が一致したら
　　　If Workbooks(i).Name = ActiveWorkbook.Name Then

メッセージボックスを終了してマクロを終了しています。
　　　　MsgBox i
　　　　Exit Sub

最終更新日時：2021-09-09 16:11

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » Workbooks・Workbook » VBAでアクティブブックのインデックス番号を取得する

『インストラクターのネタ帳』では、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ユーザーに向けに書きました↓↓


「Workbooks・Workbook」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.