編集履歴

質問編集履歴

追記

2015/10/30 03:43

投稿

cat_junko

スコア44

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -54,6 +54,7 @@
 ⚫１→「10月度計測」と言うファイルがあり全シート11枚(１ヶ月分1ファイル)（各シートグラフ１つ、１１シート以外にデータシートが４シート）
 ⚫２→「10月度a地点計測」と言うファイルがありその中にシートが「1」～「8」まであります。そのファイルを1セットにして16ファイルあります。
 (１ヶ月分16ファイル)（各シートグラフ２つ、８シート以外にデータシートが４シート）
+◎３→１シートに、３つと２つの混合（「３，３、２」×８）
 全ファイルを、一括と言うのは何かあってら大変なので1ファイルずつ全シート一括変更がせめて出来たらと思っています。

一部修正

2015/10/30 03:42

投稿

cat_junko

スコア44

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -43,7 +43,7 @@
   If str2 = "" Then Exit Sub
   With ActiveChart
-    For I = 1 To 11
+     For i = 1 To .SeriesCollection.Count
       .SeriesCollection.Item(I).Formula = Replace(.SeriesCollection.Item(I).Formula, "$" & str1, "$" & str2)
     Next I
   End With

追加

2015/10/30 03:40

投稿

cat_junko

スコア44

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -6,26 +6,54 @@
 これは、全１１シートしかないのですがもう一つ「１ファイル８シート」が１６ファイル
  あるので短時間で変更したいのです。
 ---------------------------------------------------------------
-Sub graph_change()
+Sub WorksheetLoop()
- Dim str1 As String, str2 As String, i As Integer
+         Dim WS_Count As Integer
+         Dim I As Integer
- str1 = InputBox("変更前の値を入力してください")
+         ' Set WS_Count equal to the number of worksheets in the active
+         ' workbook.
-If str1 = "" Then Exit Sub
+         WS_Count = ActiveWorkbook.Worksheets.Count
- str2 = InputBox("変更後の値を入力してください")
-If str2 = "" Then Exit Sub
+         ' 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 'グラフの選択
+    __↑ここのグラフ選択はマクロの記録でやってしまっているため”グラフ６０”となっています。ここも、変更しないと他に対応が出来ません。__
+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
+  With ActiveChart
- For i = 1 To .SeriesCollection.Count
+    For I = 1 To 11
- .SeriesCollection.Item(i).Formula = Replace(.SeriesCollection.Item(i).Formula, "$" & str1, "$" & str2)
+      .SeriesCollection.Item(I).Formula = Replace(.SeriesCollection.Item(I).Formula, "$" & str1, "$" & str2)
- Next i
+    Next I
- End With
+  End With
- End Sub
+End Sub
 ---------------------------------------------------------------
 追加情報
-⚫１→「10月度計測」と言うファイルがあり全シート11枚(１ヶ月分1ファイル)
+⚫１→「10月度計測」と言うファイルがあり全シート11枚(１ヶ月分1ファイル)（各シートグラフ１つ、１１シート以外にデータシートが４シート）
 ⚫２→「10月度a地点計測」と言うファイルがありその中にシートが「1」～「8」まであります。そのファイルを1セットにして16ファイルあります。
-(１ヶ月分16ファイル)
+(１ヶ月分16ファイル)（各シートグラフ２つ、８シート以外にデータシートが４シート）
 全ファイルを、一括と言うのは何かあってら大変なので1ファイルずつ全シート一括変更がせめて出来たらと思っています。

2015/10/29 22:40

投稿

cat_junko

スコア44

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -30,4 +30,6 @@
 全ファイルを、一括と言うのは何かあってら大変なので1ファイルずつ全シート一括変更がせめて出来たらと思っています。
 グラフの変更範囲は、１の全シートについて同じ。２の全ファイルの全シートについて同じ。
-なので、１回指定したらシート毎に聞かれる事なく動いてくれるのが望ましいです。
+なので、１回指定したらシート毎に聞かれる事なく動いてくれるのが望ましいです。
+グラフは、今書かれてる位置のままで状況によって3～4日増えるのでそれを、なんとか自動化できないものかと思ってます。

2015/10/27 10:05

投稿

cat_junko

スコア44

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -21,4 +21,13 @@
  Next i
  End With
  End Sub
----------------------------------------------------------------
+---------------------------------------------------------------
+追加情報
+⚫１→「10月度計測」と言うファイルがあり全シート11枚(１ヶ月分1ファイル)
+⚫２→「10月度a地点計測」と言うファイルがありその中にシートが「1」～「8」まであります。そのファイルを1セットにして16ファイルあります。
+(１ヶ月分16ファイル)
+全ファイルを、一括と言うのは何かあってら大変なので1ファイルずつ全シート一括変更がせめて出来たらと思っています。
+グラフの変更範囲は、１の全シートについて同じ。２の全ファイルの全シートについて同じ。
+なので、１回指定したらシート毎に聞かれる事なく動いてくれるのが望ましいです。

グラフ範囲変更については解決。

2015/10/27 10:03

投稿

cat_junko

スコア44

title CHANGED Viewed

	@@ -1,1 +1,1 @@
1	- ~~エクセル　VBAで、グラフ範囲自動変更~~について
1	+ 全シートに対して連続実行する方法について

body CHANGED Viewed

@@ -1,28 +1,24 @@
-毎月作成するグラフがあるのですが既にグラフは作成済なのですが月によって日数が増えます。
+追加したいこと。
-     9/1  9/2  9/3  9/4  9/5 ・・・・・・・
-１
-２
-３
-４
-・
-・（１１まで続きます）
-このような並びになっていて「月日」と「１」でワンセットのグラフで全１１シートあります。
+１、グラフ選択機能（グラフの名前がそれぞれ違うのでそれ  をどう解決すれば良いのか…）
+ ２、次シートへの自動移動
-毎回、ちまちま範囲変更しているのでがこの際マクロでやろうと思ったのですが縦に増える場合は出来るのですが横に増えた場合のマクロの指定が分かりません。
+これは、全１１シートしかないのですがもう一つ「１ファイル８シート」が１６ファイル
-ご教示願います。
-宜しくお願いいたします。
+ あるので短時間で変更したいのです。
+---------------------------------------------------------------
+Sub graph_change()
-Sub Sample()
-    Dim LastCell As Range, i As Long
+ Dim str1 As String, str2 As String, i As Integer
+ str1 = InputBox("変更前の値を入力してください")
-    Set LastCell = Cells(Rows.Count, 1).End(xlUp)
+If str1 = "" Then Exit Sub
+ str2 = InputBox("変更後の値を入力してください")
+If str2 = "" Then Exit Sub
-    With ActiveSheet.ChartObjects(1).Chart
+ With ActiveChart
-        For i = 1 To .SeriesCollection.Count
+ For i = 1 To .SeriesCollection.Count
-            .SeriesCollection(i).Formula = _
-                "=SERIES(" & Cells(1, i + 1).Address(External:=True) & "," & _
-                 Range(Cells(2, 1), LastCell.Offset(0, 0)).Address(External:=True) & "," & _
-                 Range(Cells(2, i + 1), LastCell.Offset(0, i)).Address(External:=True) & "," & _
+ .SeriesCollection.Item(i).Formula = Replace(.SeriesCollection.Item(i).Formula, "$" & str1, "$" & str2)
-                 i & ")"
-        Next i
+ Next i
-    End With
+ End With
-End Sub
+ End Sub
+---------------------------------------------------------------

表を、分かりやすくしました。

2015/10/24 13:31

投稿

cat_junko

スコア44

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,6 +1,6 @@
 毎月作成するグラフがあるのですが既にグラフは作成済なのですが月によって日数が増えます。
- 9/1  9/2  9/3  9/4  9/5 ・・・・・・・
+     9/1  9/2  9/3  9/4  9/5 ・・・・・・・
 １
 ２
 ３