|
こんにちは。VBAの初心者です。
以下のテストの採点結果で、受験者ごとのグラフをそれぞれ別シートに作成したいです。(#1〜5は分野で、各数字は得点です)
A B C D E F
#1 #2 #3 #4 #5
1 受験番号1 15 10 20 18 10
2 受験番号2 20 15 10 20 10
3 受験番号3 10 20 20 18 15
・
・
50 受験番号50 10 10 10 15 20
簡易記録を使って一人分のグラフを作成することはできるのですが、2人目・3人目…と選択範囲を変化させながら作り続けることが出来ません。
以下のマクロでどこをどのようにいじれば良いのでしょうか?
よろしくお願いします。
Sub グラフ作成()
'
'
Range("A1:F1,A3:F3").Select
Range("A3").Activate
Charts.Add
ActiveChart.ChartType = xlRadar
ActiveChart.SetSourceData Source:=Sheets("採点").Range("A1:F1,A3:F3"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "採点結果"
End With
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0
.MaximumScale = 100
.MinorUnit = 50
.MajorUnit = 50
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
|
|