Kommaautomatik

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Kommaautomatik

Re: Kommaautomatik

von Karolus » Fr, 14.03.2008 15:31

Hallo
Vermutlich ist das schon das was du suchst, allerdings brauchst du kein Währungsformat ? - lösche einfach die Zeilen:
___
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "NumberFormatValue"
args2(0).Value = 106

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args2())
___

Ansonsten kannst du den Code übernehmen:Kapitel: Quellcode ...
und mit einer Tastenkombi verbinden: http://www.ooowiki.de/MakrosMitEinemKlick

Gruß Karo

Kommaautomatik

von electric » Fr, 14.03.2008 14:54

Hallo,

ich möchte gerne, dass OO wie beim Tischrechner vor die letzten zwei Stellen ein Komma setzt und nachher auch damit rechnet.

In einem alten Thread habe ich auch eine Antwort darauf gefunden, die jedoch auf einem Makro basiert.

Nun habe ich leider mit Makros null Erfahrung.

Kann mir das evtl. jemand mit einfachen Worten ;-) erklären??

Vielen Dank!

Frank

P.S.:

Hier ist die o.g. Antwort des alten Forumbeitrages:

Karolus hat geschrieben:Hallo Johannes

Nein du hast nichts übersehen , eine Formatierung einer Zahl mit einem Komma hinter der Hunderterstelle rechnet die Zahl natürlich nicht um, und ist daher eher ungeeignet.

Oder hat jemand eine Idee, wie man sich diesem Thema "progammiertechnisch" nähern könnte?
Ja, da gibt es reichlich Ideen, aber die beruhen alle auf Makroprogrammierung, ergo müsstest du zumindest die Bereitschaft zeigen, diese einzusetzen.

Folgendes Makro schliest eine Eingabe ab, dividiert einen eingegebenen Zahlenwert durch hundert und formatiert auf Eurowährung mit 2 Kommastellen.
Wenn du dies über ->Extras->Anpassen->Tastatur einer Tastenkombi zuweist, hast du eigentlich alles was du dir wünscht.

Code: Alles auswählen

Sub Eurodurchhundert
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args1())

myDoc = thisComponent
mycell= mydoc.getcurrentSelection()
if mycell.value = 0 then dispatcher.executeDispatch(document, ".uno:GoDown", "",0,args1()) : exit sub '^Zeilenumbruch entfernen !!
mycell.value=mycell.value /100

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "NumberFormatValue"
args2(0).Value = 106

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())
end sub
Gruß Karo

Nach oben