添付画像のように、データがA列に数千個羅列しています。
このデータを上から14個づつ画像右のような折れ線グラフ折れ線グラフを作成したいと考えています。
何か、最適な方法はないでしょうか。
ご回答よろしくお願いします。
環境
OS:windows7
Excel:2010
OR
os:macOS 10.12.5
Excel:Office 365 15.22
---------追記①---------------
VBA未経験ですので、見よう見まねで以下のように作成してみましたが、
"Next に対応する For がありません。"というエラーが発生します。
どう解決すればよろしいでしょうか。
VBA
1Sub Macro1() 2' 3' Macro1 Macro 4' 5' 6 7maxRow = Cells(Rows.Count, 1).End(xlUp).Row '最下行読み取り 8dataNum = 14 '14個ずつ 9 10For i = 1 To maxRow Step 14 11 12 13 Range(Cells(1, i), Cells(1, i + 14)).Select 14 ActiveSheet.Shapes.AddChart.Select 15 ActiveChart.ChartType = xlLine 16 'ActiveChart.SetSourceData Source:=Worksheets("updown").Range(Cells(i, 1), Cells(i + 13, 1)), PlotBy:=xlRows 17 With Sheets("updown") 18 ActiveChart.SetSourceData Source:=Range(.Cells(i, 1), .Cells(i + 13, 1)) 19 20 End With 21 22 Next 23 24 25End Sub 26
---------追記②---------------
End Withの追加で動きました。ありがとうございます。
が、思うようにはいきませんね...
初めて使う言語?ですので、試行錯誤やってみます。
1枚目の画像のようなグラフを生成したいのですが、2枚目のようになってしまいます。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/06/14 08:25