Excel VBA質問箱 IV

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

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


37217 / 76732 ←次へ | 前へ→

【44688】Re:成績表にグラフを入れるマクロ
回答  maverick  - 06/11/28(火) 23:07 -

引用なし
パスワード
   >  ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Cells(k, 2), Cells(k, 4)), PlotBy:= _
>    xlRows

  ActiveChart.SetSourceData _
    Source:=Sheets("Sheet1").Range(Sheets("Sheet1").Cells(k, 2), _
          Sheets("Sheet1").Cells(k, 4)), PlotBy:=xlRows
又は
    With Sheets("Sheet1")
      ActiveChart.SetSourceData Source:=.Range(.Cells(k, 2), .Cells(k, 4)), PlotBy:=xlRows
    End With
など

――――――――――――――――――――――――――――――――――――

サンプル

Sub Macro3()
  Dim k As Long
  Dim sht As Worksheet

  Set sht = Sheets("Sheet1")
  For k = 2 To Range("A65536").End(xlUp).Row
    If k > Worksheets.Count Then
      Worksheets.Add After:=Worksheets(k - 1)
      ActiveSheet.Name = "Sheet" & k
    End If
    With Charts.Add
      .ChartType = xlRadarMarkers
      .SetSourceData Source:=sht.Range(sht.Cells(k, 2), sht.Cells(k, 4)), PlotBy:=xlRows
      .SeriesCollection(1).XValues = "=Sheet1!R1C2:R1C4"
      .Location Where:=xlLocationAsObject, Name:="Sheet" & k
    End With
    Range("A1").Select
  Next k
End Sub
0 hits

【44686】成績表にグラフを入れるマクロ オイスター 06/11/28(火) 21:23 質問
【44688】Re:成績表にグラフを入れるマクロ maverick 06/11/28(火) 23:07 回答
【44718】Re:成績表にグラフを入れるマクロ オイスター 06/11/29(水) 20:21 質問
【44720】Re:成績表にグラフを入れるマクロ maverick 06/11/29(水) 22:52 回答
【44721】Re:成績表にグラフを入れるマクロ ichinose 06/11/29(水) 23:46 発言
【44763】Re:成績表にグラフを入れるマクロ オイスター 06/11/30(木) 21:07 お礼

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