[VBA] Αλλαγή χρώματος κελιού

[ytsiak]

καλησπερα σας
χρειαζομαι λιγο βοηθεια
εχω ενα αρχειο και θελω να αλλαζουν τα χρωματα καποιων συγκεκριμενων κελιων οταν τηρουνται η προυποθεσεις..το θεμα ειναι οτι ο κωδικας που εχω γραψει αφορα ενα κελι ενω εγω θελω να γινει σε 105...ελπιζω να μην πρεπει να τον γραψω 105 φορες
Σας ανεβασα και ενα συνημενο για να καταλάβετε ακριβως τι εννοω

If Sheets("sheet2").Range("b1") > 0 Then
Range("a1").Interior.ColorIndex = 3
Else
Range("a1").Interior.ColorIndex = 4
End If

ευχαριστω προκαταβολικα!

[kapetang]

Αν αντιγράψεις την παρακάτω μακροεντολή στο Module1 νομίζω ότι θα λυθεί το πρόβλημα.

Sub macroColor()
    Dim i As Integer
    For i = 1 To 105
        If Sheets("sheet2").Cells(i, 2).Value > 0 Then
            Sheets("sheet1").Cells(1, i).Interior.ColorIndex = 3
        Else
            Sheets("sheet1").Cells(1, i).Interior.ColorIndex = 4
        End If
    Next
End Sub

Φιλικά/Γιώργος

[Tasos]

Καλησπέρα Γιάννη!
Αν κατάλαβα καλά, θέλεις αν οι τιμές της στήλης B στο Sheet2 είναι μεγαλύτερες του μηδενός (0)
να χρωματίζονται τα κελιά της γραμμής 1 στο Sheet1 ξεκινώντας από το Α1.

Δεν θα χρειάζεται να χρησιμοποιήσεις VBA για να βάψεις τα κελιά σου.
Χρησιμοποίησε τη μέθοδο Μορφοποίηση υπό όρους.

• Επίλεξε τα 105 κελια της σειράς 1
• Κατόπιν, στο διάλογο Mορφοποίηση υπο όρους (από το μενού Μορφή >
  μορφοποίηση υπο όρους), πέρασε τον παρακάτω τύπο και δώσε το χρώμα
  που θέλεις να εμφανιστεί:

=INDEX(Sheet2!$B:$B;COLUMN(A1);ROW(A1))
Καλή συνέχεια!

Τάσος

[ytsiak]

Καταρχας σας ευχαριστω

φιλε τασο σωστα καταλαβες..αλλα θελω συγκεκριμενα Α1:Ο7..Γινεται ετσι?
Kapetang το δοκιμασα ετσι αλλα μπα..

[ytsiak]

Ολα ενταξει ,μορφοποιησα λιγο τον τυπο τασο..ευχαριστω πολυ !

[Tasos]

Γιάννη, μόλις πρόσεξα ότι αναφέρεις στο προφίλ σου Έκδοση Office 2002!
Μάλλον το δοκίμασες σε έκδοση 2007+. Διαφορετικά δεν θα σου δούλευε.

Για Excel < 2007 θα πρέπει να οριστεί ένα όνομα για την περιοχή B:B (Sheet2) πχ. Column_B
επειδή οι αναφορές σε άλλα φύλλα ή βιβλία δεν υποστηρίζονται στη μορφοποίηση υπό όρους.

Επίσης, επειδή πρόκειται για αντιματάθεση μιας μόνο στήλης (B:B),
ο τύπος θα μπορούσε να απλοποιηθεί έτσι: =INDEX(Column_B;COLUMN(A1)) αν πρόκειται για μια γραμμή.

Στο ζητούμενο σου (Α1:Ο7) ο τύπος στη μορφοποίηση υπό όρους είναι:

=INDEX(Column_B;COLUMN(A$1)+COLUMN($O$1)*(ROW(A1)-1))

Ελπίζω να έγινε!

Τάσος