[[20090416132427]]　『オートフィルターコピーとマクロについて』（dada）　ページの最後に飛ぶ

『オートフィルターコピーとマクロについて』（dada）

 sheet3に発注リスト
 sheet5に在庫リスト
 があり
 sheet6に　sheet3とsheet5をあわせたシート
 sheet7に　日付した内のsheet3とsheet5をあわせたリスト
 を作成したいのですが

 Sheet3"在庫数”
 　 A      B        C     D     E
 1企業名	日付	個数　金額　判定
 2りんご　4/7　　　300　1500
 3みかん　5/8　　　500　3000　済
 4ばなな　5/15　　1500　7000
 5メロン　6/7　　　 50　1500　済

 sheet5　
 　 A      B        C     D     
 1企業名	月	個数　金額　
 2みかん　5/1　　　30　　1000
 3りんご　5/1　　　50　　2000
 4ぶどう　6/1　　　70　　5000
 5みかん　7/1　　　30　　1000

 sheet6　　
 ①シート3のものは、判定で済があるものを反映
 ②シート5のものは、記入されてるもの全て反映

 　 A      B        C     D     e　　F　　G　　　F　　　G
 1企業名	月　　　個数　金額　空白　企業　日付　個数　金額　　
 2みかん　5/8　　　500　3000　　　　みかん　5/1　　　30　　1000
 3メロン　6/7　　　 50　150　　　　 りんご　5/1　　　50　　2000　
 4　　　　　　　　　　　　　　　　　ぶどう　6/1　　　70　　5000
 5　　　　　　　　　　　　　　　　　みかん　7/1　　　30　　1000

Sub tyu()

    Sheets("sheet3").Select
        Range("a1").Select
        Selection.AutoFilter
        Selection.AutoFilter Field:=4, Criteria1:="済"

        Selection.CurrentRegion.Copy

    Sheets("sheet6").Select
        Range("a1").PasteSpecial Paste:=xlAll
        Range("A1:D1").Select
        Selection.CurrentRegion.Select

    Sheets("sheet5").Select
        Range("a1").Select
        Selection.CurrentRegion.Copy
    Sheets("sheet6").Select
        Range("F1").PasteSpecial Paste:=xlAll
        Range("F1:G1").Select
        Selection.CurrentRegion.Select
  If ActiveSheet.AutoFilterMode = True Then
  Selection.AutoFilter
  End If

End Sub

 と、反映するまでは出来たのですが、E列に”済”まで入ってしまうのと
 シート3のオートフィルターを解除・シート5のコピーの解除が出来てなく
 どの様に修正すればよいか教えて下さい。

 またsheet7の日付内の抽出もいろいろ教えて頂ければと思います。
　　
 　 A      B      C   D     e　　　F　　　G　　　F　　　G　　　H　　　I　　J
 2　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　5/7　6/13　　　
 3企業名　日付　個数　金額　空白　企業　　個数　金額　空白　　企業名　日付　　個数　金額　　
 4みかん　5/8　　500　3000　　　　みかん　30　　1000　　　　 ばなな　5/15　　1500　7000
 5メロン　6/7　　 50　150　　　　 りんご　50　　2000　
 6　　　　　　　　　　　　　　　　ぶどう　70　　5000

 A～Dは【i2～J2】範囲の済があるsheet3のもの
 F～Gは【i2～J2】範囲のsheet5のもので、日付が月が同じもの
 そのため日付は反映させない
 H～Jは【i2～J2】範囲の中で、済以外のsheet3のもの

 このような感じになれば嬉しいのですが、
 あまり詳しくなくどうか宜しくお願いします。

 ＞E列に”済”まで入ってしまうのと
 あとで、E列を Delete　とか？

 ＞シート3のオートフィルターを解除
 これは、オートフィルタ自体を解除？
 それとも、絞り込んだ状態を解除？
 どちらにしても、ここまでが正常に動くのなら
 マクロの記録のコードが使えると思います。

 ＞シート5のコピーの解除
 コピーの解除　と言うのは、　点線で囲われた状態
 と言う事でしょうか？

 でしたら、こちらも　マクロの記録のコードが使えると思います。
 コピーモードの状態で、Esc を押してみて下さい。
 コピーモードが解除されます。

 ＞sheet7の日付内の抽出
 これも、オートフィルタでやって貼り付ける方法をとるのなら
 マクロの記録でコードの骨組みを得るのが良いと思います。

 例えば、2009/5/7～2009/6/13の範囲を表示させたい場合
 オプションから　2009/5/7以上　AND 2009/6/13以下　を選びます。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20090416132427]] 『オートフィルターコピーとマクロについて』（dada） ページの最後に飛ぶ

[[20090416132427]]　『オートフィルターコピーとマクロについて』（dada）　ページの最後に飛ぶ