Salve da internet ho trovato questa macro per l'automazione della ricerca valore di destinazione, ma stampa a video il valore ricercato mentre io vorrei che fosse scritto in una specifica cella, modificando il valore che č giā presente in quella cella (es. in cella P63), non conoscendo nulla di programmazione LibreOffice basic, volevo avere indicazione su come modificare la macro per ottenere il risultato richiesto inserisco di seguito la macro
sub MP
dim resultfound as new com.sun.star.sheet.GoalResult '(divergence,result structure)
dim formula_address as new com.sun.star.table.CellAddress '(sheet,column, Row structure)
dim variable_address as new com.sun.star.table.CellAddress
dim targetresult as string 'goal value sought as STRING
oDoc=thiscomponent
'set location of formula to be evaluated to give goal value
formula_address.sheet = 1 'index values - zero based
formula_address.Column = 1
formula_address.Row=47
' set location of variable to be changed
variable_address.sheet = 0
variable_address.Column = 15
variable_address.Row=62
' set goal value
targetresult = "0"
' run goalseek
resultfound = oDoc.seekgoal(formula_address,variable_address,targetresult)
' do something with result
msgbox resultfound.result
end sub
fa vedere a video ma vorrei che scrivesse il risultato nella cella P63 foglio 1
chiedo a voi che avete maggiore conoscenza di me di liguaggi di programmazione come risolvere il problema.
Grazie anticipate a tutti
