（私は例えば2018年の日付をしたい）私は日付に基づいているそのうちの一つ、いくつかの基準に基づいてフィルタ処理ワークシートを持って</p> <p>を日

Question

に基づいてフィルタリングされたデータのCriteria1値を取得し、私のような様々なルーチンを発見しました次

http://www.vbaexpress.com/forum/archive/index.php/t-7564.html

しかし

、ループは日付基準を持つ列に行く時はいつでも、次の行のコードがクラッシュ：

sMsg = sMsg & vbCrLf & sField & oFlt.Criteria1 

日付に基づいて基準を取得する方法がありますか？

よろしく

Thanasis

Answer 1

エラーのある行の前にこれを追加してください：

MsgBox CDate(oFlt.Criteria1) 
sMsg = sMsg & vbCrLf & sField & oFlt.Criteria1 

次に、あなたがそれを介して取得するために管理されるまでそれを仕事にしてみてください。おそらくCriteria1は日付などに変換できません。