Hoe een afteltimer in Excel invoegen?

Als u bepaalde gegevens in een beperkte tijd wilt verwerken, kunt u een afteltimer in uw gegevenswerkblad invoegen en wanneer het aftellen klaar is, zal er een pop-upvenster verschijnen om u eraan te herinneren. Hier zal ik je een VBA-code vertellen om een ​​afteltimer in Excel in te voegen.

Voeg een afteltimer in Excel in

Voeg een afteltimer in Excel in

In Excel kan het de tijd niet aftellen, maar u kunt de volgende VBA-code kopiëren om de tijd te helpen aftellen.

1. Selecteer een cel en maak deze op als tijdopmaak door met de rechtermuisknop op de cel te klikken en te selecteren Cellen opmakenen klik vervolgens in het dialoogvenster op Tijd en selecteren 13:30:55 in de Type lijst, eindelijk klikken OK om dit dialoogvenster te verlaten. Zie screenshot:

2. Typ de tijd die u wilt aftellen in de opmaakcel. Zie screenshot:

3. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

4. klikken Invoegen > Module en kopieer vervolgens de volgende VBA naar het nieuwe venster.

VBA: afteltimer.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Tip: E1 in de bovenstaande code geeft de tijdcel aan die u in stap 2 typt.

5. klikken lopen knop of druk op F5 om de afteltimer uit te voeren. Nu wordt de tijd afgeteld.

6. En wanneer het aftellen klaar is, zal een pop-out dialoog u eraan herinneren.

Tip: U kunt het aftellen niet stoppen terwijl het wordt uitgevoerd, behalve het sluiten van de werkmap.