メインコンテンツへスキップ

すべてのシートの目次を作成して自動的に更新する方法は?

何百ものワークシートを含むワークブックがあると仮定すると、複数のシートの中から特定のシートに移動することは、ほとんどの人にとって頭痛の種になるかもしれません。 この場合、これらのワークシートの目次を作成すると、特定のシートにすばやく簡単に移動するのに役立ちます。 このチュートリアルでは、すべてのシートの目次を作成し、シート名の挿入、削除、または変更時にテーブルを自動的に更新する方法について説明します。

すべてのシートの目次を作成し、数式で自動的に更新します

すべてのシートの目次を作成し、VBA コードで自動的に更新します

すべてのシートの目次を作成し、強力な機能で自動的に更新します


すべてのシートの目次を作成し、数式で自動的に更新します

Excel では、範囲名を定義し、数式で名前を参照することで目次を作成できます。次の手順に従ってください。

1. 目次を作成するすべてのシートの前に新しいシートを挿入し、必要に応じて名前を変更します。

2。 次に、をクリックします。 > 名前を定義する、スクリーンショットを参照してください:

3。 の中に 新しい名前 ダイアログ ボックス、名前を指定 シートリストお名前 独自のボックスに変更してから、次の式を入力できます。 = GET.WORKBOOK(1)&T(NOW())を参照する テキストボックス、スクリーンショットを参照:

4。 次に、をクリックします。 OK ボタンをクリックしてダイアログボックスを閉じます。

5. 次に、目次を作成する新しいシートに移動し、次の数式を空白のセルに入力してください。

=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")
Note:上記の式では、 シートリスト は、手順 2 で作成した範囲名です。

6. 次に、空白のセルが表示されるまで塗りつぶしハンドルをセルにドラッグし、現在のワークブックのすべてのシート名 (非表示のシートを含む) が以下のスクリーンショットのようにリストされます。

7. 次に、テーブル コンテンツのハイパーリンクを作成する必要があります。以下の式を使用してください。

=HYPERLINK("#'"&A2&"'!A1","シートへ移動")
Note:上記の式では、 A2 シート名を含むセルであり、 A1 そのシートでジャンプしたいセルです。 たとえば、ハイパーリンク テキストをクリックすると、そのシートのセル A1 が検索されます。

8. これで、ハイパーリンク テキストをクリックすると、すぐにそのシートに移動します。 また、新しいシートを挿入したり、シートを削除したり、シート名を変更したりすると、テーブルの内容が自動的に更新されます。

ノート:
  • 1. この方法では、すべての非表示のシートもテーブル コンテンツに表示されます。
  • 2.ファイルを次のように保存する必要があります Excelマクロが有効なブック このようにすると、次にこのファイルを開くときに、式がうまく機能します。

すべてのシートの目次を作成し、VBA コードで自動的に更新します

非表示のシートをテーブル コンテンツに表示する必要がない場合もあります。 この問題を解決するには、次の VBA コードを使用すると便利です。

1. 目次を作成するすべてのシートの前に新しいシートを挿入し、必要に応じて名前を変更します。 次に、シート タブを右クリックし、 コードを表示 コンテキストメニューから、スクリーンショットを参照してください。

2。 オープンで アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のコードをコピーしてシート コード ウィンドウに貼り付けます。

VBA コード: すべてのシートの目次を作成し、自動的に更新します

Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
    If xWsh.Name <> xStrWShName Then
        If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
            Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
            Me.Range(xStrTCHeader).Offset(xI).Value = xI
            xI = xI + 1
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

3。 次に、 F5 キーを押してこのコードを実行すると、テーブルの内容が新しいワークシートに一度に作成されます。非表示のシートはすべてテーブルの内容に表示されません。スクリーンショットを参照してください。

4. これで、シートを削除、挿入、または名前変更すると、テーブルの内容が動的に更新されます。

Note: また、Excel ファイルを次のように保存する必要があります。 Excelマクロが有効なブック 次回ワークブックを開いたときにコードが正常に実行されるように、形式を変更します。

すべてのシートの目次を作成し、強力な機能で自動的に更新します

あなたが持っている場合 Kutools for Excel、 その ナビゲーションペイン すべてのシート名を左側のペインに垂直に一覧表示し、特定のシートにすばやく簡単に移動するのに役立ちます。

インストールした後 Kutools for Excel、次のようにしてください。

1. クツール > ナビゲーション、スクリーンショットを参照してください:

2。 展開された ナビゲーション ペインをクリック ワークブックとシート アイコンをクリックすると、開いているすべてのワークブックが上部のリスト ボックスに一覧表示され、ワー​​クブック内のすべての表示可能なシートが下部のリスト ボックスに表示されます。スクリーンショットを参照してください。

3. これで、左側のペインからシート名をクリックするだけでシートに移動できます。 また、シートを削除、挿入、または名前変更すると、ペイン内のシート リストが動的に更新されます。

ヒント: デフォルトでは、非表示のシートはナビゲーション ペインに表示されません。非表示のシートを表示するには、 すべての非表示のワークシートを再表示/非表示に切り替えます アイコンで、このアイコンをもう一度クリックすると、非表示のシートがすぐに非表示になります。

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations