Come cambiare in Excel il colore cella attiva?

[ghisirds]

Ciao,

delle volte, nei fogli di calcolo che magari hanno le righe alternate e scure, si fa fatica a distinguere la cella attiva.

Mi domandavo: è era possibile cambiare questa impostazione, magari facendole cambiare colore o evidenziando meglio la cornicetta intorno alla cella?

Grazie

__________________
sito knights of malta, nuove idee regalo originali, forum cultura generale, realizzazione sito internet

[maxxxl]

ho la tua stessa necessità, speriamo bene

[john_revelator]

Credo che l'unico modo sia tramite vba. A questo indirizzo è possibile anche scaricarie un file di esempio.

http://www.ozgrid.com/forum/showthread.php?t=51466

[raffaele2006]

Originariamente inviato da john_revelator

Credo che l'unico modo sia tramite vba. A questo indirizzo è possibile anche scaricarie un file di esempio.

http://www.ozgrid.com/forum/showthread.php?t=51466

Confermo VBA anche se sono un po arruginito non usandolo da un bel pezzo

[raffaele2006]

Originariamente inviato da john_revelator

Credo che l'unico modo sia tramite vba. A questo indirizzo è possibile anche scaricarie un file di esempio.

http://www.ozgrid.com/forum/showthread.php?t=51466

John l'esempio che hai postato è perfettamente funzionante ma...
come mai non vi è una riga di codice VBA?

[zuper]

Originariamente inviato da raffaele2006

John l'esempio che hai postato è perfettamente funzionante ma...
come mai non vi è una riga di codice VBA?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ActiveSheet.Unprotect Password:="s"
Static rngPrev As Range, PrevColor As Integer
Dim TempColor As Integer
TempColor = Target.Cells(1, 1).Interior.ColorIndex

If Not rngPrev Is Nothing Then rngPrev.Interior.ColorIndex = PrevColor
PrevColor = TempColor
With Target.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Set rngPrev = Target
'ActiveSheet.Protect Password:="s"

End Sub

?

[raffaele2006]

Originariamente inviato da zuper

?

Intendo il file d'esempio scaricato non quello inserito nella discussione.
Ho aperto il VBA e non ho trovato una riga di codice

[raffaele2006]

[IMG][/IMG]
come te lo spieghi?
eppure funziona perfettamente

[john_revelator]

Anche io mi riferivo al file test.xls e il codice che trovo è esattamente quello che ha postato zuper. Se commento la sub non funziona.

[raffaele2006]

Originariamente inviato da john_revelator

Anche io mi riferivo al file test.xls e il codice che trovo è esattamente quello che ha postato zuper. Se commento la sub non funziona.

l'immagine che ho postato parla chiaro e non riesco a spiegarmi come mai non visualizzo il codice

EDIT:
Lo dicevo io che mi ero arrugginito col VBA. Volevo visualizzare il codice in "Generale" invece di Worksheet.
Non ho scusanti!

[maxxxl]

perdonate la mia ignoranza, ma nel mio caso andrebbe bene cambiare solo il colore della cornice della cella attiva, nel caso non fosse possibile mi servirebbe qualche guida passo passo per l'inserimento della macro per cambiare colore alla cella attiva.

[raffaele2006]

Originariamente inviato da maxxxl

perdonate la mia ignoranza, ma nel mio caso andrebbe bene cambiare solo il colore della cornice della cella attiva, nel caso non fosse possibile mi servirebbe qualche guida passo passo per l'inserimento della macro per cambiare colore alla cella attiva.

Faccio prima a fornirti il codice modificato che spiegare:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static rngPrev As Range, PrevColor As Integer
    Dim TempColor As Integer
    TempColor = Target.Cells(1, 1).Interior.ColorIndex
     
    If Not rngPrev Is Nothing Then rngPrev.Borders.ColorIndex = PrevColor
    PrevColor = TempColor
    With Target.Borders
        .ColorIndex = 3
        .Weight = xlMinimum 'xlMedium 'xlMaximum [Qui scegli tu il bordo]
    End With
    Set rngPrev = Target
End Sub

il valore 3 corrisponde al rosso. Se vuoi puoi sbizzarrirti a provare con altri valori

EDIT: Col codice postato però se hai delle celle bordate, all'evento change ti toglie tutti i bordi e non credo tu voglia questo vero?

[maxxxl]

infatti, mi toglie i bordi al passaggio, inoltre questa macro la devo usare su un foglio protetto, ed ho visto che quella postata su mi da problemi di debug o simili.

[zuper]

Originariamente inviato da maxxxl

infatti, mi toglie i bordi al passaggio, inoltre questa macro la devo usare su un foglio protetto, ed ho visto che quella postata su mi da problemi di debug o simili.

beh non può modificare il foglio protetto

[raffaele2006]

Originariamente inviato da maxxxl

infatti, mi toglie i bordi al passaggio, inoltre questa macro la devo usare su un foglio protetto, ed ho visto che quella postata su mi da problemi di debug o simili.

Ti dà errore perchè quel codice ad ogni selezione che tu fai tenta di cambiare il bordi, ma essendo il foglio protetto non lo può e fare, quindi hai un errore di run time

[maxxxl]

quindi su un foglio protetto le macro non funzionano?