Excel colorare rigo cliccando su una cella

Question

Buongiorno

Ho il seguente codice :

Option Explicit

---

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

Cells.Interior.ColorIndex = xlNone

Target.EntireRow.Interior.ColorIndex = 40

End Sub

Funzionerebbe bene su un foglio pulito , purtroppo siccome lo vorrei usare su un foglio che ha gia tante formattazioni di colori , come potrei adattare questo codice in modo tale da non toccare la formattazione gia' esistente ?

Grazie.

Answer 1

A mio parere la soluzione meno complessa è la seguente.

Selezioni l'intervallo/i di celle per le quali desideri che quando la selezioni assuma un determinato sfondo (diverso da quelli già presenti "manualmente" o a seguito di formattazioni condizionali), assegni una nuova regola in base alla formula

=E(RIF.RIGA()=CELLA("RIGA");RIF.COLONNA()=CELLA("COL"))

Fai in modo che questa regola sia sempre la prima anche per gli intervalli dove sono presenti altre regole (dovrebbe avvenire automaticamente se se tu dovessi aggiungere ulteriori regole ad un intervallo di celle dovresti assicurarti di spostare in prima posizione questa.

Poi con l'evento "SelectionChange" gestisci l'aggiornamento della formula in modo che si evidenzi del colore stabilito per questa regola:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.CutCopyMode = False Then

  ActiveCell.Calculate 

Else

  Application.ScreenUpdating = True 

End If

End Sub

Ho impostato il ricalcolo della singola cella selezionata a meno che tu non stia eseguendo un copia incolla, nel qual caso viene aggiornato l'intero schermo.

In teoria, a fronte di tante formule, dovrebbe aversi un minor "sfarfallio" e ritardo.

Answer 2

ciao

usa questa

Option Explicit 

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

      Cells.Borders.ColorIndex = xlNone 

    Target.EntireRow.BorderAround ColorIndex:=0, Weight:=xlMedium 

End Sub 

ti borda la riga

scegli il colore sostituendo lo 0 con il colore che vuoi

se non si fa come fare si inventa qualcosa

Answer 3

Se faccio la formattazione condizionale a tutto il foglio , forse va detto alla macro che cliccando deve prevalere sulla formattazione condizionale e poi cliccando altrove , al posto di Cells.Interior.ColorIndex = xlNone , di tornare come era prima .

Answer 4

ciao

se hai una formattazione condizionale

questa prevale sulla macro perciò colori solo le celle senza formattazione

se colori a mano la vecchia formattazione viene cancellata

quale dei due casi hai nei vari fogli

Ciao

in effetti é come dici tu , siccome ho tutte e due le opzioni da te descritte , quando clicco , quella fatta a mano si elimina , a questo punto mi convierrebbe forse farla tutta condizionata e modificare la macro ? perché sono comunque obbligato a tenere la parte condizionata .

Answer 5

ciao

se hai una formattazione condizionale

questa prevale sulla macro perciò colori solo le celle senza formattazione

se colori a mano la vecchia formattazione viene cancellata

quale dei due casi hai nei vari fogli