Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20682 / 76732

←次へ　｜　前へ→


	【61463】ループでグラフを大量作成

eriwan - 09/5/11(月) 11:57 -


	引用なし

	パスワード

こんにちは。ＶＢＡの初心者です。
以下のテストの採点結果で、受験者ごとのグラフをそれぞれ別シートに作成したいです。(#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

簡易記録を使って一人分のグラフを作成することはできるのですが、２人目・３人目…と選択範囲を変化させながら作り続けることが出来ません。
以下のマクロでどこをどのようにいじれば良いのでしょうか？
よろしくお願いします。

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

1 hits

▼

【61463】ループでグラフを大量作成 eriwan 09/5/11(月) 11:57

≪