Alle 03:09, venerdì 3 febbraio 2006, Michele Zarri ha scritto:
> Infine sono convinto che si possa fare di meglio in termini di
> programmazione (ad esempio evitare di usare il dispatcher) ma queste
> finezze sono molto al di sopra delle mie capacita' :)
Si potrebbe semplificare così
Codice
Sub Muovi()
Dim oFoglio As Object
Dim oOldRange As Object
Dim NumRow AS Integer
Dim oNewRange As Object
Dim oDocument As Object
oDocument = ThisComponent
Set oFoglio = ThisComponent.Sheets.GetByName("Tabella1")
' Sulla linea sopra Si deve cambiare "Tabella 1" con il nome
del foglio di
' lavoro
oOldRange = oDocument.CurrentController.Selection ' Rileva la cella
' selezionata
NumRow = oOldRange.RangeAddress.StartRow ' Rileva il numero di riga
Set oNewRange = oFoglio.getCellRangeByPosition(0, (NumRow + 1), 0,
(NumRow +
1)) ' Setta la nuova cella e nella linea sotto la seleziona
oDocument.CurrentController.Select(oNewRange)
End Sub
Nella linea " Set oNewRange = oFoglio.getCellRangeByPosition(0, (NumRow + 1),
0, (NumRow + 1))" lo zero che si trova fra le parentesi si riferisce alla
colonna A per B devi mettere ( 1 ) per C ( 2 ) etc. etc. in base a quale
colonna vuoi selezionare
Fatemi sapere se ci sono problemi
Ciao Lido
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
