Ciao Lido, In effetti si puo' eliminare il problema del nome della tabella con questo (grazie Bart!!): oSheet = thisComponent.getSheets()._ getByName(thisComponent.getCurrentController.ActiveSheet.Name)
Il problema che secondo me ancora esiste e' la differenza tra selezionare una cella (tutta la cella viene evidenziata) dall'operazione .uno:GoToCell che invece risulta solo con l'ingrossare il bordo della cella (come quando ci si muove con i tasti-freccia per intendersi). Ho chiesto gia' su [email protected] ma repetita juvant: Esiste un equivalente in StarBasic di .uno:GoToCell ? Ciao, Michele Dimenticavo!!! Guido, scusa se utilizzo la tua domanda per farne un'altra, lo so che non si dovrebbe fare, ma sono troppo pigro per iniziare un nuovo thread :) On 03/02/06, Bernardini Lido <[EMAIL PROTECTED]> wrote: > > 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] > >
