検索と置換 vba後、そのまま検索できない

質問

シートに　2014/1/1　が入力されていて
VBAで

Sub test()
If Not Cells.Find(What:=CDate("2014/1/1"), MatchByte:=False) Is Nothing Then
Debug.Print "2014/1/1はあります"
End If
End Sub

を実行すると、"2014/1/1はあります"が返りますが
このコードを実行し終わってから、ワークシート画面で検索と置換を開くと、
「1/1/2014」の状態で入っています。

そのまま検索ボタンを押しても、さっきはVBAでは"2014/1/1はあります"
だったのに、手作業だと「ありません」になります。

どういうことなのでしょう？

回答No.1

karasu1201 · ベストアンサー

こんばんは。

Cells.Find(What:=CDate("2014/1/1"), MatchByte:=False)
こちらで返る値は
[2014/01/01]
→Cells.Findで返る値を表示してみてください。

ワークシートで検索したことになっている値は
[1/1/2014]

おわかりでしょうか。
Findではデータ型を日付とし、2014/1/1ではなくシリアル値として検索しています。
ですので、検索履歴としては正しいといえます。
しかしながら検索窓で操作する場合はあくまで文字列と書式でのみ検索しています。
よってキャラクターが[2014/1/1] Formatが[*2000/1/1]となります。
このようにそれぞれの操作で行われている処理が異なるため結果不一致となります。

ご確認ください。

※差し支えなければ、やりたいことをご質問内容に含んでおいてもらえますと、回答がスムーズかと思います。

お礼

ご回答ありがとうございました。

回答No.2

karasu1201

追記です。

Sub test()
Dim a As Date
Dim b As String

a = Cells.Find(what:=CDate("2014/1/1"), Matchbyte:=False)
b = Format(a, "yyyy/m/d")
If Not b = "" Then
Cells.Find (b)
End If
End Sub

これで窓に表示される値が一致します。

お礼

ご回答ありがとうございました。