「Excel シート名をセルに表示するVBAコード完全ガイド！5分でできる実践的な方法」

Excelの作業効率を劇的に向上させるために、シート名をセルに自動で表示させるVBAコードがあることをご存じですか？これにより、シートのタイトルや名前を素早く確認でき、手動で変更する手間を省くことができます。しかし、VBAを使ったことがない方にとっては、どこから手を付けてよいのか分からないことも多いでしょう。

今回は、初心者でもすぐに実践できる、シート名をセルに表示させるためのVBAコードの使い方を、ステップバイステップで解説します。簡単にできる方法から少し応用的な方法まで、幅広いテクニックを紹介しますので、ぜひ最後までご覧ください！

VBAを使ってシート名をセルに表示するメリット
Excelでシート名をセルに表示するVBAコードの基本
応用編複数のシートでシート名を表示させる方法
1. ステップ1: 複数シートにシート名を表示
2. ステップ2: シート名のフォーマットを変更する
Excel シート名をセルに表示するVBAに関する疑問解決
1. Q1: 他のセルにシート名を表示することはできますか？
2. Q2: どのタイミングでシート名を更新できますか？
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
まとめ

VBAを使ってシート名をセルに表示するメリット

Excelのイメージ

Excelでシート名をセルに表示するVBAコードを使用することで得られる主なメリットは以下の通りです

ここがポイント！

シート名の一貫性を保つシート名を手動で更新する必要がなくなるため、他のシートとのリンクや参照が常に正確に保たれます。
作業効率の向上複数のシートを管理している場合、どのシートにどの情報があるのかを一目で把握できるようになります。
自動化の利便性VBAを使うことで、作業の自動化が可能になり、時間を大幅に節約できます。

これらのメリットにより、VBAを使ったシート名の表示は、特に業務で大量のデータを扱う際に非常に有用です。

Excelでシート名をセルに表示するVBAコードの基本

まずは基本的なVBAコードを使って、シート名をセルに表示する方法を学びましょう。初心者でも簡単に実行できます。

ステップ1: VBAエディタを開く

1. Excelを開いた状態で、「Alt」＋「F11」を押して、VBAエディタを起動します。
2. エディタ内で、「挿入」→「モジュール」を選択して、新しいモジュールを追加します。

ステップ2: VBAコードの記入

次に、以下のコードをモジュール内に入力します。このコードは、現在のシート名をセルA1に表示するものです。

vba

Sub DisplaySheetName()

    ' シート名をセルA1に表示

    Range("A1").Value = ActiveSheet.Name

End Sub

このコードを実行すると、アクティブなシートの名前がセルA1に表示されます。

ステップ3: コードの実行

コードを記入したら、VBAエディタを閉じて、Excelに戻ります。次に、再度「Alt」＋「F8」でマクロを実行し、「DisplaySheetName」を選択して実行します。

これで、シート名がセルA1に表示されるはずです！

応用編複数のシートでシート名を表示させる方法

基本的な方法を学んだ後は、さらに便利な応用技を紹介します。複数のシートにわたって、各シート名を表示させる方法を見ていきましょう。

ステップ1: 複数シートにシート名を表示

以下のコードを使うと、すべてのシートでそのシート名をセルA1に表示できます。シートごとにVBAコードを実行する必要はありません。

vba

Sub DisplaySheetNamesOnAllSheets()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets

        ws.Range("A1").Value = ws.Name

    Next ws

End Sub

このコードは、ワークブック内のすべてのシートをループして、各シートのセルA1にシート名を表示します。

ステップ2: シート名のフォーマットを変更する

さらに、シート名をもっと見やすくするために、セルのフォーマットを変更することもできます。例えば、セルA1に太字や色を付けることができます。

vba

Sub DisplaySheetNameWithFormat()

    ' シート名をセルA1に表示

    Range("A1").Value = ActiveSheet.Name
    ' セルA1のフォントを太字に

    Range("A1").Font.Bold = True

' セルA1の背景色を変更 Range("A1").Interior.Color = RGB(255, 255, 0) End Sub

このコードを実行すると、シート名が太字になり、背景色が黄色に変更されます。視覚的に目立つため、見落としを防げます。

Excel シート名をセルに表示するVBAに関する疑問解決

読者の中には、VBAの使い方やその他の詳細について疑問を持っている方もいるかもしれません。ここではよくある質問を紹介し、解決策を提供します。

Q1: 他のセルにシート名を表示することはできますか？

A1ではなく、例えばB2セルにシート名を表示したい場合は、コードを次のように変更します。

vba

Sub DisplaySheetNameInB2()

    Range("B2").Value = ActiveSheet.Name

End Sub

このコードを実行すると、シート名はセルB2に表示されます。

Q2: どのタイミングでシート名を更新できますか？

シート名が変更された時に自動的にセルを更新する方法もあります。これを実現するには、ワークシートの「Change」イベントを使用します。

vba

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then

        Range("A1").Value = ActiveSheet.Name

    End If

End Sub

これにより、A1セルが変更されたときにシート名が自動的に更新されます。