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列の各セルの日付が、指定された範囲内であれば、
そのセルと1行下のセルの行全体をWorkBook1のSheet2に貼り付けたいということ
でしょうか?

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

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

【43301】Re:教えてください。
回答  へろへろ  - 06/10/8(日) 18:42 -

引用なし
パスワード
   かみちゃんさん、さっそくの返信ありがとうございます。


>これは、WorkBook2のSheet1のA列の各セルの日付が、指定された範囲内であれば、
>そのセルと1行下のセルの行全体を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