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

marmot777

ynzsvt 发表于 2024-8-4 17:25
你原来代码，加文本框提示时间的节点的，在循环之中，每次循环添加一次，很快就会有成千上万的叠在一块了。 ...

那我就不把文本框写在循环里面，只加载一次文本框。我再试试这样好使不？

ynzsvt

为了方便调试，不改本电脑系统时间，修改了t=time句子，你注意。我这改系统时间会死机。

marmot777

ynzsvt 发表于 2024-8-5 05:36
为了方便调试，不改本电脑系统时间，修改了t=time句子，你注意。我这改系统时间会死机。

我把加载文本框写在循环外边，只加载一次，然后测试，还是出问题。那我只有把时间也设置成每秒加载一次。代码如下：


Sub 显示成交()
Dim t As Date
Dim txtBox As Shape
Dim txtbox1 As Shape
' 添加文本框
    Set txtBox = ActiveSheet.Shapes.AddTextbox( _
        msoTextOrientationHorizontal, _
        Left:=1, Top:=1, Width:=370, Height:=170)
    ' 设置文本框的字体大小
        txtBox.TextFrame2.TextRange.Font.Size = 48
    ' 设置文本框背景颜色
   txtBox.Fill.ForeColor.RGB = RGB(255, 255, 160)
   txtBox.Fill.Visible = msoTrue
   ' 设置文本框字体加粗
   txtBox.TextFrame2.TextRange.Font.Bold = msoTrue
   
  ' 添加文本框1
    Set txtbox1 = ActiveSheet.Shapes.AddTextbox( _
        msoTextOrientationHorizontal, _
        Left:=1, Top:=170, Width:=370, Height:=70)
    ' 设置文本框1的字体大小
        txtbox1.TextFrame2.TextRange.Font.Size = 48
    ' 设置文本框1背景颜色
   txtbox1.Fill.ForeColor.RGB = RGB(255, 255, 160)
   txtbox1.Fill.Visible = msoTrue
   ' 设置文本框1字体加粗
   txtbox1.TextFrame2.TextRange.Font.Bold = msoTrue
t = Time
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
g = txtBox.TextFrame2.TextRange.Text
   For c = 1 To Len(g)
   If Mid(g, c, 1) = "成" Then txtBox.TextFrame.Characters(c, 1).Font.Color = RGB(155, 60, 18)
   If Mid(g, c, 1) = "交" Then txtBox.TextFrame.Characters(c, 1).Font.Color = RGB(155, 60, 18)
   If Mid(g, c, 1) = "(" Then txtBox.TextFrame.Characters(c, 1).Font.Color = RGB(155, 60, 18)
   If Mid(g, c, 1) = ")" Then txtBox.TextFrame.Characters(c, 1).Font.Color = RGB(155, 60, 18)
   If Mid(g, c, 1) = "挂" Then txtBox.TextFrame.Characters(c, 1).Font.Color = vbBlue
   If Mid(g, c, 1) = "撤" Then txtBox.TextFrame.Characters(c, 1).Font.Color = RGB(128, 0, 255)
   Next
Next
Application.OnTime t + 1 / 24 / 3600, "显示成交"
End Sub
你看这样写行不？

ynzsvt

on time 还不如原来的循环。
一直的往循环里面增加工作，直到出错，你到底想要干啥。
告诉你成千上万就危险了，一个时循环500和2个时循环250不是差不多一样
循环多可以通过二分法或者字典解决。但是直接罗列的工作多了是无解的。