Excel VBA質問箱 IV

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

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


20682 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは。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
2 hits

【61463】ループでグラフを大量作成 eriwan 09/5/11(月) 11:57 質問
【61464】Re:ループでグラフを大量作成 kanabun 09/5/11(月) 13:33 発言
【61465】Re:ループでグラフを大量作成 eriwan 09/5/11(月) 14:33 お礼

20682 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free