Computertotaal » Cursussen » Excel: Hoe laat is het?

Excel: Hoe laat is het?

Filip Leys - 12 februari 2008, 18:24

We zoeken een snelle manier om binnen Excel de datum van vandaag en de juiste tijd te weten te komen, zonder daarom enkele functies in evenveel cellen te moeten intikken, en daarna terug te wissen. In om het even welke situatie een bepaalde toetscombinatie (bijvoorbeeld Ctrl+Shift+T) gebruiken, zou moeten volstaan. Met een macro is dit kinderspel!

Laten we eerst het skelet bouwen. Of liever: automatisch door Excel laten genereren. We kiezen daarvoor menu Extra / Macro / Nieuwe macro opnemen. In het daarop volgende dialoogvenster aanvaarden we Macro1 als standaard voorgestelde naam of we wijzigen die in het meer betekenisvolle ToonDatumEnTijd. Maar vooral: we tikken de sneltoets T in naast Ctrl+. Omdat de combinatie Ctrl+T reeds bestaat (om naar de controlemodus voor functies om te schakelen), maakt Excel daar vanzelf Ctrl+Shift+T van.

Net vóór het starten van een macro-opname kunnen we er een sneltoets aan toekennen.

Bovendien geven we aan dat de macro niet alleen bewaard moet worden in dit ene werkblad waar we nu toevallig mee bezig zijn. Want dit zou betekenen dat onze speciale toetscombinatie enkel werkzaam zou zijn, als we datzelfde werkblad eerst opnieuw openen. Dat is niet de bedoeling: we wensen later in om het even welke Excel-sessie deze functionaliteit ter beschikking te hebben. Hiertoe zorgen we ervoor dat Persoonlijke Macrowerkmap geselecteerd staat onder Macro opslaan in.

Bevestigen we onze keuzes, dan verschijnt de werkbalk Opname stoppen. Vanaf nu registreert Excel elke actie die we uitvoeren en vertaalt deze naar de overeenstemmende VBA-instructies in een subroutine die ToonDatumEnTijd heet. We onderbreken de opname onmiddellijk, want we hoeven slechts één enkele lijn VBA-code toe te voegen in die subroutine, die we terug vinden in Module1, één van de takken bij de Modules onder VBAProject (Persnlk.xls) in de VBA-editor (Alt+F11).

Eén enkele regel VBA-code en we hebben onze tijd-en-datum-indicator.

In die codelijn maken we een gepast gebruik van de instructie MsgBox (= toon een berichtdialoog), met als eerste parameter het te tonen bericht. Dit doet op zijn beurt een beroep op Format (= geef de tweede vorm aan het eerste argument), Time (= geef de huidige systeemtijd) en Date (= geef de systeemdatum). De tweede parameter zegt dat we een informatiepictogram (vbInformation) en enkel de OK-knop (vbOKOnly) wensen. Helemaal op het einde tenslotte geven we nog de titel Hoe laat is het? aan onze dialoog.

De volledige regel code is (achter elkaar):
MsgBox "Het is nu " & Format(Time, "hh:mm:ss") & " op " & Format(Date, "dd/mm/yyyy"), vbInformation + vbOKOnly, "Hoe laat is het?"