单元格内容自动循环切换

tangdeng520

【附上代码】
Sub 数字定时切换()
    Dim i, t, t1
    t = Timer
    Do
        t1 = Timer
        If t1 - t >= 1 Then '设定间隔
            [E6] = i Mod 3 + 1 '设定显示内容
            i = i + 1
            t = t1
        End If
    Loop Until i >= 10 '设定次数
End Sub

tangdeng520

【带切换按钮的】
Private Sub ToggleButton1_Click()
With ToggleButton1
        If .Value = True Then
                .Caption = "停止"
                Call 数字定时切换
        Else
                .Caption = "启动"
        End If
End With
End Sub

Sub 数字定时切换()
    Dim i, t, t1
    t = Timer
    Do
        t1 = Timer
        If t1 - t >= 1 Then '设定间隔
            [E6] = i Mod 3 + 1 '设定显示内容
            i = i + 1
            t = t1
        End If
        DoEvents
    Loop Until Sheet1.ToggleButton1.Caption = "启动"
End Sub

dmx123

tangdeng520 发表于 2023-5-26 10:50
【附上代码】
Sub 数字定时切换()
    Dim i, t, t1

非常感谢帮助

dmx123

最终还是参考了“tanglf188”做的文件做出了成品用于仓库这边实时动态滚动显示各种物料的库存信息，附件供交流学习。


感谢帮助!