[Lugge] Re: Macro con OpenOffice

  • From: Giovanni Caruso <giovannip.caruso@xxxxxxxxx>
  • To: lugge@xxxxxxxxxxxxx
  • Date: Mon, 13 Dec 2004 03:01:11 +0100

Davide Pederzoli wrote:

Ciao,
Una soluzione banale puo' essere quella di fare il classico assegnamento ad esempio nella cella Tabella1.A1 scrivi " =Tabella2.A2" che copia il valore della cella di Tabella2.A2 in Tabella1.A1.

Non posso farlo...
Infatti funziona se c'è una corrispondenza 1 a 1 tra le celle che copiate e quelle copianti.
L'obbiettivo è di copiare in due righe consecutive lo stesso valore presente in una cella in un altro foglio (o anche nello stesso non è imporŧante).
Facendo un esempio di quello che mi servirebbe nello stesso foglio, nelle celle A1 e A2 deve esserci il valore di B1, nelle celle di A3 e A4 non ci deve essere B2 ma bens' B7 (per esempio). IN a5 - a6 ci deve essere B14 e così via...


Un'altra solzione e' associare ad un bottone tutta la procedura di assegnazione scrivendola in Basic.

sub Assegnazione
       'Get this spreadsheet document
       oDoc = ThisComponent
       ' Get the first sheet.
       oSheet = oDoc.getSheets().getByIndex(0)
       ' Get cell C7
       oCell = oSheet.getCellByPosition(2, 6)
       ' Put the formula into the cell.
       oCell.setFormula("=Tabella2.B6")
end sub

Le ultime tre righe vanno poi ricopiate ed aggiustate per tutte le celle che devono essere popolate.
Si puo' ovviamente migliorare l'algoritmo con dei cicli opportuni.
Ma tutto dipende cosa vuoi fare esattamente.
Riesci a chiarire meglio?


Sarebbe perfetto...mi basterebbe che l'istruzione:
> ' Get cell C7
> oCell = oSheet.getCellByPosition(2, 6)
fosse un "offset" relativo ad una cella generica....
Cioè la cella A1 deve puntare alla cella con offset 2,6, la cella a3 deve puntare con offset 2,_5_ (e fin qui no problem perchè è una cella sotto ad A1). Per A3 deve essere necessario che ci sia non 2,6 ma 2,13 e per A4 2,12...e così via...ovviamente sarebbe bello ripeterlo N volte (circa 100)....



Fammi sapere

Grazie mille della tua disponibilità:-)
Se hai qualche idea fammi sapere.
A presto,
--
Giovanni Caruso
-La vita é una lunga lezione di umiltà - J. W. Barrie
###### ICQ 99 76 27 88
##### Manuale WindowsDaZero http://www.windowsdazero.org
#### WindowsDaZero e LinuxDazero http://dazero.sourceforge.net
## Blog!!!! http://pecico.blogspot.com/
========----------

Archivio delle e-mail postate in lista //www.freelists.org/archives/lugge/

Prima di scrivere in m-list per favore leggi il regolamento http://www.lugge.net/index.php?mod=cosa_facciamo/gruppo_di_discussione
Modifica dell'account sulla lista LUGGe http://www.lugge.net/index.php?mod=cosa_facciamo/gruppo_di_discussione#list

Other related posts:

  1. Home
  2. lugge
  3. Archive
  4. 12-2004