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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
複数シートからデータを拾ってグラフを作成したい
Excel(エクセル)
-
Unionでの他のシートの参照について
Visual Basic(VBA)
-
グラフの範囲指定をVBAで可変にしたい
その他(Microsoft Office)
-
-
4
Excelでシートの違うデータでグラフを作る方法
Excel(エクセル)
-
5
たくさん作った同じ設定のグラフを一括して変更したい
Excel(エクセル)
-
6
Excel VBA グラフを任意sheetに移動させるには?
Visual Basic(VBA)
-
7
Excel 複数のシートからグラフを作成するには?
Excel(エクセル)
-
8
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
9
VBAで各シートの表でグラフを作成したいのですが
Word(ワード)
-
10
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
11
VBAで配列の計算
Excel(エクセル)
-
12
VBA(excel)でグラフのデータ範囲の取得
その他(Microsoft Office)
-
13
VBAにて作成したグラフを別シートに張り付ける方法と、デバックの解決方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
なにしてるかわからない。。
-
皆さん定義を教えてください 「...
-
「互いに素」の定義…「1と2は互...
-
0と0は互いに素か
-
「logx^2=2logx」が間違って...
-
自然数 整数 有理数 実数 加法 ...
-
無限から無限を引いたら何にな...
-
ACCESS VBAでインポート定義の場所
-
べき乗
-
数字の1とは何なのか?
-
三角関数(たとえばf(x)=sinxと...
-
eの0乗は1ってどういう原理です...
-
ネットストーカーの定義 最近SN...
-
えっ!「来週」の使い方…
-
なぜ、直角三角形ではないのにs...
-
1未満と1以下の違い
-
正方行列ではない行列にも行列...
-
ヘシアンが0の場合どうやって極...
-
0に限りなく近い数は存在するの?
-
ACCESS IIF関数 複数条件の設...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
皆さん定義を教えてください 「...
-
べき乗
-
無限から無限を引いたら何にな...
-
1未満と1以下の違い
-
p⇒q=(¬p)∨qについて
-
「logx^2=2logx」が間違って...
-
数字の1とは何なのか?
-
「互いに素」の定義…「1と2は互...
-
変数の宣言の名称を教えてくだ...
-
ACCESS VBAでインポート定義の場所
-
日本語 ことば ひとまわり ふた...
-
ACCESS IIF関数 複数条件の設...
-
Excelファイルの「数式」タブ→...
-
e<3の証明を教えてください。
-
なぜ小数は自然数ではないので...
-
ヘシアンが0の場合どうやって極...
-
2進数の符号ビットの入った数...
-
最大元と極大元の定義の違いが...
-
eの0乗は1ってどういう原理です...
-
フーリエ級数展開の初項はなぜa...
おすすめ情報