今日の日付と時刻との間にvbaコードを探しています

Question

私は3年までの日付賢明なサンプルのスケジュールでExcelファイルを持っています。 このシートでVBAのポップアップアラートとして今日のサンプルを見つける方法

私を助けてください。

Answer 1

私の考える限り、これはあなたの目的を十分に満たしている可能性があります。これは、特定の列で検索する日付を入力するようにユーザーに要求するマクロコードです。範囲（ "A：A"）を好きなものに変更してください。

Sub Find_Date() 
Dim FindString As Date 
Dim Rng As Range 
FindString = InputBox("Please Enter Date") 
If Trim(FindString) <> "" Then 
     With ActiveWorkbook.ActiveSheet.Range("A:A") 
     Set Rng = .Find(What:=FindString, _ 
         After:=.Cells(.Cells.Count), _ 
         LookIn:=xlValues, _ 
         LookAt:=xlWhole, _ 
         SearchOrder:=xlByRows, _ 
         SearchDirection:=xlNext, _ 
         MatchCase:=False) 
     If Not Rng Is Nothing Then 
      Application.Goto Rng, True 
     Else 
      MsgBox "Nothing found" 
     End If 
    End With 
End If 

End Subの