Page 1 of 1
Makro der indsætter dato og tid
Posted: 23. Oct 2011 16:57
by Tolsen
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.
Posted: 23. Oct 2011 18:48
by Lodahl
Indsæt dato:
Code: Select all
Sub DateNow
Dim here As Object
here =ThisComponent.CurrentSelection
here.setValue(DateValue (Now ))
here.NumberFormat =75
End sub
Indsæt tid:
Code: Select all
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
Posted: 23. Oct 2011 18:49
by Jens S
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:
Code: Select all
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
Posted: 23. Oct 2011 19:44
by Tolsen
Tusinde tak for hjælpen, det virker fint
