GRAZIE!! è perfetto.
Ho aggiunto solo la variabile num_riga per iniziare dal n°1 sempre e non dal
numero cella dove si trova.
Come faccio a trovare tutti i riferimenti agli oggetti del basic?
Beppe
giuseppe ha scritto:
> dovrei aggiungere dei numeri all'inizio delle celle con dentro testo.
> esempio
>
> riga1 deve diventare 01-riga1
> riga2 " 02-riga2
> e cosi via...
>
> volevo scrivere una macro che lo facesse con le celle selezionate, che
> contengono testo.
> quelle vuote vanno lasciate vuote e non numerate.
> Quello che non so fare è assegnare ad una variabile il numero di celle
> scelte della stessa colonna,
> leggere il valore della cella corrente e sostituire nella stessa il nuovo.
> Ho letto una parte del manuale starbasic, ma non ho trovato...
> Se qualcuno ha un'idea o un esempio...
Prova questa se ti soddisfa
Se non è quello che vuoi fammelo sapere
Codice
Sub Prova1()
Set oFoglio = ThisComponent.Sheets._
GetByName(ThisComponent.CurrentController.ActiveSheet.Name)
oRange = ThisComponent.CurrentController.Selection ' Rileva la selezione
PrimaLinea = oRange.RangeAddress.StartRow ' Rileva la prima linea
selezionata
UltimaLinea = oRange.RangeAddress.EndRow ' Rileva l' ultima linea
selezionata
PrimaColonna = oRange.RangeAddress.StartColumn ' Rileva la colonna
' selezionata
For i = PrimaLinea to UltimaLinea ' Inizia il ciclo
If oFoglio.getCellByPosition(PrimaColonna, i).string <> "" Then 'Se la
' la cella non è vuota esegue il codice sotto
s = LTrim(Str(i + 1))' Toglie lo spazio davanti ad i, aggiunge 1
' perchè la numerazione delle righe parte da 0
' e lo trasforma in una stringa
If Len(s) = 1 Then s = "0" & s ' Se s è un numero da 1 a 9 aggiunge
' davanti uno 0
s = s & "-" ' Aggiunge pure il trattino
oFoglio.getCellByPosition(PrimaColonna, i).string _
= s & oFoglio.getCellByPosition(PrimaColonna, i).string ' Rimette il
' tutto nella cella assieme a quello che c' era già
End If
Next
End Sub
Ciao Lido
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
