2008/5/2 Francois <[EMAIL PROTECTED]>:
> Ciao tutti due,
>
> Paolo Mantovani a écrit :
>
> > Ciao Jack, Francois,
> >
> > Il mercoledì 30 aprile 2008 23:38:35 jack ha scritto:
> >
> > > On Wed, Apr 30, 2008 at 5:35 PM, Francois Gatto <
> > > [EMAIL PROTECTED]>
> > >
> > > wrote:
> > >
> > > > Salve,
> > > >
> > > > Provi con questa macro
> > > >
> > > > Sub SetNumFormat
> > > >
> > > [...]
> >
> > > Ti ringrazio innanzitutto della risposta :(
> > >
> > > Ho provato la tua macro (sostituendo solo i country e language code
> > > con
> > > "it") ma non ha sortito l' effetto voluto: la formattazione delle
> > > celle
> > > dopo l' esecuzione e' quella numerica standard :(
> > >
> >
> > Io ho provato e da me funziona perfettamente.
> >
> > C' e' una lista di tutti i NumberFormat?
> > >
> >
> > Potrei sbagliarmi ma non mi risulta che si possa ricavare una lista in
> > modo semplice.
> >
> Esatto.
>
> Si puo ottenere una lista dei NumberFormat che sono registratti e in
> funzione dello worksheet aperto.
>
> Con questa macro que ho adaptato per Calc, si puo listare questi numbers.
> Pero no si puo avere i numeri degli formatti che non esistono ,che non sono
> registratti.
>
> Sub enumFormats()
> 'Author : Laurent Godard
> 'e-mail : [EMAIL PROTECTED]
> 'Modified : Andrew Pitonyak
> Dim oDoc as object
> Dim oCell as object
> Dim vFormats, vFormat
> Dim vTextCursor, vViewCursor
> Dim iMax As Integer, i As Integer
> Dim s$
> Dim PrevChaine$, Chaine$
> Dim aLocale As New com.sun.star.lang.Locale
>
> oDoc = ThisComponent
> 'oSheet = oDoc.Sheets.getByName("Feuille1")
> oSheet = ThisComponent.currentController.activeSheet
> vFormats = oDoc.getNumberFormats()
> Dim v
> v = vFormats.queryKeys(com.sun.star.util.NumberFormat.ALL, aLocale, true)
> For i = LBound(v) To UBound(v)
> vFormat=vFormats.getbykey(v(i))
> chaine=VFormat.FormatString
> If Chaine<>Prevchaine Then
> PrevChaine=Chaine
> chaine=right("0000"&CStr(v(i)),4) & " - " & chaine
> oCell = oSheet.getCellByPosition(3,0+i) 'Col D
> oCell.String = chaine
> End If
> Next
> MsgBox "Finished"
> End Sub
>
> La strada suggerita da Francois è quella giusta, secondo me dovresti
> > approfondire perchè deve funzionare.
> >
> > In fatti, la soluzione (sola ?!) e di generare il format che abbiamo
> bisogno nel worksheet.
>
> NB :
> La buona soluzione dovrebbe essere quella proposta o di usare delle
> constante.
> Vedere qui:
> http://api.openoffice.org/docs/common/ref/com/sun/star/i18n/NumberFormatIndex.html
>
> http://doc.services.openoffice.org/wiki/Documentation/DevGuide/OfficeDev/Managing_Number_Formats
> Tutt'una storia ;-)
>
> 50
> > ciao
> > Paolo M
> >
> > Francois Gatto
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
Alla fine ce l' ho fatta :)
Tutti i codici da te postati funzionano ma sui fogli dove li provavo era
attiva, via macro, la protezione ma non ne ho avuto alcuna segnalazione sino
alla BEA300m2 dove si ha un crash dell' applicazione laddove si tenta la
scittura
Rimossa la protezione tutto e' andato come doveva :)
Vinco il premio "programmatore piu' scemo della ML"? :D
Ciao e grazie :)
P.S. il number format per le due cifre decimali con segno e' 10107
