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

marmot777

ynzsvt 发表于 2024-7-29 18:31
我用的是text属性，不是value属性。都是文本进行比较，结果是没一个跳过去的。

我改成text以后，应该是好使了。

marmot777

ynzsvt 发表于 2024-7-29 18:31
我用的是text属性，不是value属性。都是文本进行比较，结果是没一个跳过去的。

测试还是不好使。测试开始以后，前一段数据当时还可以，后面又出问题了。

这是代码：

For i = 1 To Range("A1").End(xlDown).Row
If Range("a" & i).Text = Format(t, "hh:mm:ss") Then txtBox.TextFrame2.TextRange.Text = Range("b" & i)
If Range("a" & i).Text = Format(t, "hh:mm:ss") Then txtbox1.TextFrame2.TextRange.Text = Range("c" & i)
If Range("a" & i).Text = Format(t, "hh:mm:ss") Then Beep

我在后面截取了一段，这是结果：352.353.断.355.356.断.367.368.369.断.372.373.断.375
中间还是有断开的。什么原因呢？

ynzsvt

上千的数据进行比较？代码来不及干活的。

marmot777

ynzsvt 发表于 2024-8-4 10:55
上千的数据进行比较？代码来不及干活的。

那有什么办法解决这个问题吗？你说的上千数据指的是哪个数据上千？A列里面没有那么多数据啊。

ynzsvt

marmot777 发表于 2024-8-4 11:06
那有什么办法解决这个问题吗？你说的上千数据指的是哪个数据上千？A列里面没有那么多数据啊。

数据有序的话，可以考虑二分法，无序的话，可以考虑字典。

marmot777

ykcbf1100 发表于 2024-7-28 21:24
参与一下。。。

帮忙看一下。

测试的时候还是有显示数据中断，问题出在哪？有什么办法可以解决？我传了文件，和测试结果。

ynzsvt

1. Sub 显示成交()
   
2. Dim t As Date, t1 As Date
   
3. Dim txtBox As Shape
   
4. Dim txtbox1 As Shape
   
5. 
   
6. Dim Shp As Shape
   
7. For Each Shp In ActiveSheet.Shapes
   
8.   Shp.Delete
   
9. Next Shp
   
10. ' 添加文本框
    
11. Set txtBox = ActiveSheet.Shapes.AddTextbox( _
    
12.    msoTextOrientationHorizontal, _
    
13.    Left:=200, Top:=1, Width:=370, Height:=170)
    
14. ' 设置文本框的字体大小
    
15. txtBox.TextFrame2.TextRange.Font.Size = 48
    
16. ' 设置文本框背景颜色
    
17. txtBox.Fill.ForeColor.RGB = RGB(255, 255, 160)
    
18. txtBox.Fill.Visible = msoTrue
    
19. ' 设置文本框字体加粗
    
20. txtBox.TextFrame2.TextRange.Font.Bold = msoTrue
    
21. 
    
22. ' 添加文本框1
    
23. Set txtbox1 = ActiveSheet.Shapes.AddTextbox( _
    
24.    msoTextOrientationHorizontal, _
    
25.    Left:=200, Top:=170, Width:=370, Height:=70)
    
26. ' 设置文本框1的字体大小
    
27. txtbox1.TextFrame2.TextRange.Font.Size = 48
    
28. ' 设置文本框1背景颜色
    
29. txtbox1.Fill.ForeColor.RGB = RGB(255, 255, 160)
    
30. txtbox1.Fill.Visible = msoTrue
    
31. ' 设置文本框1字体加粗
    
32. txtbox1.TextFrame2.TextRange.Font.Bold = msoTrue
    
33. 
    
34. t1 = #9:04:55 PM# - Time
    
35. Do
    
36.   t = Time + t1 ' 获取时间
    
37. 
    
38.   For i = 1 To Range("A1").End(xlDown).Row
    
39.    If Range("a" & i).Text = Format(t, "hh:mm:ss") Then txtBox.TextFrame2.TextRange.Text = Range("b" & i)
    
40.    '   If Range("a" & i).Text = Format(t, "hh:mm:ss") Then Beep
    
41.   Next
    
42.   DoEvents
    
43. Loop
    
44. End Sub

复制代码

ynzsvt

图片等移至循环前。

marmot777

ynzsvt 发表于 2024-8-4 13:36
图片等移至循环前。

谢谢你帮我改的这个代码。
我还是想弄明白原来那段代码问题出在哪了，因为数据根本不多，文件的行数一共就396行，vba也不能连这点运算能力也达不到吧。如果说真是因为运算能力达不到，那我每一秒钟加载一次时间行不行？

ynzsvt

你原来代码，加文本框提示时间的节点的，在循环之中，每次循环添加一次，很快就会有成千上万的叠在一块了。
所以我将它们放在循环之前了，并提前删除原有的图片。