ステップ1： セルの値によって動的に名前を付けるワークシートのシート名を右クリックし、 コードを表示 右クリックメニューから。

ステップ2： オープニング アプリケーション向け Microsoft Visual Basic ウィンドウで、次の VBA コードをモジュール ウィンドウに貼り付けます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

ヒント： この VBA は、セル A1 の値に基づいてワークシートの名前を動的に変更します。必要に応じて、「A1」を他のセルに変更できます。

ステップ3： VBA コードを保存して閉じます。 アプリケーション用 Microsoft Visual Basic 窓。

次に、指定したセル値に基づいてシート名が動的に変更されることがわかります。

1. クリック クツールズプラス > ワークシート > ワークシートの名前を変更する。 スクリーンショットを参照してください：
   
2. オープニング 複数のワークシートの名前を変更する ダイアログボックスで、次のようにしてください。
   1. ワークシート リストで、名前を変更するワークシートを確認します。
   2. オプションの名前変更 セクションで、 元のシート名を置き換える オプションを選択します。
   3. 新しいワークシート名 セクション、チェックしてください ワークシートの名前を特定のセルに変更する オプションを使用して、対応するシートの名前を変更する内容を含むセルを指定します。
   4. クリック Ok

そして、チェックされたすべてのシートの名前が、各シートの指定されたセルに基づいて変更されるようになりました。 スクリーンショットを参照してください:

1. クリック クツールズプラス > ワークシート > ワークシートの名前を変更する.
   
2. オープニング 複数のワークシートの名前を変更する ダイアログ ボックスで、次のように設定します。
   1. ワークシート リストで、名前を変更するワークシートを選択します。
   2. オプションの名前変更 セクションで、 元のシート名を置き換える オプションを選択します。
   3. 新しいワークシート名 セクションで、 特定の範囲から オプションをクリックし、  XNUMX番目を開くボタン 複数のワークシートの名前を変更する ダイアログ ボックス (右のスクリーンショットを参照)。 次に、値によって名前を変更するセルのリストを選択し、 OK
   4. クリック Ok 名前を適用するボタン。

次に、チェックされたすべてのワークシートの名前が、指定したリストのセル値に置き換えられることがわかります。 以下のスクリーンショットを参照してください。

デモ：Excelのセル値（リストから）に基づく名前シート

関連記事：