PopAds.net - The Best Popunder Adnetwork

Evidenziare righe e colonne

  • 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