Excel VBA質問箱 IV

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

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


38004 / 76732 ←次へ | 前へ→

【43874】Re:別シートのデータを条件別に取得
発言  maverick  - 06/10/27(金) 11:58 -

引用なし
パスワード
   う〜ん、"元"シートは甲Bookだとばかり思っていたので、
逆に良く分からなくなってきました・・・

とりあえず各ブックのシート構成は
・乙Book
"元"、"OK"、"OK2"、"抽出"、"エラー"、"joblog"
・甲Book
"甲"(データ6万行)
ということですか?

そうすると、

>1.マクロ11
>Sub test1()
でやっているのは、
1.甲Bookの"甲"シートのA1:B4を、乙Bookの"OK"シート、"OK2"シートの同じ場所にコピー
2.乙Book内で、"joblog"からオートフィルターで抽出したものを"OK"シート、"OK2"シート、
  "元"シートにそれぞれ転記

>2.マクロ12(1-2-1と1-2-2をくっつけました)
>Sub FromTo作成()
でやっているのは、
1.乙Book内で、"元"シートの"N2"セルと"P2"セルを比較して条件分岐して
  "抽出"シート、または"エラー"シートに"元"シートの一部を転記

ということになります。
これでは甲Bookの"甲"シート(データ6万行)のデータは、”A1:B4”だけしか使われてなく、
6万行の意味が無くなってしまうので、たぶん違いますよね?


ということで、このままコードを書いても無駄に終わると思うので、
やりたいことを具体的に書いてみてください。

例)
インプットボックスに”ア”と入力されたら、甲Bookの"甲"シートの
A列で”ア”のものを抽出して乙Bookの"OK"シートに転記したい

それと、↓のような各シートのシートイメージがあると回答者もより回答しやすくなります。

    A    B   C    D    E    F
1   項目   品名  数量 金額  区分  備考
2   ア    A   3   1000  3   東京C
3   ウ    G   8   5000  0   東京B
4   エ    L   4   4000  2   大阪A
5   イ    W   1   8000  3   東京A
6   ア    F   5   2000  1   大阪B

1 hits

【43790】別シートのデータを条件別に取得 モナ 06/10/25(水) 21:04 質問
【43794】Re:別シートのデータを条件別に取得 maverick 06/10/25(水) 23:50 回答
【43799】Re:別シートのデータを条件別に取得 モナ 06/10/26(木) 8:47 質問
【43823】Re:別シートのデータを条件別に取得 maverick 06/10/26(木) 12:07 発言
【43828】Re:別シートのデータを条件別に取得 モナ 06/10/26(木) 13:48 質問
【43841】Re:別シートのデータを条件別に取得 maverick 06/10/26(木) 18:27 発言
【43844】Re:別シートのデータを条件別に取得 モナ 06/10/26(木) 18:59 発言
【43874】Re:別シートのデータを条件別に取得 maverick 06/10/27(金) 11:58 発言
【43895】Re:別シートのデータを条件別に取得 モナ 06/10/28(土) 18:00 発言

38004 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free