エクセルで2つの項目を下から規定数のデータでグラフ

質問

こんにちは。
6/1にここで表題のご回答をいただいて、1つのBookの複数のシートで使用しているのですが、他のBookのシートにも展開しようとして
今正常に動いているBookの標準モジュールのVBAの列名をNをQに、OをRに単純に置き換えただけなのにどうしてもグラフが書けません。

何度もコードは確認しましたが問題ありません。
VBAを動かすとエラーメッセージは出ないで、セルで指定した条件でグラフ範囲が選択された状態で止まります。

何が抜けているのでしょう？

厚かましいですが、出来れば1系列のコードもよろしくお願いします。
不要ならグラフで2系列目を無色に変えれば1系列のグラフになることは確認して、コードを移植をしたのですがグラフが描けないので駒tyています。

Sub グラフ化()
Dim RSta As Integer
Dim REnd As Integer

REnd = Cells(Rows.Count, [Q7].Value).End(xlUp).Row
RSta = WorksheetFunction.Max([Q10], REnd - [Q9] + 1)
Range([Q7] & [Q8] & "," & [Q7] & RSta & ":" & [Q7] & REnd & "," & _
[R7] & [Q8] & "," & [R7] & RSta & ":" & [R7] & REnd).Select
ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection

End Sub

回答No.2

SI299792 · ベストアンサー

その変更でできましたよ。
データの方が間違っていませんか。
・Ｋ列、Ｎ列にデータが無い
・項目名が13行目にない。

１系列の場合
Q7: K
R7: K
にしてしまうのが、手っ取り早いです。

お礼

早々のご回答ありがとうございました。

何とか解決できました。

補足

何度ものご回答ありがとうございました。
データは間違っていませんし、項目名も13行目に入っています。
ほぼ定型書式なので間違いなく、詳細は再質問に記載しました。
原因不明ですが解決できました。

当方のシートの不備でお手数をおかけし申し訳ありませんでした。

回答No.1

SI299792

私の作ったものだと思いますが、これは、グラフの作成でなく、変更だと思います。
どのようなグラフだったか覚えていないので、前の質問のアドレスを載せて下さい。

お礼

失礼しました。
慌ててアドレスとアドバイスを見間違いました。

これのことでしょうか？
https://okwave.jp/qa/q9911567.html#answers

補足

早々に再度のご回答ありがとうございます。

ハイ、目的のシート上に2系列のグラフを作成してからVBAを実行しているのですが？？？？
ちなみにグラフの作成より条件の変更のVBAの方が便利です。（色んなシートに応用出来ますので）

グラフが無いとエラーになると思うのですが、エラーは表示されずにグラフ範囲、条件の選択（灰色に変わる）で止まります。
止まった状態のまま、「挿入」「折れ線グラフ」を選択すると目的のグラフが作成されます。

それに続けてデータ数を変更してVBAを実行しても何も変化せずに、変更した指定のデータ範囲が灰色に変わります。

うまく動くシートを1枚だけ別のBook１にコピーして、元のVBAコード（下記）をC＆Pすると正常に動きます。
何が違うのか私の知識ではチンプンカンプン

前回のご回答は下記の通り。
実際には、グラフクリックでVBAが動作するMacro2も記載されていましたが、割愛しています。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
画像には「製品Ａ」～「製品Ｄ」のシートしかありません。
これでは、全てのシートにグラフを作るのだと思ってしまいます。現実に近い画像を上げて下さい。

でしたら、グラフデータの範囲の変更の方がいいですね。グラフが無いとエラーになります。
１番最初に作ったグラフが対象です。グラフが複数ある場合（無いと思いますが）対象となるグラフを右クリック、最背面へ移動、最背面へ移動、を行ってください。

Sub Macro1()
　　Dim RSta As Integer
　　Dim REnd As Integer
'
　　REnd = Cells(Rows.Count, [C7].Value).End(xlUp).Row
　　RSta = WorksheetFunction.Max([C10], REnd - [C9] + 1)
　　Range([C7] & [C8] & "," & [C7] & RSta & ":" & [C7] & REnd & "," & _
　　　　　[D7] & [C8] & "," & [D7] & RSta & ":" & [D7] & REnd).Select
　　ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection
End Sub