Excel VBA質問箱 IV

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

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


21339 / 76732 ←次へ | 前へ→

【60794】グラフの挿入をVBAで行う
質問  アル  - 09/3/15(日) 16:29 -

引用なし
パスワード
   500行〜1000行のデータのグラフの挿入をVBAで行いたいと考えています。
下は「新しいマクロの記録」で得たコードです。(B列が横軸、C列が縦軸)

Sub GURAFU01()
  Charts.Add
  ActiveChart.ChartType = xlXYScatterSmooth
  ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range( "B2:B600,C2:C600"), PlotBy:=xlColumns
  ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

グラフ横軸の範囲は、上のコードでは2行目〜600行目までですが、その上限を
A列に"0"が初めて3つ以上並ぶまでにしたいのです。

例)
A    B      C
…   …     …
9    800    110
3    801    150
1    802    190
0    803    260
0    804    300
0    805    360 (B列横軸の上限ここまで)
0    806    390

A列に0が初めて3つ以上並んだ行を取得して上のコードに反映させるには
どうしたらいいでしょうか?

0 hits

【60794】グラフの挿入をVBAで行う アル 09/3/15(日) 16:29 質問
【60795】Re:グラフの挿入をVBAで行う kanabun 09/3/15(日) 19:48 発言
【60796】Re:グラフの挿入をVBAで行う kanabun 09/3/15(日) 21:21 発言
【60805】Re:ありがとうございます。恥ずかしながら… アル 09/3/16(月) 12:44 質問
【60806】Re:ありがとうございます。恥ずかしながら… kanabun 09/3/16(月) 14:21 発言
【60815】おかげさまで出来ました。 アル 09/3/16(月) 19:41 お礼
【60822】いったん締めた後に恐縮ですが… アル 09/3/17(火) 5:51 質問
【60823】Re:いったん締めた後に恐縮ですが… kanabun 09/3/17(火) 8:47 発言
【60845】Re:いったん締めた後に恐縮ですが… アル 09/3/17(火) 19:36 お礼

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