Excel VBA質問箱 IV

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

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


45316 / 76732 ←次へ | 前へ→

【36413】任意の本数のグラフを作成
質問  わいわい  - 06/3/30(木) 17:15 -

引用なし
パスワード
   いつもお世話になっております。
現在、5系統(種類?)で全部で約200本の曲線を1つのグラフにしようと考えています。各系統は、最小値、最大値を入力することで、その本数が変化します。手始めに一系統の描画ルーチンを作ろうと下記リストを作成したのですが、参照先指定のところで R[j]C44にjを反映させる方法が分かりません。マクロの記録では、" "で囲まれた文字列指定となるのですが、どうやればよろしいでしょうか?

Sub Macro2()

  Dim i As Integer
  Dim j As Integer
  i = 138
  j = 11
    
  ActiveSheet.ChartObjects("グラフ 5").Activate

  While i < 138 + (50)   '対象曲線が138番目から50本(仮)
    ActiveChart.SeriesCollection.NewSeries
    With ActiveChart.SeriesCollection(i)
      .XValues = "=DATA!R[j]C44:R[j]C45"
               ~~~~  ~~~~
      .Values = "=DATA!R[j]C46:R[j]C47"
               ~~~~  ~~~~
      .Name = DB
      .Border.ColorIndex = 1
      .Border.Weight = xlThin
      .Border.LineStyle = xlContinuous
    End With
    i = i + 1
    j = j + 1
  Wend
End Sub

あと、グラフ中の全曲線本数の取得方法が分かりましたらお教えください。
宜しく願いいたします。

2 hits

【36413】任意の本数のグラフを作成 わいわい 06/3/30(木) 17:15 質問
【36414】Re:任意の本数のグラフを作成 Kein 06/3/30(木) 17:28 回答
【36419】Re:任意の本数のグラフを作成 わいわい 06/3/30(木) 18:01 お礼
【36727】グラフ描画のスピードUP わいわい 06/4/11(火) 10:21 質問
【36735】Re:グラフ描画のスピードUP Kein 06/4/11(火) 14:02 回答
【39537】ワークシート上グラフのデータラベル表示 わいわい 06/6/26(月) 13:39 質問

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