macro per formattazione colonna calc di OpenOffice

ciao a tutti
sto scrivendo una macro per un foglio di calcolo e non riesco a scrivere il codice visual basic all'interno dell'editor della macro per formattare in automatico la colonna "O" che contiene numeri come %.
Inoltre mi piarebbe aggiungere una stringa in modo tale che l'intestazione del foglio (riga 1) fosse fissa anche se scorro giù il foglio.

Qualcuno per favore sa aiutarmi o indicarmi dove posso trovare la soluzione ?
grazie anticipatamente !

Riccardo

Nessuno per favore sà darmi una dritta !
registrando la macro non funziona e non trovo un codice basic da scrivere per far fare quello che ho chiesto
aiuto !!!!!

Ciao antivirus77

Per la riga fissa lo puoi fare a mano
In alto a destra vedrai una riga Nera più spessa Appena sopra le celle
La trascini in basso e vai su Finestra e scegli Fissa (è lo stessa cosa del blocca riquadri di Excel)

Per l'automazione non ho ben capito cosa devi fare?

Ciao

ciao grazie per la tua risposta. Ho scritto una macro sull'editor basic di calc openoffice per modificare un foglio xls di ordini. Quello che vorrei ottenere è:

1) all'interno della macro scrivere un codice che mi formatti i valori contenuti nelle celle della colonna "N" come percentuale in automatico

2) scrivere un codice che mi permetta di fermare l'intestazione delle colonne (riga 1 del foglio di calcolo) in modo tale che se scorro la pagina in giu' non sparisce la riga 1. A mano si fa con opzione finestra e selez. fissa ma non ho trovato una stringa in starbasic per farlo fare in automatico

grazie anticipatamente

Riccardo

ciao
non è tutta farina del mio sacco
ho adattato il codice di questa guida
LINK la sezione "Formati di numeri, data e testo"

per formattazione della cella

Sub Prova

Dim Doc as object

Dim Sheet as object

Dim Cell as object

Dim I as long



Doc = stardesktop.currentcomponent

Sheet = Doc.Sheets(0)



for i=0 to 9

	Cell= sheet.getcellbyposition(0,I) 'A2

	cell.numberformat=11

next i

End Sub

Questo codice formatta dalla Cella A1 alla cella A10
Per il secondo punto devo fare alcune ricerche in merito

PS:
Mettiti tra i segnalibri questo link (Guida alla programmazione in BASIC in StarOffice 8)

Grande ! Grazie mille funziona perfettamente e non riuscivo a trovare ingiro una formula che andasse bene ....
Per l'altra cosa sto guardando ma sinceramente non so se si possa fare ...
intanto grazie mille ancora

riccardo

Ciao
io usando il registratore di macro riesco solo a bloccare i riquadri ma non ha inserirli
l'unica è farlo a mano

in excels sono chiamati
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True

usando il registratore di macro questi termini li trovo (splitWindows e Freepanes)

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 ----------------------------------------------------------------------

dispatcher.executeDispatch(document, ".uno:SplitWindow", "", 0, Array())

dispatcher.executeDispatch(document, ".uno:FreezePanes", "", 0, Array())

EDIT:
questo fa al caso tuo

Dim Doc as object



Doc = stardesktop.currentcomponent

Doc.CurrentController.FreezeAtPosition(0,1)

funziona sul foglio corrente

Ciao

funziona !
grazie mille !

ciao