回答編集履歴
1
コード修正
test
CHANGED
|
@@ -12,23 +12,15 @@
|
|
|
12
12
|
|
|
13
13
|
Dim i As Long
|
|
14
14
|
|
|
15
|
-
Dim ii As Long
|
|
16
|
-
|
|
17
|
-
Dim asn As String 'activeSheetName
|
|
18
|
-
|
|
19
|
-
|
|
20
|
-
|
|
21
|
-
asn = ActiveSheet.Name
|
|
22
|
-
|
|
23
15
|
|
|
24
16
|
|
|
25
17
|
'グラフ数分繰り返す
|
|
26
18
|
|
|
27
|
-
For i
|
|
19
|
+
For i = 1 To 3
|
|
28
20
|
|
|
29
21
|
|
|
30
22
|
|
|
31
|
-
Set objChart = ActiveSheet.ChartObjects(i
|
|
23
|
+
Set objChart = ActiveSheet.ChartObjects(i).Chart
|
|
32
24
|
|
|
33
25
|
|
|
34
26
|
|
|
@@ -36,21 +28,21 @@
|
|
|
36
28
|
|
|
37
29
|
Case objChart.SeriesCollection.Item(1).Formula Like "*$I$30:$I$39,1)"
|
|
38
30
|
|
|
39
|
-
ActiveSheet.ChartObjects(i
|
|
31
|
+
ActiveSheet.ChartObjects(i).Name = "グラフ 1"
|
|
40
32
|
|
|
41
33
|
Case objChart.SeriesCollection.Item(1).Formula Like "*$M$30:$M$39,1)"
|
|
42
34
|
|
|
43
|
-
ActiveSheet.ChartObjects(i
|
|
35
|
+
ActiveSheet.ChartObjects(i).Name = "グラフ 2"
|
|
44
36
|
|
|
45
37
|
Case objChart.SeriesCollection.Item(1).Formula Like "*$R$30:$R$39,1)"
|
|
46
38
|
|
|
47
|
-
ActiveSheet.ChartObjects(i
|
|
39
|
+
ActiveSheet.ChartObjects(i).Name = "グラフ 3"
|
|
48
40
|
|
|
49
41
|
End Select
|
|
50
42
|
|
|
51
43
|
|
|
52
44
|
|
|
53
|
-
Next i
|
|
45
|
+
Next i
|
|
54
46
|
|
|
55
47
|
|
|
56
48
|
|