シート名一覧表作成マクロをブック登録して色んなエクセルで使う

エクセルVBAを利用して、作成作業が非常に面倒な、シート名一覧表を超簡潔に作ります。
個人用マクロブックを使って、どんなエクセルファイルでも使えるようにします。

こんにちは、じゅんぱ店長（@junpa33）です。

作成する回数も多いエクセルシート名の一覧表を、もっと楽に作ることの出来る方法を紹介します。

これまで完全手動の手作業で行っている方もおられるでしょう。

そんな方には是非利用していただきたい方法です。

非常に簡単ですのでチャレンジしてみてください。

50枚100枚のシート名を一覧化する作業が一瞬で終わります。時間にして１～２時間は間違いなく時短になります。

シート名一覧表作成マクロをブック登録の概要

具体的に何をするのかというと、以下の様に3つのステップで行っていきます。

  1. シート名一覧表作成マクロを作成する
  2. 作成したマクロを個人用マクロブックに転記する
  3. 起動テストをして完了

マクロのコードを個人用マクロブックに直接記述するときは②からスタートです。

ここで説明しているマクロをコピペで個人用マクロブックに落とす場合は③のみの作業です。

目次へ戻る

シート名一覧表作成マクロをVBAコードで作成

作成したVBAコードはこちらになります。

VBA
Sub シート一覧作成()
    Dim NWSN As String
    Dim Sh As Worksheet
    Dim ShN As String
    Dim s As Long
    On Error Resume Next
        NWSN = "シート一覧" & Format(Date, "yymmdd") & _
            "_" & Format(Now, "hhnn")
        Worksheets.Add(before:=Worksheets(1)).Name = NWSN
        With Worksheets(NWSN).Cells(1, 1)
            .Value = "INDEX NO."
            .Offset(, 1) = "Sheet Name"
        End With
        s = 1
        For Each Sh In Worksheets
            ShN = Sh.Name
            With Worksheets(NWSN).Cells(s + 1, 1)
                .Value = s
                .Offset(, 1) = ShN
                Columns("A:B").AutoFit
            End With
            s = s + 1
        Next
    On Error GoTo 0
End Sub

このVBAコードを丸々コピーしていただければいいです。

コードの解説

変数 NWSNは、新たに作成するシートのシート名です。シート一覧を記述するためのシートになります。

「シート一覧 ＋ 年月日 ＋ 時分」の名称になります。一覧表作成を分単位で行うことが出来ます。（1分以内に行うと上書きではなくエラーになります。エラーの場合は、白紙のシートが新たに追加されるだけです。）

一覧表の1行目はタイトル行になります。

A列とB列を使用し、セル幅はオートフィットで調整されます。

非表示シートがある場合でも、それも含めてリスト化されます。

シート枚数の制限はありません。

シート一覧
目次へ戻る

個人用マクロブックに転記する

作成したマクロ（「シート一覧作成」プロシージャー）を個人用マクロブックに転記します。

この記事にあるマクロコードをそのまま個人用マクロブックに張り付けていただいてもＯＫです。

個人用マクロブックをまだ作っていない方は、こちらの方法で先に作成してください。

vbapersonalbkeyecatch 個人用マクロブックの簡単作成と削除方法と使い方ガイド

作成した上でコードをペーストします。

vbacopipeeyecatch Webで見つけたマクロをコピペで使う

個人用マクロブックにご自分で書き込む方は、マクロコードを丸々書き込んでください。

エクセルVBAの勉強にもなると思います。

目次へ戻る

テスト起動を行う

個人用マクロブックに転記したところでマクロを起動してみます。

テスト方法は、以下の通りです。

  1. 新規でエクセルを立ち上げて、適当にシート枚数を増やしてください。
  2. ショートカットキーの「Alt」＋「F8」でマクロのダイアログを呼び出します。
  3. マクロ名「PERSONAL.XLSB!シート一覧作成」を選択し実行をクリックします。
  4. エクセルに新規シートが追加されてシート名のリストが表示されれば完了です。
目次へ戻る

まとめ

シート名一覧表を作成しました。

エクセルの個人用マクロブックにマクロを載せておけば、どんなエクセルファイルからでもアクセスすることが可能になります。

社内のいろんな方からのご注文に応じても、即、シート名一覧を作成提示することが可能になります。

便利に使っていただければと思います。

エクセルVBAを独習するのに参考書は欠かせません。 参考書選びは自分に合った「相棒」にできるものを選んでいきたいです。

vbastudyeyecatch2 エクセルVBAの独習でおすすめ参考書を7冊選ぶ。良書との出会いは大切です

今回の記事はここまでです。   最後までご覧いただき有難うございました。

＜記事内容についての告知＞VBAコードの記述記事においては、その記述には細心の注意をしたつもりですが、掲載のVBAコードは動作を保証するものではりません。 あくまでVBAの情報の一例として掲載しています。 掲載のVBAコードのご使用は、自己責任でご判断ください。 万一データ破損等の損害が発生しても当方では責任は負いません。
目次へ戻る

アンケートでポイ活しよう!!

アンケートに答えれば答えるほど ”使える” ポイントがたまります。

NTTコム サーチ

af_banner01

Dstyle web

dstyleweb_logo
dstyle_320x50-min

前の記事

vbaprintusereyecatch01
Excel ユーザー定義用紙の印刷設定 問題解決のVBAコード

次の記事

別々に保存のシートを一つのブックにまとめる。シート移転マクロ
vbatougousheeteyecatch