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

Excelで(リストからの)セル値に基づいてシートの名前を変更するにはどうすればよいですか?

Excel で XNUMX つのワークシートの名前を変更するには、通常、シートのタブを右クリックし、コンテキスト メニューから [名前の変更] を選択します。 ただし、指定したセルの値を使用して複数のワークシートの名前を変更する必要がある場合、または特定のセルの値に基づいてワークシートに動的に名前を付けたい場合には、使用できる方法がいくつかあります。 この記事では、プロセスを簡単かつ効率的に行うためのこれらのテクニックについて説明します。


VBAを使用してセルの値からシートの名前を動的に変更する

Excel の VBA を使用すると、特定のセルの値からワークシートの名前を動的に変更できます。次のように実行できます。

ステップ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 窓。

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

注意:

  • 指定したセルが空白の場合、ワークシートの名前は変更されません。
  • 指定したセルの値を変更するたびに、ワークシートの名前が変更されます。
  • 指定したセルに * などの特殊文字を入力すると、エラー警告がポップアップ表示されます。

対応するシートのセル値に基づいて複数のシートの名前を変更します

上で説明した方法では、一度に XNUMX 枚のシートの名前を変更できます。 ただし、 複数のワークシートの名前を変更する の特徴 Kutools for Excelを使用すると、対応する各シートの指定したセルの値に基づいて、すべてまたは複数のシートの名前を迅速に変更できます。 たとえば、各シートの名前を、その特定のシートのセル A1 にある値と一致するように変更できます。

Kutools for Excel - Excel に必要な 300 以上のツールが詰め込まれています。 クレジット カードは必要なく、全機能を備えた 30 日間の無料トライアルをお楽しみください。 ダウンロード中!

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

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

注: にアクセスしたい 複数のワークシートの名前を変更する 特徴? ダウンロード Kutools for Excel 今! これを超えて、Kutools は 300 以上の他の機能を誇り、30 日間の無料トライアルを提供しています。 待ってはいけません、今日試してみてください!


指定されたリストから複数のシートの名前を変更します

Excel用のKutools 複数のワークシートの名前を変更する この機能では、指定されたリストのセル値に基づいて複数のシートの名前を変更することもサポートされています。

Kutools for Excel - Excel に必要な 300 以上のツールが詰め込まれています。 クレジット カードは必要なく、全機能を備えた 30 日間の無料トライアルをお楽しみください。 ダウンロード中!

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

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

注: にアクセスしたい 複数のワークシートの名前を変更する 特徴? ダウンロード Kutools for Excel 今! これを超えて、Kutools は 300 以上の他の機能を誇り、30 日間の無料トライアルを提供しています。 待ってはいけません、今日試してみてください!


デモ:Excelのセル値(リストから)に基づく名前シート


Kutools for Excel: 300 を超える便利なツールをすぐに利用できます。 機能制限なしの 30 日間の無料トライアルを今すぐ始めてください。 今すぐダウンロード!

関連記事:

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations