Chiedo scusa... Ho fatto un po' di casino confondendo A1 con B1...
Ho preferito incollare qui il testo corretto...
Marco Caresia ha scritto:
Ciao Marco,
> Bart Aimar wrote:
>>
>> In A1 l'utente deve immettere dei calcoli parziali sottoforma di stringa
>> In B1 deve apparire il risultato.
>>
>
> Mi sa che la cosa più semplice è scrivere una subroutine che legge il
valore di A1 e lo utilizza per impostare la formula di B1. Ad ogni
cambiamento di A1 la subroutine dovrebbe essere rieseguita.
In realtà non cercavo "la cosa più semplice"... ma una "soluzione
finale", una vera e propria funzione aggiuntiva che certamente avrà
ampia applicazione!
Inoltre mi secca molto ch,e qualcosa che in excel/vba si risolve con una
riga striminzita, non possa invece essere fatto in OOo.
Comunque avevo pensato ad una cosa del genere... ma quando cerco di
passare da una "normale" macro ad una funzione la vita mi si complica...
Se con B1 come cella attiva si esegue questa routine:
Sub prova
oSheet = ThisComponent.CurrentController.ActiveSheet
oCellS = thiscomponent.currentselection()
lRow = oCellS.CellAddress.row
sSource = osheet.GetCellByPosition(0,lrow).string
oCellT = osheet.GetCellByPosition(1,lrow)
sSource = "=" & sSource
oCellT.formula= sSource
end sub
Nella stessa cella B1 appare il risultato della stringa di A1
(ovviamente in A1 deve esistere una stringa)
Ma in questo caso, se si modificano i "numeri" in A1 il valore di B1 npn
cambia... fino a quando non si riesegue la sub prova.
Probabilmente usando un listener si potrebbe rendere sensibile B1 hai
cambiamenti di A1... ma mi sembra un carrozzone...
Usando una funzione "aggiuntiva" (chiamimola "CalcolaT") nella cella B1
possiamo sapere
sia l'indirizzo e il contenuto della cella A1
che l'indirizzo e il contenuto della cella B1
Quindi dovremmo avere tutto quello che ci serve... salvo che - a
conclusione dele codice della funzione - non riesco a restituire una
formula...
Probabilmente c'è qualcosa che mi sfugge...
(posso anche postare i miei tentativi... se si pensa che possano essere
utili...ma ho dei dubbi.)
> Hai considerato Strumenti -> Opzioni -> Calc -> Vista -> Formula ?
No Marco... ma dovrebbe trattarsi di una modalità di visualizzazione e
non capisco come possa essere utile...
A cosa pensavi?
Grazie
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
