Cambiare colore cella in Excel (1 Viewer)

[tucciotrader]

Vorrei fare una cosa che credo sia possibile solo in VB per Excel e non tramite semplice "formattazione condizionata".

Ho dei valori numerici in alcune celle (non generati tramite formule) e vorrei cambiare il colore di sfondo di alcune celle se il proprio valore e maggiore o minore della cella sullo stesso rigo nella colonna A, ad esempio:

A1 B1 C1
15 16 14

A2 B2 C2
20 18 21

Vorrei che B1 fosse colore verde e C1 color rosso, e che B2 fosse colore rosso e C2 colore verde.

C'è un modo di fare tutto in automatico tramite visual basic? La colonna fissa rimane la A, ho centinaia di colonne su centinaia di righe.

Grazie

 

[tucciotrader]

Sub Colora()

Dim riga As Integer
Dim colonna As Integer
Dim rng As Range
Dim grd1 As LinearGradient
Dim cs As ColorStop

Sheets("Foglio1").Activate

For riga = 2 To 325
For colonna = 3 To 19

If Cells(riga, colonna).Value Then

If Cells(riga, colonna).Value >= Cells(riga, 2).Value Then

Cells(riga, colonna).Interior.Color = vbGreen

Else

Cells(riga, colonna).Interior.Color = vbRed

End If

End If

Next colonna
Next riga

End Sub

 

[popov]

VB non serve. lo fai con il conditional formatting che accetta come valore di riferimento anche l'indicazione di una cella.