Evidenziare righe e colonne |
|
|
Storico discussioni |
|
| Evidenziare Righe e Colonne di
utile1 |
Ciao a Tutti. Espongo il mio problema:
Con il
mouse clicco sulla cella P1 e l'azione che ne deve seguire sarà
quella di evidenziare le celle da P1 a P20 colorate di azzurro, poi
clicco sulla cella A13 e sempre di azzurro mi deve evidenziare la
celle da A13 a Z13
Il risultato finale deve essere una sorta di
assi cartesiani che spostano il punto zero a seconda della selezione
delle celle con il mouse |
|
| di Mauro |
Prova a vedere se può tornarti utile, la routine va
inserita nel modulo associato al foglio attivo.
'Facendo
doubleClick su una cella genera una croce di celle selezionate
'fulcrate sulla cella attivata.
Private Sub
Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
ComInd = ActiveCell.Address
Riga = ActiveCell.Row
Colonna = Mid(ActiveCell.Address, 2, 1)
Range(Colonna &
":" & Colonna & "," & Riga & ":" & Riga).Select
Range(ComInd).Activate
End Sub |
|
| |