Excelでシート名の一覧表を取得したい
![](http://cdn2.aprico-media.com/production/imgs/images/000/034/592/original.png?1560657139)
Excelファイル内の全シート名を簡単に取得できれば、シート数の多いマニュアルを扱う場合や様々な計測データをシート別に管理している場合に、目次がすぐに作成できデータ管理に便利です。
本記事では、Excelシート名の一覧表を取得する方法をご紹介します。
Excelでシート名の一覧表を取得する方法
Excelのシート名一覧表を取得する方法を2つご紹介します。
VBAを活用
まずはVBA画面を使い簡単に一覧表を取得する方法です。
![複数シートが存在](http://cdn2.aprico-media.com/production/imgs/images/000/034/358/original.png?1560346518)
![VBA画面表示](http://cdn2.aprico-media.com/production/imgs/images/000/034/359/original.png?1560346604)
「Alt + F11キー」を押すと左のようなVisual Basic Editor画面が開きます。
![ウィンドウ表示](http://cdn2.aprico-media.com/production/imgs/images/000/034/362/original.png?1560347553)
イミディエイトの中に以下の文言を入力し、Enterキーを押します。
For Each i In ThisWorkbook.Sheets: debug.print i.name : next i
![一覧表の取得](http://cdn2.aprico-media.com/production/imgs/images/000/034/363/original.png?1560347583)
関数を利用
続いては関数を利用する方法です。シート名から引用して表示させるので、シート名を変更すると一覧表も変更が反映されるのが利点です。
![名前の定義](http://cdn2.aprico-media.com/production/imgs/images/000/034/371/original.png?1560348756)
![名前と範囲を設定](http://cdn2.aprico-media.com/production/imgs/images/000/034/372/original.png?1560348799)
=GET.WORKBOOK(1)
シート名を表示したいセルに以下の関数を記入します。
※"SHEETNAME"の部分は設定した任意の名前に変更してください。
=REPLACE(INDEX(SHEETNAME,ROW(A1)),1,FIND("]",INDEX(SHEETNAME,ROW(A1))),"")
![シート名の取得](http://cdn2.aprico-media.com/production/imgs/images/000/034/373/original.png?1560348908)
シート名にリンクを設定する方法
取得したExcelシート名を押すと、各シートへ飛ぶようなリンク設定を行うことができます。
![ハイパーリンク設定](http://cdn2.aprico-media.com/production/imgs/images/000/034/368/original.png?1560348119)
![リンク条件の設定](http://cdn2.aprico-media.com/production/imgs/images/000/034/369/original.png?1560348159)
![リンク設定完了](http://cdn2.aprico-media.com/production/imgs/images/000/034/370/original.png?1560348232)