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

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

ワークシートの名前変更は通常、Excelの作業で適用されますが、セルの値に基づいてワークシートの名前を変更しようとしたことがありますか? もちろん、ワークシートの名前を手動で変更することもできますが、このチュートリアルでは、セル値に基づいて複数のワークシートの名前をすばやく変更できるいくつかのトリックを紹介します。これにより、作業時間を節約できます。

VBAを使用して特定のセルに基づいてワークシートの名前を変更する

複数のワークシートの名前を変更して、特定のセルに基づいてワークシートの名前を変更します 良いアイデア3

複数のワークシートの名前を変更して、セルの内容の範囲に基づいてワークシートの名前を変更します 良いアイデア3


以下のVBAを使用すると、特定のセルに基づいて相対ワークシートの名前を変更できます。

1.ワークシートの名前を変更するセルを選択します。この場合は、セルA1を選択します。 スクリーンショットを参照してください:

doc名前変更ワークシート1

2。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

3。 クリック インセット > モジュール、次にVBAコードの下を新しいものに貼り付けます モジュール 窓。

VBA:特定のセル値に基づいてワークシートの名前を変更します。

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4。 押す F5 VBAコードを実行するためのキー。 次に、すべてのワークシートの名前が、相対的なA1セルの値ごとに変更されました。

doc名前変更ワークシート2


あなたが持っている場合 Kutools for Excel、VBAコードを保存する必要はありません、あなたは使用することができます 複数のワークシートの名前を変更する 相対セルに基づいてすべてのワークシートの名前をすばやく変更する機能。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

後の 無料インストール Kutools for Excel、以下のようにしてください:

1.ワークシートの名前の名前を変更するワークブックを有効にします。

2。 クリック クツールズプラス > ワークシート > ワークシートの名前を変更する。 スクリーンショットを参照してください:

doc名前変更ワークシート11

3.次に、ポップアウトされたダイアログで、名前を変更するシートをチェックします。 ワークシート ペインをクリックし、いずれかを選択します オプションの名前を変更 必要です、ここでシート名を置き換えて確認します ワークシートの名前を特定のセルに変更する、名前を変更する必要のあるセルを選択します。 スクリーンショットを参照してください:

doc名前変更ワークシート9

4。 クリック Ok。 これで、シートの名前が特定のセルの内容に変更されました。

doc名前変更ワークシート2

ただし、場合によっては、以下のスクリーンショットに示すように、セル値の範囲に基づいて複数のワークシートの名前を変更する必要があります。この場合は、次を選択できます。 以下の方法.

doc名前変更ワークシート3


複数のワークシートの名前を変更する of Kutools for Excel、選択した範囲に基づいてシートの名前を変更することもできます。

後の 無料インストール Kutools for Excel、以下のようにしてください:

1。 クリック クツールズプラス > ワークシート > ワークシートの名前を変更する。 スクリーンショットを参照してください:

doc名前変更ワークシート11

2。 の中に 複数のワークシートの名前を変更する ダイアログでは、次のように設定を指定する必要があります。

(1)名前を変更する必要のあるワークシートを選択します ワークシートリスト;

(2)チェック 特定の範囲から オプションをクリックし、名前を変更する必要のあるセル値を選択します。

(3)を指定します オプションの名前変更、 確認してもいい 元のシート名の前に挿入, 元のシート名の後に挿入または 元のシート名を置き換える、ダイアログで対応する結果をプレビューできます。

doc名前変更ワークシート10

3。 クリック Ok、次に、選択したすべてのワークシートが、指定したセル値に基づいて名前が変更されていることを確認できます。

元のシート名を置き換える

doc名前変更ワークシート6

元のシート名の前に挿入

doc名前変更ワークシート7

元のシート名の後に挿入

doc名前変更ワークシート8

ワークシートの名前変更ユーティリティを使用すると、特定のプレフィックスまたはサフィックスを使用してワークシートの名前を変更することもできます。 複数のワークシートの名前変更の詳細については、ここをクリックしてください。

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の 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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works. It always goes into Debug on the first try. I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.
This comment was minimized by the moderator on the site
Hi, Don, the VBA has updated twice, it may be works for most of conditions, but not for the all. 
This comment was minimized by the moderator on the site
In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
This comment was minimized by the moderator on the site
Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
This comment was minimized by the moderator on the site
'Updateby20150602
This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
This comment was minimized by the moderator on the site
Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations