「sheet1」と「Data1」というシートがあります。
Sheet1にはData1とリンクさせた数値、
及びグラフが大量にあります。
そこに「sheet2」と「Data2」というシートを
「sheet1」と「Data1」をコピーして作成したとします。
Data2には新規に数値を入力し、
Sheet2にリンクさせたいのですが、
Sheet2はSheet1をコピーしたものなので修正が必要ですよね。
Sheet2を置換を使い、「Data1→Data2」に修正します。
が...グラフのリンクは置換では変更できません。
グラフが大量にある場合、
グラフを一つ一つ「元データ」をいじって直すしかないのでしょうか?
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
VBAでよろしければ以下のようになります。
Sub sample()
Dim CO As ChartObject
Dim Ser As Series
Dim Oldname As String
Dim Newname As String
Oldname = "Data1" '元のシート名
Newname = "Data2" '置換後のシート名
For Each CO In ActiveSheet.ChartObjects 'アクティブシート内のグラフ全て
For Each Ser In CO.Chart.SeriesCollection 'グラフ内の系列全て
Ser.Formula = Replace(Ser.Formula, Oldname, Newname) '置換する
Next Ser
Next CO
End Sub
Alt+F11を押して出てきた画面で、挿入→標準モジュールを選択、出てきたウィンドウに上記のコードを貼り付けて実行してください。実行時は、Sheet2(置換したいグラフのあるシート)をアクティブにしておいてください。
なお、シート名の先頭に数字が使われているなどの場合、シート名をシングルクォーテーションで囲む必要がありますのでご注意ください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Excel(エクセル) VBAにてエクセルをpdf化する方法 1 2023/03/10 16:20
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Excel(エクセル) 【Excel質問】別シートにある複数の同型の表から、同じ行項目にある数字を集計する 4 2023/02/16 00:14
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Visual Basic(VBA) このプログラムなんですがsheetにデータを置いて表示できるようにしてありますがsheetに101を 2 2023/02/23 20:13
- その他(Microsoft Office) オフィス365のエクセル 3 2023/06/29 13:10
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】PDF出力に任意のファイ...
-
エクセルでページごとにヘッダ...
-
エクセルで シート保護のパス...
-
[EXCEL] あるフィールドをキー...
-
【VBA】#N/Aを無視して串刺し...
-
Excelマクロ パスワードを入力...
-
エクセルのシートごとに連番を...
-
ロータスについての質問。
-
エクセル データベースからの引用
-
ユーザー定義関数の使用法
-
エクセルVBA ワークシート検索...
-
PowerPointの表内のカンマ
-
LINEのこの空白ってどんな意味...
-
EXCELでタイトル行と一番下の行...
-
名簿の漢字名を関数で半角カナ...
-
Wordの差し込み印刷で空白行が...
-
EXCELで縦の行全てに一括して文...
-
エクセルでオートサムを使った...
-
エクセルでleft関数の結果が表...
-
EXCEL 連動したドロップダウン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】PDF出力に任意のファイ...
-
エクセルのシートごとに連番を...
-
エクセルで設定していないのに...
-
エクセルでページごとにヘッダ...
-
excel串刺し計算で合計値が表示...
-
Excelマクロ パスワードを入力...
-
複数のEXCELシートの印刷順の指定
-
既存ワークシートにピボットテ...
-
エクセルで、ハイパーリンクの...
-
社内SEです。機種、ライセンス...
-
エクセルで個人成績グラフをつ...
-
【VBA】#N/Aを無視して串刺し...
-
Access2010 Excelのエクスポー...
-
エクセルのイベントVBAを複数の...
-
この記号、手短(テミジカ)に日本語...
-
[EXCEL] あるフィールドをキー...
-
エクセル VBAでシートのコピー...
-
Excel 一覧表から特定の数値を...
-
excelのシート番号を取得したい...
-
マクロ記録機能を使ってグラフ...
おすすめ情報