並べ替えられた日付リストのセルの日付値に基づいて行の範囲を選択、コピー、ペーストする

Question

特定のセルの値（つまり今日の日付）を検索し、それに基づいてExcelのVBAに関するヘルプが必要です条件は、過去または将来の基準に基づいて、ある範囲の行を別のワークシートに選択し、コピーして貼り付けます。私のワークシートは日付でASCにソートされていますが、この問題のいくつかの記事を読んでいますが、私自身は解決しなかったので、問題の解決に日付の専門知識がないか、読まれた要求はわずかに異なっていた。

ソースワークシートのサンプルは次のようになります。

givenName RegistrationStartDate 
Kirstie  1/07/2010 
Momena  12/01/2011 
Seyedkazem 18/01/2011 
Christie 3/02/2011 
Jakub  8/02/2011 
Steven  11/07/2011 
Patrina  13/07/2011 
Gregory  14/07/2011 
Fatima  15/07/2011 
Thomas  18/07/2011 
Ala   **19/07/2011** 
Anne  31/07/2011 
Umair  1/08/2011 
Laura  2/08/2011 

そして、私は今日の日付19/07/2011を見つけてワークシートの過去の「にこれを貼り付けるVBAを助ける必要があります。私は私の悲しみに追加されているかもしれないものを推測するの将来の「

givenName RegistrationStartDate 
Kirstie  1/07/2010 
Momena  12/01/2011 
Seyedkazem 18/01/2011 
Christie 3/02/2011 
Jakub  8/02/2011 
Steven  11/07/2011 
Patrina  13/07/2011 
Gregory  14/07/2011 
Fatima  15/07/2011 
Thomas  18/07/2011 

とワークシート

givenName RegistrationStartDate 
Anne  31/07/2011 
Umair  1/08/2011 
Laura  2/08/2011 

は、私は、特に今日の日付で任意の行を必要としないことです。これを整理すると、「今日の日付は何ですか？」という基準（つまり、今日の日付の前後28日）にロジックを追加し、それに基づいて行をコピー/貼り付けます。私は、ある種の教祖が上で私を助けることができると思う、私はそこから大丈夫だろう。

よろしく

ラリー

Answer 1

だから、現在の日付（できれば同じである、すなわち、システムの日付）を取得するには、機能をあなたの質問に答えるために、あなたはDate関数を使用します。

これで、各日付をリストし、システム日付と比較します。

日付> SYSDATEは将来の

日付= SYSDATEは、テーブル内のあなたの日付時刻情報が含まれている場合、あなたが取り除くためにInt(yourtabledate)を使用する必要があります

を

• 日付< SYSDATEを無視されている通り過ぎ02.08.2011 08:12 > 02.08.2011（暗黙の時間は00:00）ので、将来的にはあなたが望んでいないだろうからです。

  あなたがVBAのテーブルを渡ってループを構成する方法がわからない場合は、特定の質問を投稿してください。

  乾杯 マイク