Il giorno sab, 30/09/2006 alle 00.18 +0200, Marco Caresia ha scritto:
> A-Lex wrote:
> >
> > Il nocciolo è nel fatto che se scrivi un testo o un numero nella cella
> > iniziale, nn cambia nulla. Mentre se scrivi una formula succede quanto
> > descritto
> >
> >>> si perde il contenuto originale della cella e
> >>> rimane solo il risultato,
> >
>
> Un caso reale potrebbe giovare... ;)
:D Sei incredibile!! :D
Per te scrivere una macro è come parlare :D
Ho un paio di domande (da assoluto profano, quindi perdona le eventuali
eresie):
>
> Comunque è vero che se la formula è nella prima cella (e le altre sono
> vuote) la formula rimane mentre se è in un'altra no.
>
> La formula delle celle unite è quella della prima cella (che diventa
> un'unica cella). Ho scritto una macro che penso possa risolvere il
> problema. L'unione celle è probabilmente una funzionalità usata più
> spesso di quello che credono gli sviluppatori...
>
> Sub UnisciFormula
> ' accedo al documento
> oDoc = ThisComponent
perchè hai dovuto creare questa variabile se nn la usi? oDoc nn
viene ripreso da nessuna parte e per di più per stabilire il
range delle celle usi di nuovo la funzione ThisComponent e nn
oDoc (sarebbe possibile?)
> ' accedo alla selezione
> oRange = ThisComponent.GetCurrentSelection
> ' salvo la funzione che si può trovare in una (sola) qualsiasi cella
> della selezione
> for i=0 to oRange.Columns.Count-1
> for j=0 to oRange.Rows.Count-1
qui metti "-1" perchè il ciclo parte da 0 e nn da 1, vero?
> oCell = oRange.GetCellByPosition(i,j)
> sFormula = sFormula & oCell.Formula
qui alla variabile sFormula assegni se stessa (nel caso nn fosse
vuota?) a cui "accodo" quelo che trovo il oCell?
> next j
> next i
> ' unisco le celle
> oRange.Merge(True)
> ' reimposto la formula: Notare che la cella è una sola (la prima)
> oRange.GetCellByPosition(0,0).Formula = sFormula
> End Sub
..e nel caso (come dice Stefano) nella selezione ci fossero più celle
"compilate"?
--
Saluti.
A-Lex
OOo 2.0.3 su wXP | 2.0.2 su FedoraCore5
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
