VBA - 標準オートフィルタの起動ダイアログボックスで条件を入力して実装する

Question

Excel 2010の場合、過去2時間ウェブを検索していて、これを見つけることができません。

私はたくさんのものを行い、マクロのある時点では、コラムF（日付列）に対して、昔ながらの自動フィルターダイアログボックスを表示する必要があります。ユーザーは希望する基準を入力する必要があります（必ずしも同じではない可能性があります）。タイプ - 「後」、「後」または「後」、または「後」、前に "）、OKをクリックし、それに応じてフィルタを適用します。

私はExecuteExcel4Macro "filter?(6)"を試しましたが、ダイアログボックスが表示されましたが、[OK]をクリックするとExcelが実行を停止しました。私が見たことのあるものは、セルに条件を入力することに関連しているようですが、そのセルを参照するか、またはカスタムダイアログボックスを作成する必要があります。最初のオプションは実用的ではありません。なぜなら、これはマクロの途中で行われ、2番目のオプションは、条件のタイプが毎回異なる可能性があり、ホイールを再作成しているように感じるからです。

カスタムオートフィルタダイアログボックスを起動し、ユーザーが条件を入力して[OK]をクリックして実際に動作させる方法はありますか？データを仮定

Answer 1

は次のようにレイアウトされている：

次のコードは、

​​96

これは実施例であるコラムAにフィルタープロンプトを起動します。

ので、コードはこのが表示されます。