[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『 マクロでオートフィルターと列も動きますか・』(悩人)
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であったとすると、マクロでオートフィルターを かけた際、(オートフィルターで今回は商品2だけが抽出される条件で あった場合)
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さん ありがとうございました。
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.