excel グラフについて教えてください。

Question

gon_7

2

0もっと見る

コンピュータ

excel グラフについて教えてください。

ひとつのsheetにグラフが90個ある状態で、sheetは支店ごとに７つあります。それぞれにデータのsheetとグラフのsheetとなっており、ひとつの支店のグラフ90個を完成させたので、それをコピーしてから、参照するデータを置換して次の支店のグラフをつくりましたが、グラフタイトルが置換できません。90個のうち45個のみタイトルがあり、他の45個のグラフにタイトルはないままにしたいです。
参照データを置換するBVAをサイトから見つけて、初心者の私が何とかグラフ自体はうまくできたのですが、タイトルのあるグラフのみ、一括で置換できるようなBVAを教えていただけないでしょうか。どうぞよろしくお願い申し上げます。

回答の条件

1人5回まで

登録：2020/02/29 09:27:40
終了：2020/03/02 09:03:48

質問者から

gon_72020/03/05 21:53:15

質問に何が不足しているのかを教えてくださいまして、誠にありがとうございます。

補足をさせていただきます。

現状の４５個のグラフは、「４月実績（A支店）」「５月実績（B支店）…のようになっており、それぞれに対になっているグラフがあり、これにはタイトルがついていません。参照するデータを置換して９０個のグラフはB支店のものにできたのですが、タイトルがA支店のままなので、４５個のタイトルを「４月実績（B支店）」のように、（A)のところだけ（B)に置換したいと考えております。残りの４５個については

タイトルがないままにしたい、という希望です。支店のsheetが７つあることから、タイトル４５個×７sheet分打ち直さずに、できればありがたい、という状況です。

よろしくお願い申し上げます。

規約違反として通知

a-kuma3 2020/02/29 21:19:29

今の人力検索には、この類の質問に回答する人は片手の指くらいの人数が居るはずですが、質問で提示されている内容だと具体性に欠けているところがあって答えずらい。

ひとつのシートにグラフが90個あるのは分かりますが、
- タイトルを変えたい45個のグラフの、タイトルを作るルール
- タイトルをつけたくないグラフは、元々タイトルがついていないのをそのままにしたいのか、何かのルールで消したりしたいのか

期待している回答は、貼り付けると一発で動くコードでしょうから、上記の辺りを提示しないと回答が書きづらいだろうなあ、と。
gon_7 2020/03/01 11:13:58

質問者からの補足を書き間違えていることに気づきました。現状「４月実績（A支店）」「５月実績（B支店）」と書いたのは、「４月実績（A支店）」「５月実績（A支店）」の間違いです。申し訳ありません。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

a-kuma3 · Accepted Answer · 2020-03-01T22:45:10+09:00

以下のコードを標準モジュールに貼りつけて、do_change サブルーチンを実行してみてください。

Sub change_graph_title(sheet_name, word, replace_word)
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = word

    For Each co In Worksheets(sheet_name).ChartObjects
        Set c = co.Chart
        If c.HasTitle Then
            If re.test(c.ChartTitle.Text) Then
                c.ChartTitle.Text = re.Replace(c.ChartTitle.Text, replace_word)
            End If
        End If
    Next
End Sub

Sub do_change()
    Call change_graph_title("Sheet1", "A支店", "B支店")
End Sub

以下の部分は、複数のシートがありそうなので、必要に応じて複数作ってください。

Sub do_change()
    '                        ↓をシートの名前分だけ変えて複製する
    Call change_graph_title("Sheet1", "A支店", "B支店")
    Call change_graph_title("Sheet2", "A支店", "B支店")
    Call change_graph_title("Sheet3", "A支店", "B支店")
End Sub

a-kuma3 · Accepted Answer · 2020-03-01T22:45:10+09:00

以下のコードを標準モジュールに貼りつけて、do_change サブルーチンを実行してみてください。

Sub change_graph_title(sheet_name, word, replace_word)
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = word

    For Each co In Worksheets(sheet_name).ChartObjects
        Set c = co.Chart
        If c.HasTitle Then
            If re.test(c.ChartTitle.Text) Then
                c.ChartTitle.Text = re.Replace(c.ChartTitle.Text, replace_word)
            End If
        End If
    Next
End Sub

Sub do_change()
    Call change_graph_title("Sheet1", "A支店", "B支店")
End Sub

以下の部分は、複数のシートがありそうなので、必要に応じて複数作ってください。

Sub do_change()
    '                        ↓をシートの名前分だけ変えて複製する
    Call change_graph_title("Sheet1", "A支店", "B支店")
    Call change_graph_title("Sheet2", "A支店", "B支店")
    Call change_graph_title("Sheet3", "A支店", "B支店")
End Sub

excel グラフについて教えてください。

質問者から

ベストアンサー

a-kuma3497321542020/03/01 22:45:10

その他の回答（0件）

a-kuma3497321542020/03/01 22:45:10ここでベストアンサー

コメント（2件)

この質問への反応（ブックマークコメント）