エクセルで2つの項目を下から規定数のデータで(再）

質問

ウッカリ間違ったアドレスをアップしてしまい訂正できないので再質問でアップ（訂正）します。

本当に品が無くてすみません。

https://okwave.jp/qa/q9890568.html

回答No.1

SI299792 · ベストアンサー

https://okwave.jp/qa/q9911567.html
の続きということで、１系列、２系列両対応です。
R7を空白にすれば、１系列になります。

Option Explicit
'
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).Select
'
　　If [R7] > "" Then
　　　　Range(Selection.Address & "," & _
　　　　　　[R7] & [Q8] & "," & [R7] & RSta & ":" & [R7] & REnd).Select
　　End If
　　ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection
End Sub

お礼

補足しましたようにおかげ様で何とか解決できました。
本当にありがとうございました。
このコードは今後 他のBookにも展開していく予定です。

そのためには１，２系列両方対応が使いやすいですので今回のご回答に改めてお礼申し上げます。

補足

何度ものご回答に感謝です！

当方も昨夜から色々試行錯誤した結果、全く原因不明とわかりました。
１．最初にご回答いただいたBookのシート（13枚）は正常に動いています。
そのシートの1枚だけをBook１にシートの移動／コピーしてVBAコードを移植して試すと正常に動きました。

２．今回不具合Book、と言ってもグラフが更新されないだけで指定したセル（項目名等）や範囲は正しく選択された状態で、かつエラー表示なく止まります、の目的のシートを１．と同じように別のBook2にコピーしてVBAを動かすとやはり不具合も継承されます。
コードは標準モジュールでもシートモジュールでも試してみましたがダメでした。

３．そこでBook3に不具合Bookの目的シートの数値の入った列の1列だけ貼り付けてVBAを動かすとちゃんと動きました。
この延長で他の複数列を数値で張り付けても動くことを確認し、最終的にはに書式も一緒に必要な列（Ａ～Ｎ列）を一度に貼り付けてみたらちゃんと動きました。

４．このシートを目的のBookに移動／コピーして、シートモジュールにVBAをコピーして・・・

最後に２系列のコードを今回の１，２系列両方対応のコードに置き換えて、さらに既存の他のVBAとの共存でも問題ないことを確認しました。

当方のおかしなシート or Bookのせいでお手数をおかけし申し訳ありませんでした。
但し、１，２系列両方のコードの方が使いやすいです。
疑似2系列だと同じ凡例が2つ表示されたり・・・

回答No.2

SI299792

前質問で、
＞VBA を動かすとエラーメッセージは出ないで、セルで指定した条件でグラフ範囲が選択された状態で止まります。
とありましたが、グラフが残っていて非表示になっていれば、この現象がおきます。

調べたらここに記事がありました。
https://www.moug.net/tech/exopr/0081006.html
Ctrl＋６でグラフを非表示にできるそうです。

この状態で実行したら、そうなりました。

お礼

おはようございます。
朝一で確認してみました。

原因は設定では無かったです。
先ず、不具合Bookの設定は「全て表示」になっていました。
ちなみに設定を変えると、グラフが消えますが、マクロボタン等その他のオブジェクトもすべて消えてしますのでこの設定が変わっていたことはない事になります。

更にその状態で新しくグラフを作成しようとしても、グラフ関連メニューが全て非アクティブになってしまうので、私が何度もグラフを新規に作成して試行した状況とは明らかに違っています。

と言うことで原因は不明ですが対処法が分って使えるようになりましたのでこれで締めさせていただきます。

今回は何度もお手数をお掛けしましたが目的は十分達成し、1系列のコードで既に使い始めています。

改めて御礼申し上げます。

補足

なるほど！！
そんな機能があったのですね？

当然ですがそんな設定をした記憶はないのですが。
実際のBookが会社にしかないので月曜に確認して報告します。