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