Book1、Book2には、異なる行列のデータがあります
この2つのブックのデータを参照してグラフを書くマクロをVBAで組んでいます
Book1,Book2のシートをそれぞれグラフに書くところまでは出来ました
質問1.
Book1のA1~An(Aのセルすべて)を、Book2の指定のセル(例えばC1~Cn)に
コピーしたい
質問2.
Book2のセルB1~B100のデータと
Book1からコピーしたC1~C300のデータを
同じグラフ上にプロットしたい
AのセルをX軸のデータとして使用する
宜しくお願いします
No.2ベストアンサー
- 回答日時:
VBAはどのBookにあって、
>Book1のA1~An(Aのセルすべて)を、Book2の指定のセル(例えばC1~Cn)にコピーしたい
というのはBook1のどのシートとBook2のどのシートで、どんなグラフをどのシートに書くのか、具体的な情報が不足してるので、例えばです。
C:\Book1.xlsのSheet1のA列のデータを、このVBAのあるBookのSheet1のC列にコピーする。
このVBAのあるBookのSheet1のA:B列にはあらかじめデータがある。
つまりこのVBAがあるBookが質問のBook2だった場合です。
Sub sample1()
Dim book1 As Workbook
Dim sheet1 As Worksheet
Set book1 = Workbooks.Open("C:\Book1.xls") 'Book1を開く
Set sheet1 = book1.Sheets("Sheet1") 'Book1のデータがあるシート
ThisWorkbook.Sheets("Sheet1").Columns("C").Value = sheet1.Columns("A").Value 'このBookのSheet1のC列に、Book1のSheet1のA列の値をコピー
book1.Close False 'Book1を保存せずに閉じる
End Sub
Sheet1のA:C列にデータがある場合で、A列の値がX軸でB列とC列の値がY軸の折れ線グラフです。
1行目はデータです。
Sub sample2()
Dim dataSheet As Worksheet
Dim c As Chart
Set dataSheet = Sheets("Sheet1") 'データがあるシート
Set c = Charts.Add 'グラフ追加
c.ChartType = xlLine '折れ線グラフ
c.SetSourceData Source:=dataSheet.Range("B1:C30"), PlotBy:=xlColumns 'B列とC列がデータ
c.SeriesCollection(1).XValues = dataSheet.Range("A1:A300") '横軸をA列に設定
c.Location Where:=xlLocationAsObject, Name:=dataSheet.Name 'グラフをデータのあるシートに移動
End Sub
実際は1行目が見出しかどうかとか、何グラフがほしいか具体的なことがわからないと、なんとも答えようがないと思います。
No.1
- 回答日時:
エクセルのグラフは、1つのシートに、望みのグラフに適した形式(行と列、系列)で作らないと、Book1の何処から、Book2のあそこから、といってみても何もなりません。
ーー
まず手作業でデータをシートに(架空のデータで良い)つくり並べてみて、それを挿入ーグラフーグラフの種類ー以下グラフの設定操作でやってみて、意図どおりの形が出来上がってから、そのデータ例をこの質問文に挙げて、さてどうVBAのプログラムを組んだら良いでしょうと聞くもんだ。できれば自分でやれるとこまでやってみる。
1シートにあるデータでも、意図どおりのグラフの書き方操作もわかってない状態ではないのか。
まずそれを勉強するのが先だ。
あとはマクロの記録が、グラフの場合良く取れるので、マクロの記録を採って、勉強するのだ。
其れでグラフを描く部分はVBAコード化は比較的心配はいらない。
ーー
そして上記でシートに作ったデータを作るには、2ブックを巻き込んだ、どういうコードになるのか考えるのが順序だ。
ーー
基本的なことは、グラフの系列の考えに合うようなデータの並べ方のデータを作れば良いのだが、C1~C300なんていわずにC1-C5ぐらいの データ例でもあげて質問するもんだ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) 同じExcelのBOOK内で 1枚目のシートのA1のセルにデータを 入れると2枚目のシートのC1のセ 1 2022/10/25 09:40
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
S9タイプからXタイプにデータ...
-
メモ帳(テキストデータ)をExc...
-
この行は既に別のテーブルに属...
-
VBにおいてフォーム間の変数の...
-
VBA 空白セルを削除ではない方...
-
大学のゼミのレポートがムカつ...
-
エクセルで2つの時系列のデー...
-
[C言語] コメント文字列を無視...
-
VBAを使ってOutlookメール本文...
-
ユーザーフォームのテキストボ...
-
シーケンサにパソコンからアク...
-
C# でDataTableの更新を高速化...
-
EXCELVBAでSQLserverからデータ...
-
Excelのマクロでワードのテキス...
-
0が含まれる幾何平均が「#NUM!」
-
WEBサイトの構築。表示データと...
-
CString型の文字列連結について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
【エクセル】測定時間がバラバ...
-
配列でデータが入っている要素...
-
多量のSUMIF式を軽くしたい
-
エクセルで2つの時系列のデー...
-
Excelのマクロでワードのテキス...
-
メモ帳(テキストデータ)をExc...
-
VBA 空白セルを削除ではない方...
-
VBAを使ってOutlookメール本文...
-
Accessで該当データにフラグを...
-
合計3TBのデータのハッシュ値を...
-
シーケンサにパソコンからアク...
-
S9タイプからXタイプにデータ...
-
カンマからスラッシュに
-
VBAでシートからコンボボックス...
-
VBA 毎日取得するデータを順番...
-
ビットシフトについて
-
ユーザーフォームのテキストボ...
-
EXCELVBAでSQLserverからデータ...
-
特定のデータの抽出方法を教え...
おすすめ情報