VB是单线程工作，现在有一个数据自动一定时间增加，加一个滚动字幕，但只能执行一个

杨克敏

EXCEL里面的VB是单线程工作，现在有一个数据，自动在一定时间内增加，另一个是滚动字幕，但现在只能执行一个，想要全部都执行怎么办？

如果执行了start,则滚动自幕就会停，反之，执行了滚动字幕，则start就会停，麻烦高人解决谢谢！
内容如下，文件在附件里，能在附件改好发我最好，QQ：597411084

自动在一定时间内增加设定的数据：


Sub start()

    Dim startTime As Double
    Dim currentTime As Double
    Dim interval As Double
   
    startTime = Timer
    interval = 3.564

    While Range("C19").Value <> 2500
        currentTime = Timer - startTime
        
        If currentTime >= interval Then
            Range("C19").Value = Range("C19").Value + 1
            startTime = startTime + interval
        End If
        
        DoEvents
    Wend

End Sub


滚动自幕如下：

Dim b As Boolean
Sub 按钮1_Click()
    b = True
    str1 = "忙季现场管理目标：全员齐努力，用心践行，现场干净整洁，有条不紊，尽善尽美 。  "
l1:
    If b Then
        [b23] = str1
        For j = 1 To 10000
            DoEvents
        Next j
        str1 = Mid(str1, 2) & Left(str1, 1)
        GoTo l1
    End If
End Sub
Sub 按钮2_Click()
    b = False
End Sub

ww87725244

VBA使用多线程很麻烦，需要调用API函数
你可以看看这里
https://club.excelhome.net/thread-279965-2-1.html

杨克敏

ww87725244 发表于 2024-9-1 16:13
VBA使用多线程很麻烦，需要调用API函数
你可以看看这里
https://club.excelhome.net/thread-279965-2-1.h ...

为什么下面这两个可以同时执行，只是下面的start的参数不太精确，我想要精确到小数点后面1-2位

这个与之前发的代码，数据精确度不一样，只能是整数
Sub start()

    If Range("C19") = 2500 Then
        End
    Else
        Range("C19") = Range("C19") + 1
        Application.OnTime Now() + TimeValue("00:00:03"), procedure:="start"
    End If
End Sub

这个与前面发的一样
Dim b As Boolean
Sub 按钮1_Click()
    b = True
    str1 = "忙季现场管理目标：全员齐努力，用心践行，现场干净整洁，有条不紊，尽善尽美 。  "
l1:
    If b Then
        [b23] = str1
        For j = 1 To 10000
            DoEvents
        Next j
        str1 = Mid(str1, 2) & Left(str1, 1)
        GoTo l1
    End If
End Sub
Sub 按钮2_Click()
    b = False
End Sub

杨克敏

ww87725244 发表于 2024-9-1 16:13
VBA使用多线程很麻烦，需要调用API函数
你可以看看这里
https://club.excelhome.net/thread-279965-2-1.h ...

我不太懂这些，但急用这些，麻烦帮忙看看谢谢！

darklesson

附件都没一个。做个例子来看看，你想干什么

leolee82

Private Declare Function SetTimer Lib "user32" (ByVal iHwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerProc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal iHwnd As Long, ByVal nIDEvent As Long) As Long

杨克敏

darklesson 发表于 2024-9-2 13:13
附件都没一个。做个例子来看看，你想干什么

这里面有两个宏，执行其中一个，另一个就停了，怎么样才能两都要执行，附件附上，感谢！

杨克敏

杨克敏 发表于 2024-9-2 15:38
这里面有两个宏，执行其中一个，另一个就停了，怎么样才能两都要执行，附件附上，感谢！

这个时间可以精确到小数点后两位数

杨克敏

darklesson 发表于 2024-9-2 13:13
附件都没一个。做个例子来看看，你想干什么

再回复一下

前面回复的哪个，两个宏不能同时执行，想解决第一个附件中的问题，因里面的代码可以精确时间到小数点后面两位数，如：3.56秒，这是我想要解决的。

现在再附一个附件，这里面同样有两个宏，为什么可以同时执行，但这里的代码，时间只能是整数 如：00:00:03,还有0.56体现不出来，所以这个不能用

麻烦高手回复一下，我不太懂这些，谢谢了！

darklesson

杨克敏 发表于 2024-9-2 15:48
再回复一下

前面回复的哪个，两个宏不能同时执行，想解决第一个附件中的问题，因里面的代码可以精确时 ...

我以前写的事件管理器模块，通用的，套进去就可以用。模拟的windows事件管理器。