VBAのfindメソッドで日付の検索が上手く行きません。
色々とググって日付をシリアル値に直してから、LookInをxlFormulasにして実行すればヒットするって色んなサイトに書いてたんですがヒットしません。
vba
1Public Sub tmp() 2 3 4 Dim tmpValue As Long 5 6 tmpValue = CLng(CDate(Range("A2"))) 7 8 Dim tmprange As Range 9 Set tmprange = Cells.Find(tmpValue, LookIn:=xlFormulas) 10 11 If tmprange Is Nothing Then 12 13 Debug.Print "見つかりません" 14 15 Exit Sub 16 17 End If 18 19 Debug.Print tmprange.Value 20 21 22End Sub
なお、セル「A2」には「2017年8月27日」という形式で日付が入っています。数式で入力した日付ではありません。
このセルの表示形式を「数値」にしてシリアル値を表示させるとヒットするのですが、日付の表示形式のままでヒットさせることはできないんでしょうか?
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/08/27 05:59