[已解决]求助 vba match里today()的用法

chensir

j = Application.WorksheetFunction.Match(Date, Columns("A"), 0)
是不是 date用法有误，我这里如果用个Range("I11")就可以。
A列是日期行，我想取得当天在日期行所在的位置号

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-3 09:33

'调用工作表函数中的Match方法
Sub test1()
    Dim x
    On Error Resume Next
    x = Application.WorksheetFunction.Match(CLng(Date), Columns("A:A"), 0)
    If Err.Number = 1004 Then x = "没找到"
    Err.Clear
    MsgBox x
End Sub

'Range.Find 方法
Sub test2()
    Dim rng As Range
    Set rng = Range("a:a").Find(Date)
    If rng Is Nothing Then MsgBox "没找到" Else MsgBox rng.Row
End Sub


当然，还可通过循环该区域，通过判断来得到结果。

跳转到最佳答案楼层

爱疯

'调用工作表函数中的Match方法
Sub test1()
    Dim x
    On Error Resume Next
    x = Application.WorksheetFunction.Match(CLng(Date), Columns("A:A"), 0)
    If Err.Number = 1004 Then x = "没找到"
    Err.Clear
    MsgBox x
End Sub

'Range.Find 方法
Sub test2()
    Dim rng As Range
    Set rng = Range("a:a").Find(Date)
    If rng Is Nothing Then MsgBox "没找到" Else MsgBox rng.Row
End Sub


当然，还可通过循环该区域，通过判断来得到结果。