程序运行显示问题

喝酒的毛毛虫

求助：1.VBA在A1单元格显示程序运行的总时长。
2.程序运行过程中A1背景颜色显示红色绿蓝交替色，运行结束显示灰色。

请大神赐教，如果无法实现求其中一种实现即可。非常感谢。

liulang0808

时间显示，可以使用timer简单计算
关于颜色变化，这个可以做，但是视觉上不一定能看出来

WANT-T

代码没有问题，只是加上这两个效果，会大大影响运行效率呢

喝酒的毛毛虫

liulang0808 发表于 2023-3-7 13:43
时间显示，可以使用timer简单计算
关于颜色变化，这个可以做，但是视觉上不一定能看出来

请斑竹详细赐教

liu0wei2008

第1点
开头加
dim t
t = Timer

结束
Sheets("工作表名").[A1]=Format(Timer - t, "0.0")

第2点意义不大
vba基本都会加一句 Application.ScreenUpdating = False 以提升效率
颜色变了也不刷新的

mmwwdd

Sub RunProgram()
    Dim startTime As Double
    Dim endTime As Double
    Dim elapsedTime As Double
    Dim i As Integer
    Dim colorIndex As Integer
   
    ' 记录程序开始时间
    startTime = Timer
   
    ' 程序运行，这里只是一个示例
    For i = 1 To 1000
        ' 模拟程序运行过程
        ' ...
        
        ' 每隔一段时间改变一次背景颜色
        If i Mod 10 = 0 Then
            colorIndex = colorIndex + 1
            If colorIndex > 3 Then colorIndex = 1
            Select Case colorIndex
                Case 1
                    Range("A1").Interior.Color = RGB(255, 0, 0) ' 红色
                Case 2
                    Range("A1").Interior.Color = RGB(0, 255, 0) ' 绿色
                Case 3
                    Range("A1").Interior.Color = RGB(0, 0, 255) ' 蓝色
            End Select
        End If
    Next i
   
    ' 记录程序结束时间
    endTime = Timer
   
    ' 计算程序运行时间
    elapsedTime = endTime - startTime
   
    ' 在 A1 单元格显示程序运行时间
    Range("A1").Value = "程序运行时间：" & elapsedTime & " 秒"
   
    ' 将 A1 背景颜色设置为灰色
    Range("A1").Interior.Color = RGB(192, 192, 192)
End Sub

在这个例子中，我们使用 Timer 函数来记录程序开始时间和结束时间，并计算程序运行时间。程序运行过程中，我们使用 Mod 运算符来控制每隔一段时间改变一次背景颜色，使用 Select Case 语句来实现红绿蓝交替的背景色。在程序运行结束后，我们将 A1 单元格的背景颜色设置为灰色，并在 A1 单元格显示程序运行的总时长。你可以根据需要修改程序运行过程和背景色的设置逻辑。
机器回答

WANT-T

三个颜色，变化的有点慢，两个颜色比较舒服
演示：




附件：
颜色变化演示.rar (19.08 KB, 下载次数: 2)

2023-3-7 15:26 上传

点击文件名下载附件

另：这里乘多少就是多少倍速，自己调吧，想要几个颜色就 mod 几