VBA初心者です。(はじめてから3日目。。。)
もしかすると、すごい簡単なことなのかもしれなくて申し訳ないのですが、質問させてください。
二つの異なるシートのデータを使って、円グラフを作製しようとしています。
ですが、「アプリケーション定義またはオブジェクト定義のエラー」が出てしまいます。
どこが間違っているのかをご教授願えませんでしょうか。
よろしくお願いします。
Sub graph()
Charts.Add
With ActiveChart
.ChartType = xlPie
.SeriesCollection(1).XValues = Worksheets(1).Range(Cells(2, 3), Cells(2, 5))
.SeriesCollection(1).Values = Worksheets(2).Range(Cells(3, 2), Cells(3, 4))
.SeriesCollection(1).Name = Worksheets(1).Cells(1, 1)
.Location where:=xlLocationAsObject, Name:="sheet3"
End With
End Sub
ちなみに、各セルにはちゃんとデータが入っております。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
元のコードをなるべく変えないように
書き換えてみました。
以下のようにすれば、とりあえず動きます。
Sub graph()
With Charts.Add
.ChartType = xlPie
.Location where:=xlLocationAsObject, Name:="Sheet3"
End With
With ActiveChart
'仮のSeriesCollectionを設定
.SeriesCollection.Add Source:=Worksheets(1).Range("A1:B2")
.SeriesCollection(1).XValues = Worksheets(1).Range(Worksheets(1).Cells(2, 3), Worksheets(1).Cells(2, 5))
.SeriesCollection(1).Values = Worksheets(2).Range(Worksheets(2).Cells(3, 2), Worksheets(2).Cells(3, 4))
.SeriesCollection(1).Name = Worksheets(1).Cells(1, 1)
End With
End Sub
なるほど!!!
ありがとうございます!!!
rangeのところにもworksheetsの指定が必要なのですね!!!
勉強になりました、ありがとうございます!!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Excel(エクセル) VBAのエラーが直せません 4 2023/06/12 22:10
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
複数シートからデータを拾ってグラフを作成したい
Excel(エクセル)
-
Excel 複数のシートからグラフを作成するには?
Excel(エクセル)
-
Excelでシートの違うデータでグラフを作る方法
Excel(エクセル)
-
-
4
Excelマクロ:配列データからグラフを作成するには?
Visual Basic(VBA)
-
5
Unionでの他のシートの参照について
Visual Basic(VBA)
-
6
グラフマクロで系列を変数にする方法を教えてください
Visual Basic(VBA)
-
7
VBAで各シートの表でグラフを作成したいのですが
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
皆さん定義を教えてください 「...
-
最大元と極大元の定義の違いが...
-
「logx^2=2logx」が間違って...
-
べき乗
-
無限から無限を引いたら何にな...
-
定義できないことを教えてくだ...
-
「互いに素」の定義…「1と2は互...
-
ヘシアンが0の場合どうやって極...
-
微分・積分について
-
p⇒q=(¬p)∨qについて
-
1未満と1以下の違い
-
2変数関数の極値について
-
複雑な家庭とは
-
ACCESS VBAでインポート定義の場所
-
日本語 ことば ひとまわり ふた...
-
数字の1とは何なのか?
-
0^1(0の1乗)はいくつでしょ...
-
なぜ、直角三角形ではないのにs...
-
eの0乗は1ってどういう原理です...
-
共分散の計算について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
皆さん定義を教えてください 「...
-
「logx^2=2logx」が間違って...
-
無限から無限を引いたら何にな...
-
べき乗
-
「互いに素」の定義…「1と2は互...
-
1未満と1以下の違い
-
ヘシアンが0の場合どうやって極...
-
ユーザー定義関数をアドイン登...
-
最大元と極大元の定義の違いが...
-
eの0乗は1ってどういう原理です...
-
ACCESS IIF関数 複数条件の設...
-
ACCESS VBAでインポート定義の場所
-
なぜ、直角三角形ではないのにs...
-
p⇒q=(¬p)∨qについて
-
lim n→0 =n=0となりますが lim ...
-
マイナス7は素数ですか?
-
複雑な家庭とは
-
日本語 ことば ひとまわり ふた...
-
正方行列ではない行列にも行列...
-
偏微分方程式って
おすすめ情報