尝试制作一条在指定时间的不同时间段发生变化的横幅。不同的段是15、20、25分钟。我有一个设置页面，用户可以从组合框中选择细分。然后显示工作流程页面，如下所示：

这是横幅广告在15分钟内应该执行的操作的一个示例（伪代码）：

        When it starts (15 remaining)
            TimeBanner = "Thinking Time"
        After 1 minute (14 remaining) 
            TimeBanner = "Response Time"
        after 10 minutes (3 remaining)
            TimeBanner = "Refine and Improve"
        after 14 minutes(1 remaining) 
            TimeBanner = "Submit"
        after 15 minutes (0 remaining)
            TimeBanner = "Time Up"
       

计时器起作用了，但是横幅没有改变，所以我想也许我只需要添加DoEvents，但是它没有改变

这是代码

Option Explicit

 Public interval As Date
 Sub timer()

     interval = Now + TimeValue("00:00:01")

     If Sheets("VSS").Range("D1").Value = 0 Then Exit Sub
     
    'Show the time elapsed
    Sheets("VSS").Range("D1").Value = Sheets("VSS").Range("D1").Value - TimeValue("00:00:01")
    DoEvents

    Sheets("VSS").Range("E3").Value = TimeBanner(Sheets("ControlData").Range("A7").Value, Minute(Sheets("VSS").Range("D1").Value))
    DoEvents
    
    'Show the Time Banner matching the Elapsed Time
    
   'MsgBox Minute(Sheets("VSS").Range("D1").Value)

   Application.OnTime interval, "timer"
   
   
   DoEvents

 End Sub

 Sub stop_timer()
        'Only allow 'Stop' if the timer has started
        
        Dim iMin As Integer
        iMin = Left(Format(Sheets("VSS").Range("D1").Value, "mm:ss"), 2)
        
        
     'i.e. if the time elapsed DOES NOT equal whatever they chose
     'It means that the timer has started
     
     If iMin <> Sheets("ControlData").Range("A7").Value Then
        Application.OnTime EarliestTime:=interval, Procedure:="timer", Schedule:=False
     End If
 End Sub

Sub reset_timer()
    Sheets("VSS").Range("D1").Value = "00:" & Sheets("ControlData").Range("A7").Value & ":00"
End Sub


Function TimeBanner(iTimeChosen As Integer, iElapsedTime As Integer) As String

Debug.Print "Time chosen: " & iTimeChosen & ", Elapsed " & dtElapsedTime

Select Case iTimeChosen

    Case 25
    
        Select Case iElapsedTime
            Case Is <= 25
                TimeBanner = "Thinking Time"
            Case Is <= 23
                TimeBanner = "Response Time"
            Case Is <= 5
                TimeBanner = "Refine and Improve"
            Case Is <= 1
                TimeBanner = "Submit"
            Case 0
                TimeBanner = "Time Up"
        End Select
        
    Case 20
            Select Case iElapsedTime
            Case Is <= 20
                TimeBanner = "Thinking Time"
            Case Is <= 18
                TimeBanner = "Response Time"
            Case Is <= 4
                TimeBanner = "Refine and Improve"
            Case Is <= 1
                TimeBanner = "Submit"
            Case Is = 0
                TimeBanner = "Time Up"
            End Select
    
    Case 15
            Select Case iElapsedTime
            Case Is <= 15
                TimeBanner = "Thinking Time"
            Case Is <= 14
                TimeBanner = "Response Time"
            Case Is <= 3
                TimeBanner = "Refine and Improve"
            Case Is <= 1
                TimeBanner = "Submit"
            Case Is = 0
                TimeBanner = "Time Up"
            End Select
End Select

End Sub