[已解决]查找分时时间所在的行

642070295

麻烦大师们帮看一下附件中的代码，如何查找分时时间所在的行？ shijian.rar (16.01 KB, 下载次数: 8)

2014-7-9 09:55 上传

点击文件名下载附件 先谢了！（有点小错误：请将代码中的6：50时间改为16：50。不好意思，谢谢了）

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2014-7-9 10:28

642070295 发表于 2014-7-9 10:21
比如：找出附件sheet1表range("a:a")中小于等于16：50的最大值所在的行（即附件中的代码运行后msgbox应该 ...

=LOOKUP(B1,A1:A14,ROW(1:14))
=MATCH(B1,A:A)
在B1中输入查询时间



如果用VBA，建议不要调用工作表函数
Sub test()
        Dim t As Date
        t = "16:50"
        For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
                If Cells(x, 1) > t Then
                        MsgBox x - 1
                        Exit For
                End If
        Next
End Sub

跳转到最佳答案楼层

baksy

"分时时间所在的行"是指什么？举个例子。

642070295

baksy 发表于 2014-7-9 10:04
"分时时间所在的行"是指什么？举个例子。

比如：找出附件sheet1表range("a:a")中小于等于16：50的最大值所在的行（即附件中的代码运行后msgbox应该显示8），怎么修改代码呢？

JLxiangwei

642070295 发表于 2014-7-9 10:21
比如：找出附件sheet1表range("a:a")中小于等于16：50的最大值所在的行（即附件中的代码运行后msgbox应该 ...

=LOOKUP(B1,A1:A14,ROW(1:14))
=MATCH(B1,A:A)
在B1中输入查询时间



如果用VBA，建议不要调用工作表函数
Sub test()
        Dim t As Date
        t = "16:50"
        For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
                If Cells(x, 1) > t Then
                        MsgBox x - 1
                        Exit For
                End If
        Next
End Sub