使用預定日期從數據庫中檢索數據的VBA編碼

Question

我對VBA編碼非常陌生，並試圖找到特定任務的代碼。我有一個數據庫（「衛生」）與日期列。數據庫在表格「衛生日程表」上。我創建了一個表單來設置所需的開始和結束日期，並將它們複製到表單「衛生表格」的單元格A2（開始日期）和A3（結束日期）上。我想在預定的開始日期和結束日期之間選擇我的數據庫的行，將這些行復制到另一個表格「衛生表格」。這聽起來可能是非常基本的編碼，但它是我的知識。感謝您的幫助。

Answer 1

您可以使用.Find

Dim StartDate As Date 
StartDate = ThisWorkbook.Worksheets("Sanitation Form").Range("A2").value 
Dim EndDate As Date 
EndDate = ThisWorkbook.Worksheets("Sanitation Form").Range("A3").value 

Startrow = ThisWorkbook.Worksheets("Sanitation").Cells.Find(Format(StartDate, "d-mmm-yy"), ThisWorkbook.Worksheets("Sanitation").Range("A1"), xlValues, xlPart, xlByColumns, xlNext, False, False).Row 
Endrow = ThisWorkbook.Worksheets("Sanitation").Cells.Find(Format(EndDate, "d-mmm-yy"), ThisWorkbook.Worksheets("Sanitation").Range("A1"), xlValues, xlPart, xlByColumns, xlNext, False, False).Row 

然後在

之間