Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6764 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43299】教えてください。 へろへろ 06/10/8(日) 18:02 質問[未読]
【43300】Re:教えてください。 かみちゃん 06/10/8(日) 18:12 発言[未読]
【43301】Re:教えてください。 へろへろ 06/10/8(日) 18:42 回答[未読]
【43302】Re:教えてください。 かみちゃん 06/10/8(日) 18:55 発言[未読]
【43303】Re:教えてください。 へろへろ 06/10/8(日) 19:04 お礼[未読]
【43299】教えてください。
質問  へろへろ  - 06/10/8(日) 18:02 -
引用なし
パスワード
   Workbook1に抽出開始日と抽出終了日を入力するセルがあります。

Workbook2にデータが下記の通り並んでいます。
　　A　　B　　　　C　　　　　　　　　D　　
1　10/1　あ　　いいいいいいいい　　　鹿
2　　　　　　　いいいいいいいい
3　　　　　　　いいいいいい。
4　10/2　い　　ああああああああ　　　蛇
5　　　　　　　ああ。
6　10/4　う　　ううう。　　　　　　　馬
7
8　10/5　う　　えええええええええ　　牛
9　　　　　　　ええええええ。

workbook1の抽出開始日と抽出終了日より
WorkBook2のデータを抽出して、
Workbook1のsheet2へはりつけたいと思っています。


(抽出例)10/2〜10/5の場合
10/2　い　　ああああああああ　　　蛇
　　　　　　ああ。
10/4　う　　ううう。　　　　　　　馬

10/5　う　　えええええええええ　　牛
　　　　　　ええええええ。
という具合に。。。


可能であればどなたかアドバイスをお願いいたします（＞＜）！
【43300】Re:教えてください。
発言  かみちゃん  - 06/10/8(日) 18:12 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>WorkBook1の抽出開始日と抽出終了日より
>WorkBook2のデータを抽出して、
>WorkBook1のSheet2へはりつけたい

これは、WorkBook2のSheet1のA列の各セルの日付が、指定された範囲内であれば、
そのセルと１行下のセルの行全体をWorkBook1のSheet2に貼り付けたいということ
でしょうか？

そこで、日付は、日付型になっているということでいいですか？

また、作業列に計算式を設定して、オートフィルタで抽出することではどうでしょうか？
計算式は、
E1に
=A1
E2以下に
=IF(A2="",A1,A2)
という数式を設定して、E列にオートフィルタで抽出すればどうでしょうか？
【43301】Re:教えてください。
回答  へろへろ  - 06/10/8(日) 18:42 -
引用なし
パスワード
   かみちゃんさん、さっそくの返信ありがとうございます。


>これは、WorkBook2のSheet1のA列の各セルの日付が、指定された範囲内であれば、
>そのセルと１行下のセルの行全体をWorkBook1のSheet2に貼り付けたいということ
>でしょうか？
>

はい。C列は必ず3行or2行ではありません。5行や3行の場合もあります。

>そこで、日付は、日付型になっているということでいいですか？

日付型です。

>また、作業列に計算式を設定して、オートフィルタで抽出することではどうでしょうか？
>計算式は、
>E1に
>=A1
>E2以下に
>=IF(A2="",A1,A2)
>という数式を設定して、E列にオートフィルタで抽出すればどうでしょうか？

ためしにやってみましたが、E3は「1/0」と表示されフィルタにて抽出できませんでした。
【43302】Re:教えてください。
発言  かみちゃん  - 06/10/8(日) 18:55 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>>また、作業列に計算式を設定して、オートフィルタで抽出することではどうでしょうか？
>>計算式は、
>>E1に
>>=A1
>>E2以下に
>>=IF(A2="",A1,A2)
>>という数式を設定して、E列にオートフィルタで抽出すればどうでしょうか？
>
>ためしにやってみましたが、E3は「1/0」と表示されフィルタにて抽出できませんでした。

すみません、式を間違えました。
=IF(A2="",E1,A2)
です。
【43303】Re:教えてください。
お礼  へろへろ  - 06/10/8(日) 19:04 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>>また、作業列に計算式を設定して、オートフィルタで抽出することではどうでしょうか？
>>>計算式は、
>>>E1に
>>>=A1
>>>E2以下に
>>>=IF(A2="",A1,A2)
>>>という数式を設定して、E列にオートフィルタで抽出すればどうでしょうか？
>>
>>ためしにやってみましたが、E3は「1/0」と表示されフィルタにて抽出できませんでした。
>
>すみません、式を間違えました。
>=IF(A2="",E1,A2)
>です。


おぉ！出来ました♪
あとは抽出開始日と抽出終了日の期間に応じて
対象日を抽出すればよいですね！
ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6764 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free