Excel VBA質問箱 IV

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

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


20681 / 76732 ←次へ | 前へ→

【61464】Re:ループでグラフを大量作成
発言  kanabun  - 09/5/11(月) 13:33 -

引用なし
パスワード
   ▼eriwan さん:

>簡易記録を使って一人分のグラフを作成することはできるのですが、
> 2人目・3人目…と選択範囲を変化させながら作り続けることが出来ません。

こんな感じで 元データ範囲の行をLoopしてみてはいかがでしょう

Sub グラフ作成2()
  Dim Xrange As Range
  Dim Yrange As Range
  Dim Sheetname As String
  
  Set Xrange = Worksheets("採点").Range("A1:F1")
  Set Yrange = Xrange.Offset(2)  '最初のY軸データ範囲
  Set Yrange = Excel.Range(Yrange, Yrange.End(xlDown)) '全データ範囲
  For Each Yrange In Yrange.Rows
    With Charts.Add
      Sheetname = Yrange.Cells(1, 1).Value
      .Name = Sheetname
      .ChartType = xlRadar
      .SetSourceData Union(Xrange, Yrange), PlotBy:=xlRows
      .HasTitle = True
      .ChartTitle.Characters.Text = Sheetname
      With .Axes(xlValue)
>       .MinimumScale = 0
>       .MaximumScale = 100
>       .MinorUnit = 50
>       .MajorUnit = 50
>       .Crosses = xlAutomatic
>       .ReversePlotOrder = False
>       .ScaleType = xlLinear
>       .DisplayUnit = xlNone
      End With
    End With
  Next
End Sub
1 hits

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

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