Excel でセル値(リストから)に基づきシートを名前変更する方法は?
Excel で単一のワークシートの名前を変更するには、通常、そのシートのタブを右クリックしてコンテキストメニューから「名前の変更」を選択します。しかし、複数のワークシートを特定のセルの値に基づいて一括で名前変更したい場合や、特定のセルの値に応じてワークシートの名前を動的に付け替えたい場合には、いくつかの効率的な方法があります。本記事では、これらの手法をわかりやすく、スムーズにご案内します。
VBA を使用してセル値に基づきシートを動的に名前変更する
Excel では、VBA を使って特定のセルの値に基づいてワークシートの名前を動的に変更できます。以下の手順に従って操作してください。
手順1: 名前をセルの値に応じて動的に変更したいワークシートのシート見出しを右クリックし、コンテキストメニューからコードの表示を選択します。![シート名を右クリックして[コードの表示]を選択](http://cdn.extendoffice.com/images/stories/doc-excel/name-sheets-by-cells/doc-name-sheets-by-cells-6.png)
手順2: 開いたMicrosoft Visual Basic for Applicationsウィンドウで、次の 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 for Applicationsウィンドウを閉じてください。
その後、シート名が指定されたセルの値に基づいて動的に変更されることが確認できます。
注記:
- 指定されたセルが空白の場合は、ワークシートの名前は変更されません。
- 指定されたセルの値を変更するたびに、ワークシート名が自動的に更新されます。
- 指定されたセルに「*」などの特殊文字を入力すると、エラー警告が表示されます。
各シート内のセル値に基づき複数のシートを名前変更する
上記の方法では一度に1 つのシートしか名前変更できません。しかし、バッチ名前変更ワークシート機能()Kutools for Excel)を使えば、各シート内の指定セル(例:セル A1)の値に基づいて、すべてまたは複数のシートを素早く名前変更できます。
- クリックして、KUTOOLS PLUS > ワークシート > ワークシートの名前を変更する。スクリーンショットをご参照ください。
![Kutools の[ワークシートの名前変更]機能をクリック](//cdn.extendoffice.com/images/stories/doc-excel/name-sheets-by-cells/doc-rename-worksheets.png)
- 開いたバッチ名前変更ワークシートダイアログボックスで、以下の手順に従ってください。
- 「ワークシート」リストで、名前を変更したいワークシートにチェックマークを付けましょう。
- 「名前のスタイル」セクションで、元の名前を置き換えるオプションにチェックを入れてください。
- 「ファイル名のソース」セクションで、対応するワークシートのセルからオプションにチェックマークを入れ、ファイル名として使用するセル(該当シート内)を指定します。
- OKボタンをクリックしてください。
これで、チェックしたすべてのシートがそれぞれの指定セルの値に基づき名前変更されました。スクリーンショットを参照してください。
注記:バッチ名前変更ワークシート機能をお使いになりたいですか?今すぐKutools for Excelをダウンロードしてください!さらに、Kutools には他にも300 以上の豊富な機能が搭載されており、30 日間の無料トライアルもご利用いただけます。いますぐお試しください!
指定されたリストに基づき複数のシートを名前変更する
Kutools for Excel のバッチ名前変更ワークシート機能を使えば、指定リスト内のセル値に基づいて複数のシートを一括で名前変更できます。
- クリックして、KUTOOLS PLUS > ワークシート > ワークシートの名前を変更する。
![Kutools の[ワークシートの名前変更]機能をクリック](//cdn.extendoffice.com/images/stories/doc-excel/name-sheets-by-cells/doc-rename-worksheets.png)
- 開いたバッチ名前変更ワークシートダイアログボックスで、以下のとおり設定してください。
その後、チェックしたすべてのワークシートの名前が指定リスト内のセル値に置き換えられているのが確認できます。下記のスクリーンショットを参照してください。
注記:バッチ名前変更ワークシート機能をお使いになりたいですか?今すぐKutools for Excelをダウンロードしてください!さらに、Kutools には他にも300 以上の豊富な機能が搭載されており、30 日間の無料トライアルもご利用いただけます。今すぐお試しください!
デモ:Excel でセル値(リストから)に基づきシートを名前変更する
関連記事:
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得
![Kutools の[ワークシートの名前変更]機能をクリック](http://cdn.extendoffice.com/images/stories/doc-excel/name-sheets-by-cells/doc-rename-worksheets.png)


