[[20031021200949]] 『抽出したデータを別シートに表示したい』(王子) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

素人な質問ですみません。”オートフィルタ”で抽出したデータを別シートにコピーしているのですが、自動で行うことは出来ますか?
一つのシートはデータを蓄積させ、加工を別シートで行っています。
別シートに抽出させるキーとなる日付"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) 


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.