質問: フィルタオプションをマクロで 1 テキストを読み込んで並べ替えなどして 表(1行目はタイトル)を作り、 フィルタをかける(マクロ) 2 フィルタオプションで必要なデータを抽出 その際に日付を手入力する (例 a列(毎回決まった列) 2005/4/1以上 降順) 3 その後の作業(マクロ) このように1のマクロを起動して その後 2を手作業して 更に3をマクロを 起動すると言う方法をとっていますが 2の内容もマクロで作って 「日付」だけを 入力するように求められて それを入力するだけで その後の作業も自動で行うことは出来るでしょうか?
回答: 出来るかって事なら出来ます。 下記はオートフィルタのサンプルです。 sub test() dim fs as string, r as range fs = application.inputbox _ ("日付入力", "抽出", format(date, "yyyy/m/d"), type:=2) set r = activesheet.range("a1").currentregion r.autofilter if activesheet.filtermode then r.autofilter r.autofilter field:=1, criteria1:=">=" & fs end sub