今日の日付が入力されたセルを選択したい

投稿者 : aaa     投稿日時 : 2021/09/02(Thu) 08:58:18     OS : Windows 10     EXCEL : その他

---

日付を入力したセルが複数あります。
ファイルを開いたときに、今日の日付のセルを表示するようにしたいのですが、下記のコードでは、「今日の日付が見つかりません」と表示されます。
日付は、「=WORKDAY(A1,1,休日)」と関数が入力されています。

Private Sub Workbook_Open()
 
 Dim FRng As Range
 
 Const TagetSheet = "スケジュール" ' <-- 対象シート名指定
 Worksheets(TagetSheet).Activate
 Set FRng = Rows("1:147").Find(Date, LookIn:=xlFormulas)
 If Not FRng Is Nothing Then
 FRng.Activate ' <---今日の見出しの次行の場合

 Else
 MsgBox "今日の日付が見つかりません。", vbExclamation
 End If
 
 Set FRng = Nothing
 
 End Sub

投稿者 : aaa（あああ）     投稿日時 : 2021/09/02(Thu) 09:00:33

---

エラーになったので、再度投稿したら、二重投稿になりました。
名前も確認せず、英字で入力されていました。
申し訳ありません。

投稿者 : ヘンリー     投稿日時 : 2021/09/02(Thu) 09:45:44

---

値、数式について、理解ができていないようです。

A1セルに
「=SUM(A2:A4)」
と入力して、以下のコードを実行してみて下さい。

Sub a()
    Dim b
    
    b = Range("A1").Formula
    MsgBox b
    
End Sub

それと、Findメソッドについて、再度調べなおしてみて下さい。

投稿者 : aaa     投稿日時 : 2021/09/02(Thu) 10:57:06

---

教えていただいたコードは試し、結果は納得しました。
Findメソッドは調べましたが、結局、わからなかったので、終了します。
お世話になりました。

■[返信 2] ヘンリーさん（2021-09-02 09:45:44）の記事
＞ 値、数式について、理解ができていないようです。
＞
＞ A1セルに
＞ 「=SUM(A2:A4)」
＞ と入力して、以下のコードを実行してみて下さい。
＞
＞ Sub a()
＞ Dim b
＞
＞ b = Range("A1").Formula
＞ MsgBox b
＞
＞ End Sub
＞
＞ それと、Findメソッドについて、再度調べなおしてみて下さい。

投稿者 : ヘンリー     投稿日時 : 2021/09/02(Thu) 11:28:59

---

解決済みになっていましたが、、、

.Find(Date, LookIn:=xlFormulas)

「xlFormulas」これが何を意味しているか調べてみて下さい。