VBAを使用してExcelまたはExcelで日付を見つける方法

Question

先週のワークシートのすべてのエントリを検索し、最も早い日付に一致する最初の行を選択するマクロを作成しています。 マクロに最初の日付（1週間前）を検索させることはできますが、最初の日付が一致しない場合は、後続の日付を見つける方法を見つけることができません。

E.G. 今日の日付：28Mar16。マクロは7日（21Mar16）を振り返ります。 21Mar16のエントリがない場合は、22Mar16の最初のエントリを探します。その日の日付がない場合、23Mar16など

これは可能ですか？ここで

は、これまでのコードです：

Private Sub CommandButton1_Click() 
Dim strFilename As String 
Dim rngRange As Range 
Dim strfind As String 

Set strfind = Worksheets("Report").Range("J1") 
Set rngRange = Worksheets("Report").Range("B:B") 

If opt1.Value = True Then 
Cells.Find(what:=strfind, after:=ActiveCell, LookIn:=xlValues, Lookat:=xlPart, _ 
    searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False, searchformat:=False).Activate 
If opt2.Value = True Then 
Cells.Find(what:=strfind, after:=ActiveCell, LookIn:=xlValues, Lookat:=xlPart, _ 
    searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False, searchformat:=False).Activate 



End If 
'Range("A1:H100").Select 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"C:\Desktop\Obs Diary Report week starting " & strFilename & ".pdf", Quality:= _ 
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ 
     OpenAfterPublish:=True 
End Sub 

おかげで、

クリスチャン

Answer 1

あなたのデータに働くだろう何を言うが、あなたがする必要があるすべてはFindをループでするのは難しいです今日の日付に到達するか何かを見つけるまで、毎回1つずつ検索する日付をインクリメントします。ここで

は、あなたのニーズに適応することができます例です。

Option Explicit 
Sub OneWeekAgo() 
    Dim dtEarliest As Date 
    Dim WS As Worksheet 
    Dim R As Range 

Set WS = ActiveSheet 
dtEarliest = Date - 7 

With WS.Cells 
    Do Until Not R Is Nothing 
     Set R = .Find(dtEarliest) 
      dtEarliest = dtEarliest + 1 
      If dtEarliest > Date Then 
       Debug.Print "No Dates in Last Week" 
       Exit Sub 
      End If 
    Loop 
End With 

If Not R Is Nothing Then 
    Debug.Print R.Address, R.Text 
End If 

End Sub