Fejlmeddelelse ved kørsel af Makro

Brugerhjælp og support til makroer i LibreOffice Basic

Redaktører: Lodahl, LarsBrandi

Besvar
hbay57
Indlæg: 4
Tilmeldt: 7. okt 2012 17:05

Fejlmeddelelse ved kørsel af Makro

Indlæg af hbay57 » 16. jan 2013 13:33

Jeg forsøger at få hul på makroprogrammering ved at læse tutorials, fora etc. Jeg har lavet utallige forsøg med at køre eksempler, men støder ofte på fejlmeddelelsen "Basic kørselsfejl - Egenskab eller metode ikke fundet ..." - senest ved brug af .setvalue i denne lille makro som jeg kopierede fra et indlæg på dette forum:
"Sub DateNow
Dim here As Object
here =ThisComponent.CurrentSelection
here.setValue(DateValue (Now ))
here.NumberFormat =75
End sub"

Mangler jeg en add-in eller lignende for at kunne bruge .setValue, .updateValue etc?

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

Indlæg af Jens S » 16. jan 2013 15:01

Jeg kan ikke se fejl i din makro og den virker også upåklagelig her og giver '16. jan 2013' uden anførselstegn i valgte celle. Hvis flere celler er markeret får jeg fejlen.

Denne makro giver ikke fejl, selvom du markerer flere celler:

Kode: Vælg alt

'Copyright 2011 Gustavo Buzzatti Pacheco - gbpacheco@gmail.com
'Licensed under the GNU LGPL 


Sub Dato
   Dim aLocal As New com.sun.star.lang.Locale
   oCell = ThisComponent.getCurrentSelection().getRangeAddress()
   oSheet =  ThisComponent.getSheets().getByIndex(oCell.Sheet)
   n%=ThisComponent.getNumberFormats().getStandardFormat(com.sun.star.util.NumberFormat.DATE, aLocal)
   oSheet.getCellByPosition(oCell.StartColumn,oCell.StartRow).NumberFormat = n%
   oSheet.getCellByPosition(oCell.StartColumn,oCell.StartRow).Value =  Date(now)
End Sub


Sub Tid
   Dim aLocal As New com.sun.star.lang.Locale
   oCell = ThisComponent.getCurrentSelection().getRangeAddress()
   oSheet =  ThisComponent.getSheets().getByIndex(oCell.Sheet)
   n%=ThisComponent.getNumberFormats().getStandardFormat(com.sun.star.util.NumberFormat.TIME, aLocal)
   oSheet.getCellByPosition(oCell.StartColumn,oCell.StartRow).NumberFormat = n%
   oSheet.getCellByPosition(oCell.StartColumn,oCell.StartRow).Value = now
End Sub 
mvh
Jens

hbay57
Indlæg: 4
Tilmeldt: 7. okt 2012 17:05

Indlæg af hbay57 » 16. jan 2013 15:31

Ja, du har ret - jeg kørte den fra et Writer dokument, og der virkede den ikke. Men i et Calc dokument virkede den.

Skal jeg oprette et nyt indlæg med de andre fejlmeddelelser, jeg er stødt på?

Besvar

Hvem er online

Brugere der viser dette forum: Ingen og 1 gæst