我有一个 Excel 表,其中包含日期、时间和其他一些数字等数据。
我想要做的是创建一个宏,它会选择属于某个时间范围内的所有数据。
例如,我将有一个变量start_time = 8 AM
和end_time = 10 AM
.
因此,我需要选择该时间范围内的所有列。
strdate = Application.InputBox(Prompt:="Enter a Date to Locate on This Worksheet", _
Title:="DATE FIND", Default:=Format(Date, "Short Date"), Type:=1)
If strdate = "False" Then Exit Sub
strdate = Format(strdate, "Short Date")
On Error Resume Next
Set rCell = Cells.Find(What:=CDate(strdate), After:=Range("A1"), LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
On Error GoTo 0
同样获取第二个日期的下一个范围并将范围设置为变量和 RANGE.SELECT