Fejlmeddelelse ved kørsel af Makro

Brugerhjælp og support til makroer i LibreOffice Basic

Moderators: Lodahl, LarsBrandi

Post Reply
hbay57
Posts: 4
Joined: Sun Oct 07, 2012 16:05

Fejlmeddelelse ved kørsel af Makro

Post by hbay57 » Wed Jan 16, 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
Posts: 1091
Joined: Sun Mar 25, 2007 21:42

Post by Jens S » Wed Jan 16, 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:

Code: Select all

'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
Posts: 4
Joined: Sun Oct 07, 2012 16:05

Post by hbay57 » Wed Jan 16, 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å?

Post Reply

Who is online

Users browsing this forum: No registered users and 2 guests