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

Εμφάνιση ενός μόνο μηνύματος
  #5  
Παλιά 10-11-17, 16:31
bilakos26 Ο χρήστης bilakos26 δεν είναι συνδεδεμένος
Όνομα: Βασίλης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
  
Εγγραφή: 09-09-2017
Μηνύματα: 12
Προεπιλογή
Παράθεση:
Αρχική Δημοσίευση από kapetang Εμφάνιση μηνυμάτων
Πρόσθεσε μετά τη μετακίνηση και πριν από το άδειασμα τον κώδικα:

Κώδικας:
    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
Ο κώδικας αυτός έκανε ακριβώς αυτό που ήθελα!
Είσαι φανταστικός!! Σε ευχαριστώ πολύ :D