perché, per differenziare il colore bisogna escogitare un sistema che, alla fine, potrebbe essere troppo scuro rendendo così il carattere illegibile comunque fai tu delle prove variando l'algoritmo (evidenziato nella macro)
- Codice: Seleziona tutto
Sub Colora()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR = 4 To UR Step 3
Range("C" & RR & ":U" & RR).Interior.ColorIndex = xlNone
Next RR
For CC = 3 To 21 Step 2
For RR = 4 To UR Step 3
Ambo = Cells(RR, CC).Value
Col1 = Replace(Left(Ambo, 2), ".", "")
Col2 = Replace(Right(Ambo, 2), ".", "")
ColF = (Col1 + Col2) Mod 56 '<<<<<< qui puoi effettuare una moltiplicazione tra le due variabili Col1 e Col2 o usare una sola variabile
MyC = Evaluate("=COUNTIF(C4:U16, " & Ambo & ")")
If MyC > 1 Then Cells(RR, CC).Interior.ColorIndex = ColF
Next RR
Next CC
End Sub
Un altro sistema potrebbe essere quello di usare la funzione RGB ma è sempre un'assegnazione casuale del colore
puoi provare sostituendo le righe interessate
- Codice: Seleziona tutto
Ambo = Cells(RR, CC).Value '<<<<< esistente
Col1 = Val(Replace(Left(Ambo, 2), ".", ""))
Col2 = Val(Replace(Right(Ambo, 2), ".", ""))
ColR1 = Col1 * Col2 Mod 255
ColR2 = Col1 + Col2 Mod 255
ColR3 = (Col1 * (Col1 - Col2)) Mod 255
If Col2 > Col1 Then ColR3 = (Col1 * (Col2 - Col1)) Mod 255
ColF = RGB(ColR1, ColR2, ColR3)
MyC = Evaluate("=COUNTIF(C4:U16, " & Ambo & ")") '<<<< esistente
Ciao
