| |
明けましておめでとうございます。ponponです。
いつもお世話になってます。
今回は、個人の成績をグラフ化することに挑戦しています。
マクロの記録等を使って一応完成しましたが、
sheet1は、
A B C D E F
１ 二学期の成績
２ 氏名 国語 算数 社会 理科 総合
３ あ 67.7 78.8 81.5 65.5 67.8
４ 氏名 国語 算数 社会 理科 総合
５ い 87.2 88.8 77.9 71.5 67.4
６ 氏名 国語 算数 社会 理科 総合
７ う 77.9 71.5 67.7 78.8 77.9
８
９
・
・
のようになっています。
これを、
A B C D E F
１ 二学期の成績
２ 氏名 国語 算数 社会 理科 総合
３ あ 67.7 78.8 81.5 65.5 67.8
４ い 87.2 88.8 77.9 71.5 67.4
５ う 77.9 71.5 67.7 78.8 77.9
・
・
・
のように入力しても、グラフができるように作りたいのですが・・いろいろと調べてみたのですがrangeの指定の仕方が分かりません。どなたか教えていただけないでしょうか？
また、グラフがたて一列に並びます。これを縦４列や５列にすることはできないものでしょうか？よろしくお願いします。
以下、コードです。
Sub 参照元の設定()
Dim i As Integer
Dim t As Integer
Dim m As Long
m = Range("A65536").End(xlUp).Row
t = 0
For i = 2 To m Step 2
With Worksheets("sheet1").ChartObjects.Add(Left:=400, Top:=t + 9, _ Width:=240, Height:=200).Chart
.SetSourceData Source:=Range(Cells(i, 1), Cells(i + 1, 6)) _
,PlotBy:=xlRows
.ChartType = xlRadarFilled
With .Axes(xlValue)
.MinimumScale = 0
.MaximumScale = 100
.MinorUnit = 5
.MajorUnit = 20
.Crosses = xlAutomatic
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End With
t = t + 200
Next
End Sub
|
|
ponpon
- 05/1/7(金) 23:38 -
