[Γενικά] Άθροισμα κελιών με χρώμα

[KostasZK]

(Ίσως είναι εύκολο αλλά δεν μπορώ να το κάνω)
Αυτό που θέλω είναι να προσθέτω τα κελιά περιοχής π.χ. Α1:D30, που έχουν γέμισμα κόκκινο ή πράσινο. (Excel 2003)
Κώστας

[ELSA]

Γεια σου Κώστα,
καταρχάς στα κελιά βάζεις εσύ το χρώμα? Γιατί μπορείς να κάνεις μια μορφοποίηση υπό όρους και να χρωματίζονται τα κελιά από μόνα τους ανάλογα με μια συνθήκη. Έτσι όμοια να χρησιμοποιήσεις αυτή τη συνθήκη και με μια sumif να κάνεις την πρόσθεση στα κελιά που θέλεις. Αν θέλεις ανέβασε το αρχείο σου.

[KostasZK]

Σ΄ευχαριστώ Έλσα για την απάντηση.
Είναι για απουσιολόγιο σχολείου.
Ναι στα κελιά θα βάζω εγώ το χρώμα πράσινο (αν η απουσία είναι από γιατρό) ή κόκκινο (από κηδεμόνα).
Στο ΑΙ(5,6,7,8,9) θέλω να προσθέτει όποια από τα Β5:AF9 είναι κόκκινα ή πράσινα. (στα V9:AF9 δεν καταχωρούνται αριθμοί, αλλά νομίζω δεν επηρεάζει αν σαν περιοχή πάρουμε την B5:AF9)
Μου ήρθανε άλλες δύο ερωτήσεις.
1) Παλεύοντας το αρχείο "κατάφερα" να μου βγάζει μήνυμα μόλις ανοίγει για απενεργοποίηση των μακροεντολών. Αν μπορεί αυτό να φύγει.
2) Επειδή θα θελήσω να προσθέσω αρκετά φύλα, είναι δυνατόν η μορφοποίηση αυτοματοποιημένα να περνά και σε κάθε άλλο; Δηλαδή πλάτος γραμμών-στηλών, ενοποιήσεις κελιών, τύποι, κ.λ.π. (ή κάποια από αυτά) γρήγορα να ισχύουν σε κάθε επόμενο φύλο.

Κώστα για να προσθέτεις(μετράς) κελιά σύμφωνα με το χρώμα τους, θα χρειαστείς VBA.

Όμως θα μπορούσες να χρησιμοποιήσεις και μορφοποίηση υπό όρους ως εξής.

Αντί να χρωματίζεις τα κελιά χειροκίνητα, θα μπορούσες να πληκτρολογείς "κ" για απουσία δικαιολογημένη από γονέα και "γ" από γιατρό.

Έτσι λοιπόν στην Μορφοποίηση υπό όρους εφαρμόζεις το απλό: π.χ Α1="Γ" και του ορίζεις χρώμα. Το ίδιο και για το "κ". ΑΝ θέλεις να μην φαίνονται κάν τα γράμματα, ορίζεις και ίδιο χρώμα γραματοσειρά.

2) Μπορείς να φτιάξεις πολλά φύλλα έτσι όπως ζητάς, κάνοντας αντιγραφή>>ειδική επικόλληση>>Πλάτος στηλών>>οκ.

[KostasZK]

Σ' ευχαριστώ για την απάντηση Οδυσσέα.
Ξαναστέλνω το αρχείο με εξήγηση-σχόλιο μέσα, μήπως και δεν έχω γίνει κατανοητός στο τι θέλω να κάνω.

Αυτό που λες ....
"Όμως θα μπορούσες να χρησιμοποιήσεις και μορφοποίηση υπό όρους ως εξής.
Αντί να χρωματίζεις τα κελιά χειροκίνητα, θα μπορούσες να πληκτρολογείς "κ" για απουσία δικαιολογημένη από γονέα και "γ" από γιατρό.
Έτσι λοιπόν στην Μορφοποίηση υπό όρους εφαρμόζεις το απλό: π.χ Α1="Γ" και του ορίζεις χρώμα. Το ίδιο και για το "κ". ΑΝ θέλεις να μην φαίνονται κάν τα γράμματα, ορίζεις και ίδιο χρώμα γραμματοσειρά."
... είναι για να χρωματίζονται αυτόματα (γιατί κάτι τέτοιο δεν με ενδιαφέρει) ή μπορεί να γίνει και η πρόσθεση που θέλω;

Με αυτό ...
" Μπορείς να φτιάξεις πολλά φύλλα έτσι όπως ζητάς, κάνοντας αντιγραφή>>ειδική επικόλληση>>Πλάτος στηλών>>οκ"
... γίνεται αρκετή δουλειά, παρ' ότι δεν φτιάχνει και τις γραμμές, γιατί η περισσότερη φασαρία είναι στις στήλες.

[Spirosgr]

Καλησπέρα
Στο φύλλο που ακολουθεί υπάρχει ένα πρότυπο για το πως μπορούμε να διαχειριστούμε
απουσιολόγιο μαθητών
Έχει γίνει χρήση VBA, τύπων και μορφοποίησης
Μπορούμε να καταγράψουμε τις απουσίες ως
a = αδικιολόγητες
k = δικιολογημένες γονέα
i = δικιολογημένες ιατρού (ή ότι άλλο θέλουμε)
Να κάνουμε καταμέτρηση απουσιών
Να εμφανίζονται με διαφορετική μορφοποίηση τα είδη απουσιών
Με μορφοποίηση έχει επιλεγεί >20 = κόκκινο
Εδώ για λόγους συμβατότητας έχουν επιλεγεί βασικά χρώματα συμβατά με 2003
Να διαγράφουμε κατά το δοκούν περιεχόμενα κελιών ή όλη την περιοχή (ονομασία myApp)
Οι κώδικες είναι σε module εκτός από έναν που είναι στο φύλλο και μας "προστατεύει" από το λάθος να επιλέξουμε περισσότερα του ενός κελιά
Τον κώδικα αυτόν μπορούμε να τον απενεργοποιήσουμε από το κελί ... on, off και αφού εργαστούμε σε ότι άλλο θέλουμε να τον ενεργοποιήσουμε πάλι όταν εισάγουμε απουσίες μαθητών
Καλή συνέχεια!

[KostasZK]

Ευχαριστώ Σπύρο και σένα για την απάντηση.
Μάλλον δεν τα εξηγώ καλά....
Δεν είναι αυτό που θέλω.
Στο Απουσιολόγιο2.xls καταχωρώ κάθε μέρα 1 έως 7 απουσίες (ή και καμία-δεν γράφω δηλαδή τίποτε).
Κάποιες από αυτές δικαιολογούνται με χαρτί γιατρού και θα χρωματίζω το κελί (με το χέρι) πράσινο και κάποιες από κηδεμόνα και θα το χρωματίζω με κόκκινο.
Θέλω στο ενοποιημένο κελί ΑΙ(5,6,7,8,9) να γίνεται πρόσθεση των κόκκινων και πράσινων κελιών του 1ου τετραμήνου (B5:AF9).
Παρομοίως και στο 2ο τρίμηνο. κ.λ.π.

[Tasos]

Καλημέρα!
Κώστα καλωσόρισες στο φόρουμ.

Προσπάθησε να μην χρησιμοποιείς συγχωνεύσεις κελιών.

Στο συνημμένο υπάρχει μια λύση στο ζητούμενο σου.

Χρήση: Κάνεις δεξί κλικ στο επιθυμητό κελί, και δίνεις το χρώμα που θέλεις. Οι υπολογισμοί γίνονται αυτόματα.

Λειτουργεί σε όλα τα φύλλα του βιβλίου αρκεί στο κελί του αποτελέσματος να γράψεις τον τύπο:

=SumColoredCells(B5:AF9)+Calc (B5:AF9 = η περιοχή που θέλεις να αθροίσεις).

Το επίπεδο ασφάλειας μακροεντολών πρέπει να είναι στο "χαμηλό" για να λειτουργήσει το αρχείο απροβλημάτιστα.

Καλή συνέχεια!

[KostasZK]

Τάσο σ' ευχαριστώ. Πολύ ωραίο! Μόνο που αν βάλω άσπρο κολλάει εδώ. Προφανώς είναι κάτι εύκολο για σένα. Θα προσπαθήσω να καταλάβω αυτά τα κινέζικα, όσο και αν λένε στο γέρικο σκυλί δεν μπορείς να του μάθεις νέα κόλπα..
Είναι πάντως φανταστικό! Με δεξί κλίκ!!!

Function SetDirty()
ActiveCell.Interior.ColorIndex = CommandBars.ActionControl.Tag
Range("Calc").Dirty
End Function

[Tasos]

Καλησπέρα Κώστα!

Η τρίτη επιλογή του μενού που εμφανίζεται με το δεξί κλικ απλά αφαιρεί το χρώμα από το κελί. Δεν το χρωματίζει με άσπρο χρώμα.

Λάβε υπ' όψη σου ότι αν το φύλλο είναι προστατευμένο δεν θα γίνει καμία αλλαγή και θα προκληθεί σφάλμα στον κώδικα.

Σ' αυτή την περίπτωση πρέπει να τροποποιηθεί ο κώδικας έτσι ώστε να αφαιρεί την προστασία του φύλλου, πριν εφαρμόσει την εντολή για το χρωματισμό του κελιού και έπειτα να επαναφέρει την προστασία στις αρχικές ρυθμίσεις.

Ανέβασε μας το αρχείο στο οποίο παρουσιάζεται το πρόβλημα για να δούμε τι ακριβώς συμβαίνει.

Με εκτίμηση

Τάσος