Selezionare Celle di una tabella

[nickopenoffice]

Salve,
ho realizzato una macro che mi permette di elaborare calcoli partendo da una tabella.
Finora, per selezionare la tabella utilizzavo "inputbox".
Adesso, mi servirebbe selezionare la tabella via mouse, come posso fare?


Grazie.

[Mizio1961]

Ciao
Puoi allegare un file di quello che fai attualmente per far capire meglio cosa ti occorre?
Saluti by Mizio

[nickopenoffice]

Ecco il programma principale.


Sub Main
Dim intervallo As String
Dim colonna,riga,righe,counts,risultato As Integer

intervallo=inputbox(" INSERISCI INTERVALLO ")

rem scorpora intervallo
scorpora(intervallo,colonna,riga,righe,counts)

rem calcola
calcola(risultato)

rem mostra risultato
visualizza(risultato)
End Sub

Chiedo nll'inputbox la cella in alto a sinistra e la cella in basso a destra, separati da due punti.
Così so dov'e' la tabella e tramite la procedura scorpora, cado a prelevare i valori(una lavoro lungo).
Adesso, vorrei togliere inputbox, e far fare la selezione con il mouse;
selezionando tutta la tabella come si fà di solito.

[Gaetanopr]

Bisognerebbe che allegassi procedura scorpora
comunque prova in questo modo

Codice: Seleziona tutto

indirizzo = Split(ThisComponent.CurrentSelection.AbsoluteName, ".")
intervallo = indirizzo(1)

[nickopenoffice]

Non funziona.
Mi sono dimenticato a dire che utilizzo il Basic.

[patel]

a me funziona perfettamente, ma come ha detto Gaetano, se vuoi risovere devi allegare un file di esempio

[unlucky83]

ovviamente la procedura di Gaetano va usata in questo modo:
prima selezioni con il mouse l'area che desideri,
successivamente avvi la macro, dove al posto di

Codice: Seleziona tutto

intervallo=inputbox(" INSERISCI INTERVALLO ")

hai precedentemente messo le due righe di codice di Gaetano.

Se hai fatto quanto sopra esposto, è strano che non ti funzioni.