Makro der indsætter dato og tid

Brugerhjælp og support til regneark i LibreOffice Calc

Redaktør: Lodahl

Besvar
Tolsen
Indlæg: 4
Tilmeldt: 17. dec 2010 11:48

Makro der indsætter dato og tid

Indlæg af Tolsen » 23. okt 2011 16:57

Hej
Jeg har brug for, i et regneark, at indsætte dags dato og tid flere gange i løbet af dagen, jeg har prøvet med NU() men så snart regnearket bliver opdateret skiftes dato to tid ud til det aktuelle hvilket ikke er det jeg ønsker, regnearket skal bruges til at holde styr på tidspunkter for telefonopkald, derfor vil det være smart hvis jeg via en genvej kunne oprette dato og tid lige nu der ikke ændre sig.

Brugeravatar
Lodahl
Indlæg: 1960
Tilmeldt: 14. sep 2005 08:27
Geografisk sted: Storkøbenhavn
Kontakt:

Indlæg af Lodahl » 23. okt 2011 18:48

Indsæt dato:

Kode: Vælg alt

Sub DateNow
Dim here As Object
here =ThisComponent.CurrentSelection
here.setValue(DateValue (Now ))
here.NumberFormat =75
End sub
Indsæt tid:

Kode: Vælg alt

Sub TimeNow
Dim here As Object
here=ThisComponent.CurrentSelection
here.setValue (TimeValue (Now ))
here.NumberFormat =41
End sub
Hvis du vil lave det med dato og tid skal du ændre NumberFormat: http://api.libreoffice.org/docs/common/ ... ormat.html
Med venlig hilsen

Leif Lodahl
Blog: https://libreofficedk.blogspot.dk
LibreOffice: http://da.libreoffice.org

Jens S
Indlæg: 1091
Tilmeldt: 25. mar 2007 22:42

Indlæg af Jens S » 23. okt 2011 18:49

Hej
Det nemmeste er at hente tilføjelsen 'DateTime2.oxt' , men da siderne med tilføjelser til OOo ikke virker ordentlig, kan du hente den her http://dl.dropbox.com/u/2601866/DateTime2.oxt
Dobbeltklik på filen og den vil aut. installere sig på dit system. Du skal vælge at installere den for dig personlig, ellers vil den blive placeret und er OpenOffice-makroer, og du kan ikke rette i den.
Når den er installeret finder du den under 'Mine makroer' (brug Alt+F11)- gå til modulet 'DateTime2_func' og ret i toppen af modulet, så det kommer til at se sådan ud og passer til danske instillinger:

Kode: Vælg alt

public Const  MYDATEFORMAT = "DD-MM-YY"
' public Const  MYDATEFORMAT = "TT-MM-JJJJ"
' Const MYDATEFORMAT = "YYYY-MM-DD"
public Const MYTIMEFORMAT = "TT:MM"

' V2
' Format eines Zeitstempels
' Const MYTIMESTAMPFORMAT = "YYYY-MM-DD HH:MM"
public Const MYTIMESTAMPFORMAT = "YYYY-MM-DD TT:MM"
Så går du tilbage til regnearket og vælger Funktioner-Tilpas-Tastatur. Nederst til venstre 'Kategori' går du til OpenOffice-makroer-User-Datime2-DateTime2 og markerer 'Zeitstempel_Feld' . Vælg nu en ledig tastekombination ovenfor og klik derefter på tasten 'Modificer'

Nå du nu vælger en celle og bruger den valgte tastekombination, får en datotidsstempel i cellen.
Du kan på samme måde vælge genvejstaster for 'Datum_Feld' (giver kun datoen) og 'Zeit_feld' (giver klokkeslet)

mvh
Jens

Tolsen
Indlæg: 4
Tilmeldt: 17. dec 2010 11:48

Indlæg af Tolsen » 23. okt 2011 19:44

Tusinde tak for hjælpen, det virker fint :D

Besvar

Hvem er online

Brugere der viser dette forum: Ingen og 2 gæster