目次を作る時など、たくさんあるシートタブの名前をワークシート上に書き出したい場合がありますよね。
シートタブ名はマウス右クリックではコピペできません。「ホーム」タブの「コピー」「貼り付け」ボタンや、ショートカットキーを使って１つずつなら何とかコピペできますが、シートがたくさんある場合は面倒な作業です。
ワークシート上をダブルクリックするだけで、シート数がいくつあっても一瞬で書き出す方法を解説いたします。マニュアル作成などにも便利です。
紹介しました機能付きエクセルファイルをご希望の方へメールでお送りしています。いちばん下にある「ファイル申し込み」へご登録ください。
↓ 簡単動画からご覧ください。
シート名をまとめてリストアップする方法
①設定したいエクセルブック上で[Alt]＋[F11]を押します。
②「VBAプロジェクト」が現れたら「This Workbook」を選択します。
③「コードウィンドウ」にコードを書くのですが、コピー用のコードを用意してあります。下の「コピペしてください」の6行をコピーして貼り付けてください。
コピペしてください
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim S As Integer
For S = 1 To Sheets.Count
Cells(S, 1) = Sheets(S).Name
Next S
End Sub
④このように貼り付いたらOKです。
⑤ブックを「名前を付けて保存」で保存します。
⑥「ファイルの種類(T)」を「Excelマクロ有効ブック(*.xlsm)」に指定します。
⑦「保存(S)」で保存完了です。
使い方
取り込みたいシート上で「ダブルクリック」すると
①すべてのシートタブ名が
②セルA1から縦方向へリストアップします。
無料ファイルプレゼント
今回の記事で紹介したEXCELファイルをメールで安全にお届けいたします。
登録後は新着記事のファイルを公開直前のタイミングでお送りします。
お送りするファイルはWindows7以降、Office2007以降に対応しております。
ご指定のメールの迷惑設定により到着しない時は迷惑設定を解除してください。
