Excelでセルの値をシートタブ名と一致させる、またはその逆を行うにはどうすればよいですか？

指定されたセルにシートタブ名を参照したい場合や、指定されたセルの値でシートに名前を付けたい場合、次の方法が役立ちます。

数式を使用してセルの値をシートタブ名と一致させる
Kutools for Excelを使用してセルの値をシートタブ名と一致させる
VBAコードを使用してセルの値でシートタブに名前を付ける
Kutools for Excelを使用してセルの値でシートタブに名前を付ける

数式を使用してセルの値をシートタブ名と一致させる

次の数式を適用して、Excelでセルの値をシートタブ名と一致させることができます。

1. シートタブ名を配置するための空白のセルを選択し、以下の数式を入力してからEnterキーを押します。

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)

これで、シートタブ名が空白のセルに参照されていることが確認できます。

Kutools for Excelを使用してセルの値をシートタブ名と一致させる

数式が覚えにくい場合は、ここでは便利なツールであるKutools for Excelをお勧めします。Insert Workbook Informationユーティリティを使用すると、数回のクリックだけでExcelでセルの値をシートタブ名と一致させることができます。

1. シートタブ名を配置するための空白のセルを選択し、次にKutools Plus > ワークブック > Insert Workbook Informationをクリックします。

2. 「Insert Workbook Information」ダイアログボックスで、「情報」セクションで「Worksheet name」オプションを選択し、「 挿入位置」セクションで「Range」オプションを選択したままにして、最後に「OK」ボタンをクリックします。スクリーンショットをご覧ください：

これで、シートタブ名が選択したセルに挿入されます。

VBAコードを使用してセルの値でシートタブに名前を付ける

このセクションでは、Excelで指定されたセルの内容を使用してシートタブに名前を付けるVBA方法を紹介します。以下の手順に従ってください。

1. Alt + F11キーを同時に押して、「 Microsoft Visual Basic for Application」ダイアログボックスを開きます。

2. 「Microsoft Visual Basic for Application」ダイアログボックスで、[挿入] > [モジュール]をクリックします。その後、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBAコード: セルの値でシートタブに名前を付ける

Sub TabName()
    ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub

注: 上記のコードでは、A1はシートタブに名前を付けるために使用するセルの値です。必要に応じて他の指定されたセルに変更できます。

3. コードを実行するためにF5キーを押すと、シートタブがA1セルの内容で即座に名前が変更されます。

Kutools for Excelを使用してセルの値でシートタブに名前を付ける

Kutools for Excelの Rename Multiple Worksheetユーティリティを使用すると、指定されたセルの値でシートタブに名前を付けることができます。以下の手順に従ってください。

1. シートタブ名として使用するセルの内容を選択し、次にKutools Plus > ワークシート > Rename Worksheetsをクリックします。

2. 「Rename Multiple Worksheets」ダイアログボックスで、指定されたセルの内容で名前を変更するワークシートを「Worksheets」ボックスでチェックし、「Rename Options」セクションで「 Replace original sheet name」オプションを選択し、「From specific range」または「Rename worksheets with specific cell」オプションを選択して、最後に「OK」ボタンをクリックします。

3. 「OK」ボタンをクリックすると、名前が正常に変更されたワークシートの数を知らせるダイアログボックスが表示されます。「OK」ボタンをクリックしてください。

これで、上記のスクリーンショットのように、シートタブがA1セルの内容で名前が変更されました。

Excelでセルの値をシートタブ名と一致させる、またはその逆を行う