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.
Riccardo Vincenti
Ultimi post di Riccardo Vincenti (vedi tutti)
- 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
- 072. Estrazione numeri casuali - 6 Ottobre 2017
- 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
- 070. Contare dati univoci senza Pivot - 21 Settembre 2017
- 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017
This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International