单元格内容自动循环切换

dmx123

哪位大神看看能不能写一个代码或者函数，带一个启动按钮，按下启动后能够实现某一个固定的单元格自动在数字1,2,3之间循环切换， 类似ppt中的自动播放一样的效果

liulang0808

楼主可以考虑下ontime间隔最少是1秒的

dmx123

我是小白，不太明白何为ontime间隔1秒，是不是自动切换的时间间隔，如果是的话时间间隔可以是1秒，3秒或者5秒都可以

dmx123

我在网上查了一段代码，能不能帮我看看能不能实现单元格自动在1-3之间切换？
Sub demo1()
    With Range("A1")
        Select Case .Value
        Case "1"
            .Value = "2"
        Case "2"
            .Value = "3"
        Case "3"
            .Value = "1"
        End Select
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

tanglf188

请参考。。。。。。。。。。

xunanming

练习一下---------------------

dmx123

xunanming 发表于 2023-5-18 18:46
练习一下---------------------

非常感谢，我先试试看

dmx123

tanglf188 发表于 2023-5-18 15:52
请参考。。。。。。。。。。

非常感谢帮助，收下马上试试看

dmx123

tanglf188 发表于 2023-5-18 15:52
请参考。。。。。。。。。。

谢谢大神，试过了，非常强大！ 有两个小问题再请教一下，第一次点过启动按钮后，按钮的中文字体就变成乱码这个是什么问题 ？ 还有一个问题就是目前的切换的间隔时间很快，可以做调整吗？

tangdeng520

是这个意思吗