| | Post: 39 | Registrato il: 04/08/2004
| Utente Junior | 2007 | | OFFLINE |
|
12/08/2016 13:32 | |
buongiorno
vorrei creare una routine per selezionare un certo numero di celle
Sub sel()
Range(ActiveCell,Activecell.offset(0,100)Select
End Sub
ma mi servirebbe che al posto di Activecell.offset... compaia una finestra che mi richieda il valore da inserire
si può fare ?
grazie
Excel 2007 |
|
| | Post: 327 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
12/08/2016 16:53 | |
Inizializza due variabili che andrai a popolare con input su richiesta e le userai al posto dei parametri dell'Offset.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 39 | Registrato il: 04/08/2004
| Utente Junior | 2007 | | OFFLINE |
|
12/08/2016 23:35 | |
rollis13, 12/08/2016 16.53:
Inizializza due variabili che andrai a popolare con input su richiesta e le userai al posto dei parametri dell'Offset.
grazie purtroppo non sono così esperto per comprendere quello che hai scritto,ti sarei grato se potessi fare un esempio pratico
grazie
Excel 2007 |
| | Post: 586 | Registrato il: 06/04/2013
| Utente Senior | 2010 | | OFFLINE |
|
13/08/2016 10:06 | |
Ciao
un modo potrebbe essere:
Sub SelRange()
Da = ActiveCell.Address
Set A = Application.InputBox("Selezionare cella finale", , , , , , , 8)
Range(Da & ":" & A.Address).Select
End Sub
Volendo si potrebbe "suggerire" il presunto range da selezionare nella input box, ma è necessario sapere da cosa dipende. Cioè la input box potrebbe già proporti A100 che puoi variare secondo tue necessità
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 328 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
13/08/2016 12:13 | |
dodo47 ti ha mostrato un esempio e questo è quello che avevo preparato con due alternative (la prima è per ora disattivata): Option Explicit
Sub sel()
Dim x As Long
Dim y As Long
x = InputBox("Indica l'offset (o coordinata) desiderato per la Riga")
y = InputBox("Indica l'offset (o coordinata) desiderato per la Colonna")
' 'seleziona dalla cella attiva alla cella con coordinate di input
' Range(ActiveCell, Cells(x, y)).Select
'seleziona dalla cella attiva per un offset pari ai valori di input
Range(ActiveCell, ActiveCell.Offset(x, y)).Select
End Sub [Modificato da rollis13 13/08/2016 12:18]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 40 | Registrato il: 04/08/2004
| Utente Junior | 2007 | | OFFLINE |
|
14/08/2016 12:56 | |
rollis13, 13/08/2016 12.13:
dodo47 ti ha mostrato un esempio e questo è quello che avevo preparato con due alternative (la prima è per ora disattivata): Option Explicit
Sub sel()
Dim x As Long
Dim y As Long
x = InputBox("Indica l'offset (o coordinata) desiderato per la Riga")
y = InputBox("Indica l'offset (o coordinata) desiderato per la Colonna")
' 'seleziona dalla cella attiva alla cella con coordinate di input
' Range(ActiveCell, Cells(x, y)).Select
'seleziona dalla cella attiva per un offset pari ai valori di input
Range(ActiveCell, ActiveCell.Offset(x, y)).Select
End Sub
grazie a entrambi ho usato questo dirollis13 va benissimo
Excel 2007 |
|
|