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

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

Κώδικας:
    Set cell = Worksheets("ΑΡΧΕΙΟ").Cells(l + j - 9, 6).Offset(-1)
    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