Macro su calc - spezzettamento testo

[MicheleG]

Ciao a tutti! Ho la necessità di scrivere una macro su LibreOffice, e in allegato trovate un foglio elettronico con due schede che illustrano la situazione PRIMA e DOPO l'esecuzione di tale macro.

In pratica la macro dovrebbe:

partire dalla casella c1, il cui valore è 1;

copiare nella casella d3 il valore di b1;

scorrere la colonna c (c2, c3,c4) e FINCHÉ il valore della cella (“c”&k) è <i>,

alla cella “d”&((4*i)-1) vanno progressivamente concatenati i contenuti delle caselle (“b”&k);

quando poi il numero nella colonna c aumenta di uno, il testo va copiato quattro righe sotto, nella cella “d”&(4*(i+1)-1);

e così via, fino all'ultima riga della colonna “c”.

Guardandolo il foglio di calcolo, probabilmente, capirete la mia richiesta prima e meglio che solo leggendo il testo

Grazie fin d'ora del vostro tempo e Buon Ferragosto!

Michele

[c.spaziani]

Ciao,
prova questo semplice ciclo:

Codice: Seleziona tutto

Sub Prova
	oSheet = ThisComponent.getSheets().getByName("PRIMA")
	For i = 1 to 40
		c = oSheet.getCellRangeByName("C" & i).Value * 4 - 1
		oSheet.getCellRangeByName("D" & c).String = oSheet.getCellRangeByName("D" & c).String & oSheet.getCellRangeByName("B" & i).String
	Next i
End Sub

[MicheleG]

Grazie mille di avermi risposto. Lo provo e ti dico!