0

我正在用 excel 制作一个简单的游戏，并且我有一个计数计时器，但是每次单击以重新生成一个新游戏时，计时器计数的增量都会增加一。比如打开的时候每秒增加一个，但是我重置游戏的时候，它以二为单位计数，如果我再次重置它，它以三为单位计数。

这是生成新游戏的代码：

Dim Counting As Boolean
Sub New_Game()
'
' New_Game Macro
' Generates a new game
'
' Keyboard Shortcut: Ctrl+n
'
    Call StopTimer
    Range("C6:K14").Select
    Selection.ClearContents
    Range("AM1").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM2").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM3").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM4").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM5").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM6").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM7").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM9").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM10").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM11").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM12").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM13").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM14").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM15").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM16").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM17").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM18").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM19").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AM20").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN1").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN2").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN3").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN4").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN5").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN6").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN7").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN8").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN9").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN10").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN11").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN12").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN13").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN14").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN15").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN16").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN17").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN18").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN19").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AN20").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO1").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO2").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO3").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO4").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO5").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO6").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO7").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO8").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO9").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO10").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO11").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO12").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO13").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO14").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO15").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO16").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO17").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO18").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO19").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AO20").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP1").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP2").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP3").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP4").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP5").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP6").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP7").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP8").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP9").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP10").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP11").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP12").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP13").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP14").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP15").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP16").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP17").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP18").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP19").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP20").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("AP21").Select
    ActiveCell.FormulaR1C1 = "=staticRAND()"
    Range("A1").Select
    Call StartTimer
End Sub
Sub StartTimer()
    Counting = True
    Call Increment
End Sub
Sub StopTimer()
    Counting = False
    Range("AH2") = 0
End Sub
Sub Increment()
    If Counting Then
        Application.OnTime (Now + TimeValue("00:00:01")), "Increment"
        Range("AH2") = Range("AH2") + 1
    End If
End Sub

如果有人需要它来了解正在发生的事情，我可以发送该文件。

谢谢

编辑：更新代码：

Dim Counting As Boolean
Dim earliest As Variant
Sub New_Game()
'
' New_Game Macro
' Generates a new game
'
' Keyboard Shortcut: Ctrl+n
'
    Call StopTimer
    Range("C6:K14").Select
    Selection.ClearContents
    Range("AM1:AP20,AP21").Formula = "=staticRAND()"
    Range("C6").Select
    Call StartTimer
End Sub
Sub StartTimer()
    'Counting = True
    Call Increment
End Sub
Sub StopTimer()
    'Counting = False
    Range("AH2") = 0
    Application.OnTime earliest, "Increment", , False
End Sub
Sub Increment()
    'If Counting Then
        earliest = Now + TimeValue("00:00:01")
        Application.OnTime earliest, "Increment"
        Range("AH2") = Range("AH2") + 1
    'End If
End Sub

现在我收到一个运行时错误：对象'_Application'的方法'OnTime'失败

编辑：

今天早上打开它，它工作得很好。

4

1 回答 1

2

您的 NewGame() 过程调用 StopTimer，然后调用 StartTimer。这一切都会比 1 秒快得多，所以计时器永远不会停止 - 所以你有两个计时器在运行，然后是三个，这就是数字增加的原因。

我相信您需要使用该方法的Schedule参数显式取消以前的计时器OnTime。

expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)

您需要一个全局变量来存储EarliestTime. 这是根据过程的名称和最早的时间取消计时器所必需的：

Dim earliest As Variant

在您的增量过程中，您设置此变量：

earliest = Now + TimeValue("00:00:01")
Application.OnTime earliest, "Increment"

然后，在您的 StopTimer 过程中，您可以取消前一个计时器：

Application.OnTime earliest, "Increment", , False

现在可能不需要您的Counting变量。

于 2013-07-07T13:06:08.737 回答