質問編集履歴
2
処理結果の追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -34,7 +34,7 @@
|
|
34
34
|
|
35
35
|
|
36
36
|
|
37
|
-
---------追記---------------
|
37
|
+
---------追記①---------------
|
38
38
|
|
39
39
|
VBA未経験ですので、見よう見まねで以下のように作成してみましたが、
|
40
40
|
|
@@ -82,7 +82,11 @@
|
|
82
82
|
|
83
83
|
ActiveChart.SetSourceData Source:=Range(.Cells(i, 1), .Cells(i + 13, 1))
|
84
84
|
|
85
|
+
|
86
|
+
|
85
|
-
|
87
|
+
End With
|
88
|
+
|
89
|
+
|
86
90
|
|
87
91
|
Next
|
88
92
|
|
@@ -95,3 +99,19 @@
|
|
95
99
|
|
96
100
|
|
97
101
|
```
|
102
|
+
|
103
|
+
---------追記②---------------
|
104
|
+
|
105
|
+
End Withの追加で動きました。ありがとうございます。
|
106
|
+
|
107
|
+
が、思うようにはいきませんね...
|
108
|
+
|
109
|
+
初めて使う言語?ですので、試行錯誤やってみます。
|
110
|
+
|
111
|
+
|
112
|
+
|
113
|
+
1枚目の画像のようなグラフを生成したいのですが、2枚目のようになってしまいます。
|
114
|
+
|
115
|
+
|
116
|
+
|
117
|
+
![VBA処理](12da29053a0608404ae60b30a54b56c7.jpeg)
|
1
作成プログラムの作成
test
CHANGED
File without changes
|
test
CHANGED
@@ -29,3 +29,69 @@
|
|
29
29
|
os:macOS 10.12.5
|
30
30
|
|
31
31
|
Excel:Office 365 15.22
|
32
|
+
|
33
|
+
|
34
|
+
|
35
|
+
|
36
|
+
|
37
|
+
---------追記---------------
|
38
|
+
|
39
|
+
VBA未経験ですので、見よう見まねで以下のように作成してみましたが、
|
40
|
+
|
41
|
+
"Next に対応する For がありません。"というエラーが発生します。
|
42
|
+
|
43
|
+
どう解決すればよろしいでしょうか。
|
44
|
+
|
45
|
+
|
46
|
+
|
47
|
+
```VBA
|
48
|
+
|
49
|
+
Sub Macro1()
|
50
|
+
|
51
|
+
'
|
52
|
+
|
53
|
+
' Macro1 Macro
|
54
|
+
|
55
|
+
'
|
56
|
+
|
57
|
+
'
|
58
|
+
|
59
|
+
|
60
|
+
|
61
|
+
maxRow = Cells(Rows.Count, 1).End(xlUp).Row '最下行読み取り
|
62
|
+
|
63
|
+
dataNum = 14 '14個ずつ
|
64
|
+
|
65
|
+
|
66
|
+
|
67
|
+
For i = 1 To maxRow Step 14
|
68
|
+
|
69
|
+
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
Range(Cells(1, i), Cells(1, i + 14)).Select
|
74
|
+
|
75
|
+
ActiveSheet.Shapes.AddChart.Select
|
76
|
+
|
77
|
+
ActiveChart.ChartType = xlLine
|
78
|
+
|
79
|
+
'ActiveChart.SetSourceData Source:=Worksheets("updown").Range(Cells(i, 1), Cells(i + 13, 1)), PlotBy:=xlRows
|
80
|
+
|
81
|
+
With Sheets("updown")
|
82
|
+
|
83
|
+
ActiveChart.SetSourceData Source:=Range(.Cells(i, 1), .Cells(i + 13, 1))
|
84
|
+
|
85
|
+
|
86
|
+
|
87
|
+
Next
|
88
|
+
|
89
|
+
|
90
|
+
|
91
|
+
|
92
|
+
|
93
|
+
End Sub
|
94
|
+
|
95
|
+
|
96
|
+
|
97
|
+
```
|