Excelで目次を作る！シート名自動出力マクロ【無料配布】

このページでは、この動画で使用しているマクロの配付と解説を行います。

さくさく🌸効率厨のExcel教室 on Instagram: "初心者のためのExcel授業はこちら👉（@sakusaku_excel） おまけ欲しい😍動画じゃ分からない！ という方はは「マクロ｣とコメントしてね！解説書を渡して個別でわかるまで教えます✨ 今日の目次は初めての方も多いのでは！？？ やり方を教えます♪︎ ①シート名を並べて入力 ②HYPERLINK関数を入力 =HYPERLINK（"#'"&A2&"'!A1",A2） これだけ！みんなもチャレンジしてみて✨ 初耳！の人▶🔥 知ってたよ！の人▶👏 コメントお待ちしてます♪︎ 気を付け、これで今日の授業終わりま～す！ 右下の「…」➡「保存」でいつでも見られるようにしておくのがオススメ✨ ￣￣￣￣⁡￣￣￣￣⁡￣⁡￣￣￣￣￣￣￣￣￣⁡￣￣￣￣⁡￣￣￣￣￣ 今日も勉強お疲れさまでした♪ 「いいね♡」がとっても励みになります！ ＼さくっと1分！効率のよい働き方を！／ ●仕事で使えるExcel時短術 ●Excel改善・システム作りお任せください💪 ●Excel資格取得で残業30h/月➡毎日定時退勤に！！🏃🏻‍♂️ 🎧ミセス🍏と米津🌾古参ファン💕 👇🏻ブログにも画像付き解説まとめてます😆 👇ExcelやPCのご相談はDMまで！ Follow me！ ▷▷@sakusaku_excel ￣￣￣￣⁡￣￣￣￣⁡￣⁡￣￣￣￣￣￣￣￣￣⁡￣￣￣￣⁡￣￣￣￣￣ #エクセル #エクセル時短術 #エクセル時短 #エクセル時短ワザ #excel時短術 #エクセル初心者 #excel初心者"

ぜひ、Excelの仕事効率化にご活用ください。

コード

Sub sheetName()
Dim ws As Worksheet
Dim i As Long
Set ws = Sheets(1) '任意のシート名を入れてください。例：Sheets("目次")
ws.Move before:=Sheets(1)
For i = 2 To Worksheets.Count
 ws.Cells(i,1).Value=Worksheets(i).Name
Next i
End Sub

動画で使用しているプログラミングコードです。

解説

共通部分の解説はこちら！

４行目

Set ws = Sheets(1)

ここでは、１番目にある（一番左）シートにシート名を出力するように設定しています。

wsという名前の箱（変数）に１番目のシート（Sheets(1)）を代入（Set)しているわけです。

なので、２番目３番目のシートに出力するようにしたい場合は、Sheets(2)、Sheets(3)とし、
名前で指定代入する場合は、Sheets("目次")など””で囲ってシート名を間違えなく入力すれば大丈夫です！

５行目

ws.Move before:=Sheets(1)

先ほどのwsに代入したシートをシート１（Sheets(1)）より前に（before)動かして（Move）います。
つまり自分で決めたwsを一番前に移動させています。

「目次」を作る前提なので、一番前に移動させていますが、なくてもちゃんとマクロは機能します。

６行目

For i = 2 To Worksheets.Count
　　　別のコード
Next i

ここで、繰り返し作業（For～Next）をさせています。
２番目のシートから最後のシート（Worksheets.Count)までのシート名を取得したいので、順番に同じ作業（別のコード）ができるような繰り返しの枠をつくっているイメージです。

７行目

ws.Cells(i,1).Value=Worksheets(i).Name

ここがメインの作業になります。
先ほど設定した繰り返し作業の中にあるコードなので、「i」に２～１４（今回の動画で使っているExcelファイルは１４枚のシートがあるため）
の数字が順番に入っていきます。

「ws」のセル(Cells）i「２～１４」行目の１列目（i,1)の値（Value）を、ワークシート「i」番目（２～１４）の名前を入れる。

といった意味のコードなので、最初は「i」に２が入り、次に３，４…と１４まで順番に数字が入ります。
なので２行目の１列目に２番目のシート名が出力され、３行目の１列目に３番目のシート名が出力、４行目の１列目に４番目のシート名が出力…

と繰り返しシート名が出力されています。

使い方

マクロ（VBA）を入力する方法や、実行する方法、ボタンを作る方法は、こちらをご確認ください。