Θέμα: VBA Αλλαγή χρώματος κελιού ανάλογα με την τιμή του κελιού

Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 10-11-17, 12:40
kapetang Ο χρήστης kapetang δεν είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
  
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή
Καλησπέρα

Βασίλη, δοκίμασε τον κώδικα:

Κώδικας:
'GEMISMA XROMATOS
    lRow = Sheets("ΑΡΧΕΙΟ").Range("F" & Rows.Count).End(xlUp).Row
    Set MR = Sheets("ΑΡΧΕΙΟ").Range("F2:F" & lRow)
    
    For Each cell In MR
        Select Case cell
        Case Is <= 4
            cell.Interior.ColorIndex = 45
        Case Is <= 7
            cell.Interior.ColorIndex = 4
        Case Is < 10
            cell.Interior.ColorIndex = 14
        Case Else
            cell.Interior.ColorIndex = 3
        End Select
    Next
Αντί για κώδικα θα μπορούσες να χρησιμοποιήσεις μορφοποίηση υπό όρους.