Evidenziare con un colore, la cella in quel momento attiva. - dal 04/09/04 pagina vista: volte

Un simpatico esercizio che ci consentirÓ di individuare immediatamente la cella attiva, tramite una colorazione dell'interno cella. Per questo esempio uso il ColorIndex = 6, che darÓ il colore giallo alla cella, ma ognuno potrÓ scegliere il colore che preferisce.

Per avere l'effetto "evidenzazione" su tutti i fogli, sfrutteremo un evento del Workbook, il SheetSelectionChange. La routine si basa sul riportare allo stato naturale tutte le celle del foglio attivo, e quindi a colorare solo il Target sul foglio, che corrisponde appunto alla cella attiva: ad ogni cambio di selezione di cella, si attiva l'istruzione:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

With ActiveSheet.Cells 
'con tutte le celle del foglio attivo
.Interior.ColorIndex = xlNone
 'eliminiamo qualunque colore
End With
'poi ne assegnamo uno a scelta alla cella in quel momento attiva:
Target.Interior.ColorIndex = 6
' giallo - oppure scegliete un colore

End Sub

 

Buon lavoro.

prelevato sul sito www.ennius.altervista.org