Note: The other languages of the website are Google-translated. Back to English

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

Tabblad Office Bewerking en browsen met tabbladen in Office inschakelen en uw werk veel gemakkelijker maken ...
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
  • Hergebruik alles: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en gebruik ze in de toekomst snel opnieuw.
  • Meer dan 20 tekstfuncties: Nummer uit tekststring halen; Extract of verwijder een deel van teksten; Converteer cijfers en valuta's naar Engelse woorden.
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Voeg dubbele rijen en som samen.
  • Hulpmiddelen splitsen: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
  • Superfilter: Maak geavanceerde filterschema's en pas deze toe op elk blad Sorteer per week, dag, frequentie en meer; Filteren door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.

pijl blauw rechts bel 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 Time en selecteren 13: 30: 55 functie in het Type lijst, eindelijk klikken OK om dit dialoogvenster te verlaten. Zie screenshot:

doc-countdown-timer-1
doc-pijl
doc-countdown-timer-2

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

doc-countdown-timer-5

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.

doc-countdown-timer-3

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

doc-countdown-timer-4

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


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (13)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo, hoe kunnen we dat gebruiken voor meer dan 1 aftelling in hetzelfde blad?
Deze opmerking is gemaakt door de moderator op de site
hallo, hoe kan ik aftellen voor meer dan 1 waarde?
Deze opmerking is gemaakt door de moderator op de site
Dit verklaarde niet hoe de timer start, start deze zodra je het blad opent? Ik ben aan het kijken of wanneer ik een waarde van 100 toevoeg om cel "A1" te zeggen, een afteltimer start op cel "G2" (misschien knipperen of rood worden de laatste 30 seconden om urgentie aan te geven) en ik wil dat deze stopt wanneer ik voer een waarde in een reeks cellen in (B2:C57) of als er geen waarde is ingevoerd in die cellen, stop het door opnieuw op cel "A1" te klikken of door rechts te klikken op het aftellen op cel "G2", zou ik ook graag de resultaten krijgen over hoe lang het duurde om een ​​waarde in te voeren in de bereikcellen B2:C57 met behulp van het verschil tussen de starttijd en de stoptijd in een cel die overeenkomt met de bereikcellen, zoals D2. Ik weet niet zeker of dit allemaal logisch is, maar ik zou er graag wat hulp bij willen hebben. Het idee is dat wanneer iemand een gesprek aanneemt, het bedrag op de rekening wordt genoteerd en het aftellen begint, zodat ze weten hoe lang ze in gesprek zijn. Als ze een betaling aannemen van het bedrag op de rekening, zouden ze het toevoegen aan een andere cel en het blad zal dan toevoegen hoe lang het duurde om die betaling in nog een andere cel te krijgen en het proces zal elke keer dat ze een nieuwe oproep. Maar slechts één cel zou het proces elke keer starten. Ik heb al een VBA die de gebruikersnaam invoert en wanneer het blad vol is, kunnen ze op een verzendknop klikken en het zal het naar mij e-mailen met een onderwerp en datum en alle gegevens verwijderen zodat ze de volgende dag opnieuw kunnen beginnen. Ik zou graag het bovenstaande recht toevoegen aan deze bestaande VBA, indien mogelijk, op die manier hoef ik geen andere module toe te voegen. Kan iemand mij hiermee helpen, stap voor stap op weg? Mijn VBA- of andere programmavaardigheden zijn zeer beperkt.
Deze opmerking is gemaakt door de moderator op de site
Hallo Jose, ik heb gemerkt dat de auteur niet op je opmerking heeft gereageerd, ik heb onlangs zijn bericht ontdekt en dacht dat ik je zou helpen als je het nog steeds nodig hebt. Om de timer te activeren, moet je de subprocedure aanroepen, dus laten we aannemen dat je een sub in je werkblad hebt die controleert op eventuele wijzigingen in cel A1, bijvoorbeeld:



Sub Worksheet_Change (ByVal-doel als bereik)


Dim rInt As Range: Stel rInt = Intersect (Target, Range ("A1")) in


Als niet rInt niets is, dan


Bij fout GoTo Err:
Dim i As Integer: i = Me.Bereik ("A1"). Waarde


Indien niet IsEmpty(vCell) Dan
Call Timer <<< Hier roep je de timer op
End If


End If
Exit Sub
fout:
MsgBox "Alleen Integer"
End Sub



De subprocedure "Timer" wordt gebruikt om de gebeurtenis in te stellen, we willen dat dit in de toekomst elke seconde wordt uitgevoerd. Daarom gebruiken we nu + TimeValue ("1:00:00"), als u de timer wilt bijwerken elke twee seconden of elke minuut in je cel, pas je de TimeValue dienovereenkomstig aan.


De subprocedure "ResetTime" is waar we al het zware werk doen, in deze subprocedure, als u de kleur van de timer in rood wilt veranderen, zodra deze 30 seconden bereikt, kunt u dit doen door een eenvoudige if-instructie toe te voegen, net als degene die al bestaat binnen de procedure.


Als xRng.Waarde <= 30 Dan
xRng.Font.Color = vbRed
End If
Deze opmerking is gemaakt door de moderator op de site
U moet de subprocedure "Timer" aanroepen, dit wordt meestal gedaan door deze binnen een andere sub/functie aan te roepen als u wilt dat het aftellen begint nadat u een waarde in cel "A1" hebt ingevoerd en stopt wanneer u gegevens in een ander bereik invoert, dan moet je luisteren naar een wijziging in die cellen en een boolean maken voor de Timer-subprocedure, zodat deze weet wanneer hij moet stoppen. Maak hiervoor een "Worksheet_Change"-subprocedure aan, deze zal naar het werkblad luisteren voor eventuele wijzigingen, we maak vervolgens een witte lijst met bereiken die onze code zullen uitvoeren.


Sub Worksheet_Change (ByVal-doel als bereik)

'Booleaanse standaardwaarde'
Dim TimerActive As Boolean: TimerActive = True

'Dit is waar we de Timer aanroepen en onze waarde in G2 krijgen'
Als niet snijden (doel, bereik ("A1")) is niets dan

Als IsEmpty(Target) Dan TimerActive = False: Exit Sub

Bij fout GoTo Errr:

Dim i als geheel getal: i = doel

Me.Bereik ("G2"). Waarde = i

Oproep timer

ElseIf Not Intersect(Target, Range("B2:C57")) is dan niets

TimerActief = False

Als IsEmpty (Target) is, verlaat dan Sub

'Voeg hier meer code toe indien nodig

End If

'Foutverwerking'
Exit Sub
errr:
MsgBox "A1 moet een geheel getal zijn"

End Sub

Ik heb ook de mogelijkheid opgenomen om de waarde in A1 te verwijderen, wat ook het aftellen zal stoppen, nu, in de "Timer"-subprocedure, maak aan het begin een if-statement om te controleren of onze boolean "TimerActive" gelijk is aan False, als het doet, dan moeten we Sub afsluiten. Om de kleur van de timers te wijzigen tijdens het aftellen, moet u de subprocedure "ResetTimer" bewerken en een if-statement toevoegen, vergelijkbaar met het al bestaande, "If xRng <= 30", binnen dat statement voegen we de kleur toe die we als u "xRng.Font.Color = vbRed" wilt gebruiken, kunt u de kleur ook wijzigen met "xRng.Font.Color = RGB(0,0,0)", doe hetzelfde in de "Timer"-procedure om de kleur opnieuw in te stellen, doe dit vóór het booleaanse if-statement, zodat de kleur altijd terugkeert naar de standaardwaarde, zelfs als deze handmatig wordt gestopt.
Deze opmerking is gemaakt door de moderator op de site
Om de timer te stoppen wanneer u waarden in bepaalde cellen invoert, gebruikt u "Worksheet_Change", voegt u gewoon het bereik toe waarnaar u wilt luisteren, u moet ook een globale boolean maken, zodat wanneer u iets binnen een celbereik wijzigt, het zou deze boolean op false zetten, dus de volgende keer dat het in de subprocedure "Time" springt, zou het in plaats daarvan controleren of de boolean false is, als u "If TimerActive = False Then Exit Sub" toevoegt aan het begin van de "Timer" sub, zal het afsluiten als die boolean false retourneert.




Dan wil je in "Worksheet_Change" "TimerActive = True" aan het begin van de code toevoegen, en iets als de volgende code overal.

Indien niet snijden (doel, bereik ("B2:C57")) is dan niets
TimerActief = False
End If
Deze opmerking is gemaakt door de moderator op de site
GOEDE DAG JONGENS
Ik moet een timer op mijn Excel-blad maken in de vorm dat het wordt afgeteld tot een bepaalde, bijvoorbeeld 45 dagen om de 5 dagen, het geeft een herinnering op het blad met een specifieke kleur voor elk aftellen. ik heb het zo snel mogelijk nodig.
Deze opmerking is gemaakt door de moderator op de site
ik wil ongeveer 100 downtime-metingen naar mijn Excel-blad krijgen. Help me alstublieft. onmogelijk om de codes voor het i2c-circuit te schrijven. ik wil geen led-display. help me alsjeblieft
Deze opmerking is gemaakt door de moderator op de site
hallo de timer loopt nu. het probleem is dat het automatisch stopt bij het gebruik van andere werkmappen. hoe kan ik het draaiende houden?
Deze opmerking is gemaakt door de moderator op de site
Er is geen enkele oplossing voor het oplossen van problemen met het oog op de valor. Is het een kwestie van trabajar en excel, para que quiero un cronómetro y paraquesirve el boton parar? Gracias
Deze opmerking is gemaakt door de moderator op de site
Hola, tengo un problema con esta programación en donde el temporizador avanza en 2 segundos y no 1, que puedo hacer??
Deze opmerking is gemaakt door de moderator op de site
Na het uitvoeren van de code geeft het een fout online

xRng.Value = xRng.Value - TimeSerial(0, 0, 5)

Runtime-fout '1004':
Toepassingsgedefinieerde of objectgedefinieerde fout
Deze opmerking is gemaakt door de moderator op de site
Hallo, MAB, zorg ervoor dat de celverwijzing in code Bereik ("E1") moet hetzelfde zijn als de celverwijzing die de tijd heeft ingevoerd. Zie de screenshot, de cel A1 bevat tijd, maar in de code is B1, dan verschijnt de fout.
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties