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

然后复制

之间的行

VBA编码使用预定日期从数据库检索数据

1 个答案: