Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21316 / 76738

←次へ　｜　前へ→


	【60823】Re:いったん締めた後に恐縮ですが…

kanabun - 09/3/17(火) 8:47 -


	引用なし

	パスワード

▼アルさん：
>グラフは別シートに表示したいのですが、

シートが変わるなら、
(1)元データ範囲の取得部分と
(2)埋め込みグラフの作成部分とを別々の With 句にすればいいです。

Sub Try4() '元データシートとグラフ出力シートが別
　　Dim r As Range
　　Dim ss As String
　　Dim i As Long
　　Dim c As Range
　　
　　'(1)元データ範囲を Range変数r にセットする
　　With Worksheets("Sheet1")
　　　　Set r = .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
　　　　'ss = Join(Application.Transpose(r), "")
　　　　ss = Join(Application.Transpose( _
　　　　　　　　　Application.Replace(r, 2, 10, "")), "")
　　　　i = InStr(ss, "000")
　　　　If i > 0 Then
　　　　　　MsgBox ss & vbCr _
　　　　　　& "範囲の " & i & " 番目から 0 が3つ連続しています"
　　　　Else
　　　　　　MsgBox "A列に 0 が3つ連続するデータの並びはありません"
　　　　　　Exit Sub
　　　　End If
　　　　With r.Resize(i + 2)
　　　　　　Set r = Union(.Offset(, 1), .Offset(, 2))
　　　　End With
　　End With
　　　　
　　'(2)位置とサイズを指定して埋め込みグラフの描画
　　With Worksheets("Sheet2")
　　　　Set c = .Range("B3").Resize(15, 5)　'<--- サイズは適当です
　　　　With .ChartObjects.Add(c.Left, c.Top, c.Width, c.Height).Chart
　　　　　　.ChartType = xlXYScatterSmooth
　　　　　　.SetSourceData Source:=r, PlotBy:=xlColumns
　　　　End With
　　End With
End Sub

6 hits

▼

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