[[20031021200949]]　『抽出したデータを別シートに表示したい』（王子）　ページの最後に飛ぶ

『抽出したデータを別シートに表示したい』（王子）

素人な質問ですみません。”オートフィルタ”で抽出したデータを別シートにコピーしているのですが、自動で行うことは出来ますか？
一つのシートはデータを蓄積させ、加工を別シートで行っています。
別シートに抽出させるキーとなる日付"yy/mm/dd"を入れることで、データ蓄積シートから該当データが全て表示されるといいのですが・・・。

[[20031012231218]]『検収チェックリストの作成』（うえさん）

 参考にして下さい。（ケン）

ありがとうございました。参考にして頑張ってます・・・。が数式の意味がわからないので四苦八苦・・・。(王子）

 >自動で行うことは出来ますか？
 私は マクロで抽出しています 試してみてください

 Alt+F11でVBAを呼び出し 標準モジュールに以下のコードを貼り付けて下さい
 標準モジュールが無いときは メニューの挿入から作成してください

 Sub 検索()

    Sheets("抽出先").Rows("1:65536").ClearContents
    Sheets("住所録").Select
    Range("A1").Select
    ActiveCell.CurrentRegion.AdvancedFilter _
      Action:=xlFilterCopy, _
      CriteriaRange:=Sheets("検索").Range("A1:E2"), _
      CopyToRange:=Sheets("抽出先").Range("A1:E65536"), _
      Unique:=False
    Sheets("抽出先").Select
    Range("A1").Select

 End Sub

 sheet名を 住所録  検索  抽出先  とします
 sheet住所録の1行目が項目（A1～E1）、2行目からデータとします
 項目数（A1～E1）を変更のときは コードも修正して下さい

 sheet検索の1行目は 住所録の1行目項目（A1～E1）をコピーして下さい
            2行目に検索文字列を入力します 項目を組み合わせて検索できます

 Alt+F8でマクロ名 検索 を選び実行します  sheet抽出先に抽出されます

 マクロボタンをシート上に作ると便利です。  ヘルプ→マクロを実行する
 (nora)

コメント返信：

[ 一覧(最新更新順) ]

[[20031021200949]] 『抽出したデータを別シートに表示したい』（王子） ページの最後に飛ぶ

[[20031021200949]]　『抽出したデータを別シートに表示したい』（王子）　ページの最後に飛ぶ