

はじめまして。
地方でエンジニアをやっているものです。
仕事で下記マクロの作成を任されたのですがグラフへのデータ抽出がうまくいかず
泣く泣くgooに投稿しました。
下記エクセルマクロについてどうかご教授お願いします。
セルC5に開始時刻(例2020/02/23 10:00)と
セルD5に終了時刻(例2020/02/24 10:00)がそれぞれ記載されたシートがあります。(グラフシート) そのシートにはあらかじめ空のグラフを作成しておき
別のシート(データシート)のA,B列の日付データから上記の時刻の期間分を抽出しその空のグラフに出力したいです。
空のグラフにはそれぞれグラフ名が設定されています。
(グラフ名:abcd200)にはデータシートの「data1」を出力
(グラフ名:abcd400)にはデータシートの「data2」を出力する想定です。
[グラフシート]-----------------------------------------------------------
1.開始時刻(C5) 終了時刻(D5)を記載
2.何も出力されていないグラフ2枚
(グラフ名:abcd200)
(グラフ名:abcd400)
[データシート]-----------------------------------------------------------
A列に日付:mm/dd
B列に時間:hh:mm
C列にdata1 (abcd200に出力するデータ)
D列にdata2 (abcd400に出力するデータ)
*難所としてはグラフを作成せず、空グラフにデータを出力すること。
データシートの日付データがA列とB列でそれぞれ日付と日時でわかれている点になります。
複雑な依頼になりますが説明していただける方がいらっしゃれば
どうかよろしくお願いいたします。
![「[VBA]セルの日付からデータを抽出し空」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/542960792_5e52a650d4327/M.png)
No.2ベストアンサー
- 回答日時:
abcd200の方だけ作ってみました。
参考になりますかね?abcd400の方は同じように作ってみて下さい。
G1のある行をコピーして、G2として追加するだけで、いけると思います。
Sub sample()
Dim i As Long
Dim G1 As Range
Dim dt As Variant
With Worksheets("データシート")
Set G1 = .Range("A1:B1,C1:C1")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
dt = .Cells(i, "A").Value + .Cells(i, "B").Value
If dt >= Worksheets("グラフシート").Range("C5") And _
dt <= Worksheets("グラフシート").Range("D5") Then
Set G1 = Union(G1, .Range("A" & i & ":B" & i), .Range("C" & i & ":C" & i))
End If
Next i
Worksheets("グラフシート").ChartObjects("abcd200").Chart.SetSourceData Source:=G1
End With
End Sub
返信遅れてすみません。
検証の結果、無事にFrom Toの値から
データを抽出し、空のグラフにデータ出力することができました。
ご回答していただき本当にありがとうございます。
No.1
- 回答日時:
できないものはできないと頭を下げることを強く勧めます。
他人に作ってもらってそれを自身の成果のようにして提出するとあとで泣くことになりますよ。
(仕様変更されたときに、また依頼しなきゃいけない。そして次は回答が付くとは限らない)
・・・
というか、質問を端折り過ぎです。
どう上手くいかなかったのかが示されていません。
「一から代わりに作ってください」という丸投げ状態ですよ。
残念ですが、ここは「作業代行」する場所ではありません。
自身で作成できるようにアドバイスを受ける場所と思ってください。
・・・難所へのアドバイス・・・
自分なら別にグラフを作成する。
でもって、そのグラフをコピーして「グラフシート」へ「図」として貼り付ける。
これなら何もないグラフエリア(っぽい箇所)を確保できる。
「日付」と「日時」で別れているなら「日付」は無視すれば良い。
「日付」と「時間」で別れているなら結合してシリアル値に直してから処理すれば良い。
・・・余談・・・
マクロである必要ないよね。
関数を使った数式でも対処可能です。
どうしてもマクロで行いたいのであれば、手作業で処理する手順を「記録マクロ」にしてそれを参考に修正すると良いでしょう。
(マクロの書き方・読み方が分からないなら意味無いので、素直に頭を下げましょう)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセルの大きなシートでグラフを見つける 4 2022/07/28 10:07
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
EXCELでグラフを作るとき、縦軸...
-
Excel:別シートにグラフを貼り...
-
エクセルの縦軸(Y軸)が不均等...
-
エクセルの対数グラフのエラー
-
エクセルの円を5等分する方法
-
エクセルで折れ線と散布図を同...
-
エクセルで、極座表のグラフ描...
-
Excelでx軸とy軸を設定して図を...
-
ExcelでIF関数によるグラフの表...
-
エクセル グラフはあるけれど...
-
Excelのx軸の1マスごとに幅を...
-
グラフのサイズを揃えたいのでV...
-
エクセルの円グラフをグラフエ...
-
Excelマクロ・グラフエリア・プ...
-
エクセルのグラフの1点の色を変...
-
エクセルのグラフで基準線(横...
-
エクセル 0や空白のセルをグラ...
-
EXCELのプロットエリアサイズの...
-
ExcelのグラフをPowerPointに貼...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
EXCELでグラフを作るとき、縦軸...
-
Excel:別シートにグラフを貼り...
-
エクセルで折れ線と散布図を同...
-
エクセルの縦軸(Y軸)が不均等...
-
散布図を縦に2個並べて出力したい
-
Excelでx軸とy軸を設定して図を...
-
エクセルで折れ線グラフ(散布...
-
エクセル グラフはあるけれど...
-
エクセルで、極座表のグラフ描...
-
エクセルで作ったグラフの右側...
-
エクセル グラフの”データーテ...
-
エクセルの対数グラフのエラー
-
エクセルグラフの項目名を折り...
-
エクセルのグラフの1点の色を変...
-
エクセルの円を5等分する方法
-
ExcelでIF関数によるグラフの表...
-
Excelグラフの有効数字の統一が...
-
ワードの差し込みにて、値をグ...
-
エラーバーの終端の線を長くする
おすすめ情報