追加したいこと。
1、グラフ選択機能(グラフの名前がそれぞれ違うのでそれ をどう解決すれば良いのか…)
2、次シートへの自動移動
これは、全11シートしかないのですがもう一つ「1ファイル8シート」が16ファイル
あるので短時間で変更したいのです。
Sub WorksheetLoop()
Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name ChartObjects_Select graph_change Next I End Sub
Sub ChartObjects_Select()
ActiveSheet.ChartObjects("グラフ 60").Activate 'グラフの選択 __↑ここのグラフ選択はマクロの記録でやってしまっているため”グラフ60”となっています。ここも、変更しないと他に対応が出来ません。__
End Sub
Sub graph_change()
Dim str1 As String, str2 As String, I As Integer
str1 = InputBox("変更前の値を入力してください")
If str1 = "" Then Exit Sub
str2 = InputBox("変更後の値を入力してください")
If str2 = "" Then Exit Sub
With ActiveChart
For i = 1 To .SeriesCollection.Count
.SeriesCollection.Item(I).Formula = Replace(.SeriesCollection.Item(I).Formula, "$" & str1, "$" & str2)
Next I
End With
End Sub
追加情報
⚫1→「10月度計測」と言うファイルがあり全シート11枚(1ヶ月分1ファイル)(各シートグラフ1つ、11シート以外にデータシートが4シート)
⚫2→「10月度a地点計測」と言うファイルがありその中にシートが「1」~「8」まであります。そのファイルを1セットにして16ファイルあります。
(1ヶ月分16ファイル)(各シートグラフ2つ、8シート以外にデータシートが4シート)
◎3→1シートに、3つと2つの混合(「3,3、2」×8)
全ファイルを、一括と言うのは何かあってら大変なので1ファイルずつ全シート一括変更がせめて出来たらと思っています。
グラフの変更範囲は、1の全シートについて同じ。2の全ファイルの全シートについて同じ。
なので、1回指定したらシート毎に聞かれる事なく動いてくれるのが望ましいです。
グラフは、今書かれてる位置のままで状況によって3~4日増えるのでそれを、なんとか自動化できないものかと思ってます。
回答2件
あなたの回答
tips
プレビュー