Excelでグラフのタイトルのテキストを見つけて置き換える方法は？

グラフはExcelで非常に便利であり、グラフを識別するためにいくつかのタイトルを付けることがよくあります。 しかし、複数のグラフ内のグラフタイトルのテキスト値を見つけて置き換えようとしましたか？ 今日は、複数のグラフタイルで特定のテキストを見つけて、Excelで他の値に置き換える方法について説明します。

Excelのグラフタイトルのテキストを検索してVBAコードに置き換えます

Excelのグラフタイトルのテキストを検索してVBAコードに置き換えます

次のスクリーンショットに示すようなグラフを含むワークシートがあり、すべてのグラフタイトル内のテキストをXNUMX月からXNUMX月に置き換えたいとします。 もちろん、手動でXNUMXつずつ変更することもできますが、複数のグラフがある場合は時間がかかります。 したがって、ここでは、次のVBAコードがこのタスクの処理に役立ちます。</ p>

1。 検索して置き換えるチャートがタイトルに含まれているワークシートをアクティブにします。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：アクティブなワークシート内のグラフタイトルのテキストを検索して置換します

Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
    If ch.Chart.HasTitle Then
        ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
    End If
Next
End Sub

4。 次に、 F5 このコードを実行するためのキーを押すと、置き換えたい古いテキストを入力するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

5。 そして、 OK ボタンをクリックすると、別のプロンプトボックスが表示されます。古いテキスト値を置き換える新しいテキスト値を入力する必要があります。スクリーンショットを参照してください。

6。 クリックしてください OK プロンプトボックスを閉じると、次のスクリーンショットに示すように、現在のワークシートで古いテキストが一度にニュースに置き換えられます。

Note：ブック内のすべてのワークシートでグラフのタイトルのテキスト値を見つけて置き換える必要がある場合は、次のVBAコードを適用する必要があります:(手順は上記と同じです）

VBAコード：すべてのワークシート内のグラフタイトルのテキストを検索して置換します

Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
    For Each ch In sh.ChartObjects
        If ch.Chart.HasTitle Then
            ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
        End If
    Next
Next
End Sub

関連記事：

Excelでコメント内のテキストを見つけて置き換える方法は？

Excelの複数のテキストボックスで特定のテキストを見つけて置き換える方法は？

Excelで一度に複数のハイパーリンクパスを変更するにはどうすればよいですか？