
excel2007のマクロなのですが、データからグラフを作るときに、setsoursedataでデータ参照するときに、sheet1とsheet2からそれぞれデータを選択したいので、Unionを使ってそれぞれの範囲を結合しようとしたのですが、
worksheets("sheet1").Select
Set owarine = Range(Cells(st, 5), Cells(en, 5))
Worksheets("sheet2").Select
Set BB = Union(Range(Cells(st, 3), Cells(en, 3)), Range(Cells(st, 5), Cells(en, 6)))
Set sphere = Union(owarine, BB)
ActiveSheet.ChartObjects.Add(5, 18, 550, 250).Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=sphere, PlotBy:=xlColumns
としても、'Union'メソッドは失敗しました'_Global'オブジェクトと表示されてできません。どうすればいいのでしょうか?
No.1ベストアンサー
- 回答日時:
複数のシートの範囲をUinonで接続するのは無理です
ワーク用のシートにその2つの領域をコピーして
コピーした領域をCurrentRegionなどで取得しましょう
owarine.Copy Worksheets("Work").Range("A1")
BB.Copy WorkSheets("Work").Range("B1")
set sphere = Worksheets("Work").Range("A1").CurrentRegion
といった具合です
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Excel(エクセル) VBA 選択範囲とUnionの使い方について 8 2023/08/17 13:25
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
このQ&Aを見た人はこんなQ&Aも見ています
-
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
For~Next ループ内でUnionメソッドを使うとエラーになります。
Visual Basic(VBA)
-
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
6
実行時のCPU使用率を増やしたい
Visual Basic(VBA)
-
7
SELECTした結果に行番号を求めたい
PostgreSQL
-
8
VBAでInputBoxの再入力をさせるには?
Visual Basic(VBA)
-
9
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
10
エクセルVBA 最終行はlast row ? end row ?
英語
-
11
エクセルVBAのIF文の否定の複数条件
Excel(エクセル)
-
12
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
13
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA別シートの最終行の次行へ転...
-
マクロの「SaveAs」でエラーが...
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA 別ブックからの転記の高速...
-
ExcelのVBマクロを、バックグラ...
-
VBA 実行時エラー1004 rangeメ...
-
Changeイベントで複数セルへの...
-
エクセルVBAで他のbookのセ...
-
Excel VBA オートフィルターで...
-
グラフマクロで系列を変数にす...
-
100万件越えCSVから条件を満た...
-
VBA 空白行に転記する
-
Excel VBA マクロ データ抽出
-
VBAのチェックボックスとボタン...
-
Count Ifのセルの範囲指定に変...
-
楽天RSSからエクセルVBAを使用...
-
VBAで変数の数/変数名を動的に...
-
GASでチェックボックスを一括of...
-
VBAを使って複数のシートから抽...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELのSheet番号って変更でき...
-
マクロの「SaveAs」でエラーが...
-
マクロ実行後に別シートの残像...
-
VBA 空白行に転記する
-
VBA別シートの最終行の次行へ転...
-
Count Ifのセルの範囲指定に変...
-
【VBA】データを各シートに自動...
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
VBA 別ブックからの転記の高速...
-
Excel VBA オートフィルターで...
-
【VBA】特定の条件でセルをコピー
-
VBAでEXCELから固定長...
-
Excel2013で切り取り禁止
-
Unionでの他のシートの参照につ...
-
楽天RSSからエクセルVBAを使用...
-
100万件越えCSVから条件を満た...
-
ExcelのVBマクロを、バックグラ...
-
VBA 実行時エラー1004 rangeメ...
-
同じ作業(データコピー・貼付...
おすすめ情報