Excel VBA質問箱 IV

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

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


38091 / 76738 ←次へ | 前へ→

【43790】別シートのデータを条件別に取得
質問  モナ  - 06/10/25(水) 21:04 -

引用なし
パスワード
   こんばんは。VBA初心者です。
次の条件でソースを書きたいのです。
別々に4つマクロは組みましたが、IFとか使って一つにすることが出来ません。
よろしくお願いします。


データ元ファイル:甲(セルA〜J、6万行データ)
コピー先ファイル:乙

条件1.セルAでの判別
 甲BookのセルAにはア、イ、ウの項目があり、フィルタをかけ、
 それぞれの項目ごとにデータを乙Bookへコピーする。
 このとき、フィルタは4行目からかける。
 
 1.−1 :項目ア、イの場合
  項目ア→シート名”ア”、
  項目イ→シート名”イ”のシートにコピーする。
  コピー範囲は、シート全部(フィルタに注意)
  その後、セルAで日付昇順に並べ替えをしたい。

 1.−2 セルAで判別した結果がウの場合
  セルBとセルDを比較して
  1.−2−1 :セルB=セルDならば、
   シート名”イッチ”に、
   セルA,B,C,Dを貼り付け。
   その後、セルAで日付昇順に並べ替えをする。
  1.−2−2 :セルBとセルDが等しくないならば、
   シート名”チガウ”に、
   セルA,D,E,G,Hを貼り付け。
   その後、セルAで日付昇順に並べ替えをする。

以上です。

0 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 発言

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