日付の検索（配列の使用）
日付の検索は、いろいろと面倒です。
Findメソッドで検索する場合、表示書式に左右されますので、
表示書式を変更しただけで、検索されなくなります。
以下のように、配列を自分で探すようにすれば、このような問題は発生しません。
Sub sample()
Dim i As Long, j As Long
Dim ary
ary =
ActiveSheet.UsedRange
For i = LBound(ary, 1) To UBound(ary, 1)
For j
= LBound(ary, 2) To UBound(ary, 2)
If ary(i, j) = Date
Then
ActiveSheet.UsedRange.Cells(i, j).Select
Exit
Sub
End If
Next j
Next i
End
Sub
まあ、ちょっと面倒ですが、確実に検索するためには仕方ありません。
上記をコピペして、検索条件のIF文だけ変更すれば、いろいろと用途が広がると思います。
同じテーマ「マクロVBAサンプル集」の記事
ストップウォッチ（1/100秒）（Timer）
新着記事NEW ・・・新着記事一覧を見る
CSVの読み込み方法（ジャグ配列）｜VBAサンプル集（7月15日）
その他のExcel機能（グループ化、重複の削除、オートフィル等）｜VBA入門（7月14日）
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス｜VBA技術解説（7月6日）
オートフィルタを退避回復するVBAクラス｜VBA技術解説（7月6日）
IfステートメントとIIF関数とMax関数の速度比較｜VBA技術解説（6月23日）
Withステートメントの実行速度と注意点｜VBA技術解説（6月6日）
VBA+SeleniumBasicで検索順位チェッカー（改）｜VBA技術解説（6月2日）
マクロでShift_JIS文字コードか判定する｜VBA技術解説（6月1日）
Shift_JISのテキストファイルをUTF-8に一括変換｜VBAサンプル集（5月31日）
「VBAによる解析シリーズその2 カッコ」をやってみた｜エクセル（5月21日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜ExcelマクロVBA入門
4.変数とデータ型（Dim）｜ExcelマクロVBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.繰り返し処理（For Next)｜ExcelマクロVBA入門
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.ExcelマクロVBAの基礎を学習する方法｜エクセルの神髄
9.ひらがな⇔カタカナの変換｜エクセル基本操作
10.セルに文字を入れるとは（Range,Value）｜VBA入門
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。