导入系统时间，判断与A列时间是否相同时出错。

marmot777

A列是一列时间数据。导入系统时间，当系统时间与A列时间相同时，打印“YES”。偶尔遇到时间相同时但不打印“YES”的情况，这是什么原因？代码如下：


Sub 在立即窗口打印()
Do
t = Time
For i = 1 To Range("A1").End(xlDown).Row
If Range("a" & i) = t Then Debug.Print "YES"
Next
    DoEvents
Loop
End Sub

ykcbf1100

建议上传附件。

ynzsvt

因为时间秒后还有毫秒，就难碰巧了。
建议时间转换成相同格式的时分秒字符串后比较。

marmot777

ykcbf1100 发表于 2024-7-28 20:42
建议上传附件。

传了。我把“yes”改成A列里面的时间了，这样看的更明白。

marmot777

ynzsvt 发表于 2024-7-28 21:07
因为时间秒后还有毫秒，就难碰巧了。
建议时间转换成相同格式的时分秒字符串后比较。

你说t=time以后，t里面含有毫秒？

ykcbf1100

marmot777 发表于 2024-7-28 21:10
你说t=time以后，t里面含有毫秒？

类型改成一样就能比较了

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.8.28
   
2.     t = Time
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 1 To r
   
5.         s = CDate(Cells(i, 1))
   
6.         If s = t Then
   
7.             Cells(i, 4) = "Yes"
   
8.         End If
   
9.     Next
   
10.     MsgBox "OK！"
    
11. End Sub
    

复制代码

ynzsvt

1. Sub 在立即窗口打印()
   
2. Dim t As Date
   
3. Do
   
4.   t = Time
   
5.   ts = Format(t, "hh:mm:ss")
   
6.   For i = 1 To Range("A1").End(xlDown).Row
   
7.    If Range("a" & i).Text = ts Then Range("B" & i) = t ': Debug.Print "YES"
   
8.   Next
   
9. '  Debug.Print t
   
10.   DoEvents
    
11. Loop
    
12. End Sub

复制代码

marmot777

ynzsvt 发表于 2024-7-28 21:32

这两种类型的数据能作对比吗？

ynzsvt

marmot777 发表于 2024-7-29 18:22
这两种类型的数据能作对比吗？

我用的是text属性，不是value属性。都是文本进行比较，结果是没一个跳过去的。