[EMAIL PROTECTED] ha scritto:
Spett.le OpenOffice Utenti,
Sono un utilizzatore di OpenOffice, attualmente vers 2.2.0, sono in
procinto
di passare definitivamente da MSOffice a OpenOffice, ma ho un
quesito/problema
e spero che si possa risolvere con la nuova versione 2.3.0.
Mi trovo a dover operare una migrazione di tantissimi fogli da Excel a Calc
e
mi sono accorto che mentre in Excel esiste il formato cella "contabilità"
che
impila ed incolonna gli €:
€ 1
€ 10
€ 100
in Calc con il formato valuta ciò non avviene:
€ 1 € 1
€ 10 € 10
€ 100 € 100
Ho guardato anche l'Help ma non ho trovato un codice formato che operi
questa
funzione che secondo me è molto importante sia per i documenti di testo che
per i fogli di calcolo.
Nell'attesa di una Vs risposta, nella speranza che tale mancanza possa
essere
stata risolta con l'ultima versione,
porgo distinti saluti.
Massimiliano Feretti
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
.
non credo sia stato risolto nell'ultima versione
ti conviene anteporre alla cella con importo una cella allineata a sx
con il simbolo euro e togliere eventuali bordi,
eventualmente con una macro associata ad un pulsante.
questo è un esempio di macro creato con il registratore ma sicuramente
si può fare di meglio:
sub Euro
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ColumnWidth"
args1(0).Value = 500
dispatcher.executeDispatch(document, ".uno:ColumnWidth", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value =
"=SE(D1:D10000;"+CHR$(34)+"€"+CHR$(34)+";"+CHR$(34)+CHR$(34)+")"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$C$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "EndCell"
args4(0).Value = "$C$10000"
dispatcher.executeDispatch(document, ".uno:AutoFill", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$C$1:$C$10000"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
end sub
ib
--
Barbato Ivano
Via Gazzo, 12/a
36020 Zovencedo
P.Iva 01719090241
Tel. 0039 0444 1836577
Cell.0039 328 2369972
Fax 0039 0444 1830365
E-mail [EMAIL PROTECTED]
Sito Web www.ivanobarbato.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
