vba中使用find查找带分秒的整点日期值时无法正确匹配

仰望兴叹

最近在试着做一个VBA小工具，使用find函数查找带分秒的时间序列值时，遇到像2018/1/ 00:00:00这样每天0点的整点值时无法匹配（如：Set Rng = Sheet1.Range("a2:a150").find(sheet1.range("a2")) 这样查找这个单元格所在区域都查不到），请各路大神指教。代码如下：详见附件。

1. Sub test()
   
2. Dim Rng As Range, TimeSequence
   
3.     For i = 2 To 11
   
4.     TimeSequence = Sheet1.Cells(i, 3)
   
5.     Set Rng = Sheet1.Range("a2:a150").Find(TimeSequence, lookat:=xlWhole)
   
6.     If Not Rng Is Nothing Then
   
7.         Cells(i, 6) = "√"
   
8.     Else
   
9.         Cells(i, 6) = "×"
   
10.     End If
    
11.     Next i
    
12. End Sub
    

复制代码

仰望兴叹

谁来帮小弟我解一下惑呢...

microyip

试试

1. lookat:=xlWhole

复制代码

改

1. lookat:=xlPart

复制代码

仰望兴叹

microyip 发表于 2018-7-24 12:00
试试

改

哈！好像真的可以啊！
可是问题来啦，如果找不到匹配的，模糊查找会把近似的值取过来，而我需要的是找不到就返回“X”。有没有更好的办法呢？

jiminyanyan

仰望兴叹 发表于 2018-7-24 12:34
哈！好像真的可以啊！
可是问题来啦，如果找不到匹配的，模糊查找会把近似的值取过来，而我需要的是找不 ...

Sub jimin()
    '　ＶＢＡ问题咨询　扣扣　４９４５８５６３９
    Dim arr, d1 As Object, brr(1 To 10000, 1 To 1)
    Set d1 = CreateObject("scripting.dictionary")
    arr = Sheet1.Range("a1:a" & Sheet1.Range("a65535").End(xlUp).Row)
    For i = 2 To UBound(arr)
        d1(arr(i, 1)) = "√"
    Next
    arr = Sheet1.Range("c2:c" & Sheet1.Range("c65535").End(xlUp).Row)
    For i = 1 To UBound(arr)
        If d1.exists(arr(i, 1)) Then
            brr(i, 1) = d1(arr(i, 1))
        Else
            brr(i, 1) = "×"
          End If
    Next
    Sheet1.Range("f2:f10000").ClearContents
    Sheet1.Range("f2").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

Private Sub CommandButton1_Click()
    jimin
    MsgBox "OK"
End Sub

jiminyanyan

。。。。。。

仰望兴叹

jiminyanyan 发表于 2018-7-24 12:56
Sub jimin()
    '　ＶＢＡ问题咨询　扣扣　４９４５８５６３９
    Dim arr, d1 As Object, brr(1 To  ...

多谢！多谢！这个办法应该是可行的。
但是字典的用法太高深啊，一时半会弄不明白，还需要慢慢研究。
我主要目的是学习VBA，好奇find在这里的用法是有局限性呢？还是我使用方法不当？
原谅我的死心眼儿...  还望多指教！

jiminyanyan

仰望兴叹 发表于 2018-7-24 13:33
多谢！多谢！这个办法应该是可行的。
但是字典的用法太高深啊，一时半会弄不明白，还需要慢慢研究。
我 ...

字典不难呀，这年头，不会字典都不好意思说自己懂VBA了。。

duquancai

仰望兴叹 发表于 2018-7-24 13:33
多谢！多谢！这个办法应该是可行的。
但是字典的用法太高深啊，一时半会弄不明白，还需要慢慢研究。
我 ...

死心眼并不赞同！条条大路通罗马，甭管黑猫白猫，能逮住耗子的就是好猫！

仰望兴叹

jiminyanyan 发表于 2018-7-24 21:16
字典不难呀，这年头，不会字典都不好意思说自己懂VBA了。。

嗯嗯，继续学习！