Question

我希望在excel中使用VBA制作一个倒数计时器，它使用一个消息框，并以200的增量递减5。有关如何做到这一点的任何想法？到目前为止，我有以下内容，但我无法弄清楚如何在5中倒计时：

Public Sub ShowCountDown()
    Dim Timerbox As Object: Set Timerbox = CreateObject("WScript.Shell")
    Dim strCnt As String

    For i = 0 To 199
        strCnt = 200 - (4 + i)
        Timerbox.Popup strCnt, 1, "CountDown", vbOKOnly
    Next i

    MsgBox "Time is up", vbExclamation

End Sub

Answer 1

您当前的代码只需一步即可从196到-3。

我无法弄清楚如何倒计时5

您可以使用Step声明中的For子句：

For i = 200 To 0 Step -5
    Timerbox.Popup i, 1, "CountDown", vbOKOnly
Next i

excel中的倒数计时器使用VBA

1 个答案: