[[20100528225343]]　『マクロでオートフィルターと列も動きますか・』（悩人）　ページの最後に飛ぶ

『マクロでオートフィルターと列も動きますか・』（悩人）

     a   b   c   d  ......  J    K    l  
 1       5/1 5/2 5/3       5/15 5/16 5/17

 2 商品1　　　1

 3 商品2　                   3

  上記のような表で、オートフィルターをマクロで実行して行を絞った際、
 本日まで列を絞ることはできますでしょうか？
 たとえば、本日が5/15であったとすると、マクロでオートフィルターを
 かけた際、（オートフィルターで今回は商品２だけが抽出される条件で
 あった場合）

     a    J    K    l  
 1       5/15 5/16 5/17

 3 商品2　 3

 のように、列も絞った形で表示したいのですが・・・。

 宜しくお願いいたます。

 こんばんわ。。
 >オートフィルターをマクロで実行して行を絞った際、 本日まで列を絞る・・
 オートフィルタ実行後に、昨日までの列を非表示にします。。

 オートフィルタ実行のマクロ
     Dim d As Integer

    d = WorksheetFunction.Match(CDbl(Date), Range("A1:IV1"))
    If d > 2 Then
        Range(Range("B1"), Cells(1, d - 1)).EntireColumn.Hidden = True
    End If
 dの変数宣言を忘れずに、そちらのコードに挿入してみて。。
 (kei)

 keiさん　ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20100528225343]] 『 マクロでオートフィルターと列も動きますか・』（悩人） ページの最後に飛ぶ

[[20100528225343]]　『マクロでオートフィルターと列も動きますか・』（悩人）　ページの最後に飛ぶ