056. Azione in base a selezione

Download PDF

Domanda:

Il mio problema è il seguente: quando passo dalla cella I1,I2,I3,…..In   mi si deve evidenziare senza cambiare formattazione la colonna ad esempio \”A:A\” e quando passo dalla cella J1,J2,J3,…..Jn mi sideve evidenziare la colonna (sempre senza perdere la formattazione) \”B:B\”.  Si può fare con una macro?

Si può operare sull’evento ‘Selection Change” inserendo il seguente codice all’interno del codice relativo al foglio dove si vuole agire:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns(9)) Is Nothing Then 'se la cella selezionata non appartiene alla colonna 9
Columns(1).Interior.Pattern = xlNone 'tolgo il colore di riempimento alla colonna 1
Columns(2).Interior.Pattern = xlNone 'tolgo il colore di riempimento alla colonna 2

Risposta:

Else
Columns(1).Interior.Color = RGB(255, 255, 0) 'imposto il colore giallo alla colonna 1
Columns(2).Interior.Pattern = xlNone 'tolgo il colore di riempimento alla colonna 2
End If

If Intersect(Target, Columns(10)) Is Nothing Then 'se la cella selezionata non appartiene alla colonna 10
Columns(1).Interior.Pattern = xlNone 'tolgo il colore di riempimento alla colonna 1
Columns(2).Interior.Pattern = xlNone 'tolgo il colore di riempimento alla colonna 2
Else
Columns(2).Interior.Color = RGB(255, 255, 0) 'imposto il colore giallo alla colonna 2
Columns(1).Interior.Pattern = xlNone 'tolgo il colore di riempimento alla colonna 1
End If

End Sub

A voi il file:
APRI

Riccardo Vincenti

The following two tabs change content below.