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"が初めて３つ以上並ぶまでにしたいのです。

例）
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が初めて３つ以上並んだ行を取得して上のコードに反映させるには
どうしたらいいでしょうか？

0 hits

▼

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

≪