Άθροισμα κελιών με χρώμα
 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Με εκτίμηση

Τάσος

Τάσο είναι το αρχείο που μου έστειλες πριν, ώρα 02:52. Το πρόβλημα το βγάζει με την τρίτη επιλογή, όταν πάω να αποχρωματίσω ένα κελί. (Αυτό μπορεί να γίνει στην πραγματικότητα όταν θεωρήσω κατά λάθος δικαιολογημένες τις απουσίες εκείνης της μέρας και στη συνέχεια θέλω να τις αποχαρακτηρίσω.)
Και το κάνει σε οποιοδήποτε κελί είτε έχει χρώμα είτε όχι.

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

Απλώς θα ήταν το απόλυτα τέλειο αν διορθωνόταν αυτό και ένα ακόμα "ψιλό". Τα εικονίδια στο δεξί κλικ να είναι ίδιου σχήματος για πράσινο και κόκκινο, δηλαδή και τα δύο λάμπες ή και τα δύο τετράγωνα. Το χωρίς γέμισμα ίδιου σχήματος ή διαφορετικού δεν έχει σημασία.(Θα μου πεις τι πήγα και είδα!)

Στο προηγούμενο μήνυμα είχες γράψει: "Προσπάθησε να μην χρησιμοποιείς συγχωνεύσεις κελιών."
Δυσκολεύει τον προγραμματισμό;

Το Α1 γιατί είναι κίτρινο και έχει λες ονομασία Calc; Το έκανα άχρωμο και πάλι δουλεύει.

Σ' ευχαριστώ και πάλι
Κώστας

Κώστα δοκίμασε τα παρακάτω:

Πάτησε ALT+F11 για να μεταφερθείς στον VBE.

Πάτησε CTRL + h

Στο διάλογο που θα εμφανιστεί εφάρμοσε αυτά που δείχνει η εικόνα για αντικαταστήσεις τον αριθμό -4142 με το 0 (μηδέν).

Συνημμένο Αρχείο 4464

Αποθήκευσε, κλείσε, άνοιξε το αρχείο ξανά και πες μας αν έγινε.

Και στη VBA αλλά και στις συναρτήσεις τύπου πίνακα (CSE) μπορεί να δημιουργηθεί πρόβλημα αν σχετίζονται με συγχωνευμένα κελιά.

Με εκτίμηση

Τάσος

!!!!! Αυτό ακριβώς κοιτούσα!!!
Το άλλαξα όχι έτσι που δείχνεις, απλά το φώτισα και έγραψα 0. Έσωσα το αρχείο. Το έκλεισα άνοιξα και είναι εντάξει.
Ευχαριστώ .....

Γεια σας
Αν και χρονικα το θέμα ειναι παλιο , ψαχνοντας για αθροισμα με ορους προσπαθησα να ta εφαρμοσω αντιγραφοντας αλλα μου βγαζει προβληματα
αν υπαρχει καποιος και το παρακολουθει το θεμα ας μου απαντησει να επισυναψω παραδειγμα
ευχαριστω

Γεια σας
Πήρα το τελευταίο απουσιολόγιο και το σύνδεσα με ημερήσιο απουσιολόγιο γιατί είναι ποιο εύκολο
να περνάς τις απουσίες καθημερινά με τά ονόματα όπως είναι γραμμένα στο απουσιολόγιο του σχολείου.
Η ερώτηση είναι αν μπορώ να κάνω αντιγραφή και επικόλληση του πίνακα χωρίς να ξαναγράφω τους τύπους με τα σωστά κελιά που έχει ο πρώτος πίνακας.
Ευχαριστώ για το αρχείο απουσιολόγιο είναι πολύ καλό
με εκτίμηση Άγγελος

Κάτι τέτοιο θέλεις;

Καλησπέρα
Ευχαριστώ για το χρόνο σου κατ' αρχήν , αυτό που θα ήθελα ειναι κάπως διαφορετικό. Να πέρνει το φυλλο1 δεδομένα απο άλλα φύλλα π.χ. Σεπτέμβριος Οκτώμβριος κλπ . Και όταν κάνω αντιγραφή και επικόλληση τον πίνακα στο φύλλο1 ποιο κάτω θέση να παιρνει τιμές αναλογα με την επιλογή του μαθητή.
Ελπίζω με το αρχειο που τροποποίησα να γίνω ποιο κατανοητός
Ευχαριστώ και πάλι για τον χρόνο σου

Έβαλα όλους τους μήνες σε ένα φύλλο με αποτέλεσμα να τελειώσουν οι στήλες! Έτσι έκοψα τις ημερομηνίες από 24/12 μέχρι και 7/1, οπότε φτάνει μέχρι 26/5. (αν κοπούν και οι πρώτες 5 μέρες του Σεπτέμβρη, τότε πάει μέχρι 31/5).
Δεν μπορώ να το κάνω με αυτόματο τρόπο και έτσι έγιναν χειροκίνητα. (μετά την αντιγραφή επικόλληση στα m2, m3, m4, .....)
Όταν γράφεις τα ονόματα των μαθητών στο φύλλο input αυτόματα μπαίνουν στα B3 των m1, m2,m3, ......
Όταν είσαι στα φύλλα m1, m2,m3, ...... με Ctrl + m παίρνει το αντίστοιχο φύλλο το όνομα του μαθητή. ("κλεμμένο" από τον gr8styl). Προσοχή όταν εκτελείται να είναι στα Αγγλικά το πληκτρολόγιο!
Το στέλνω σαν .xlsm γιατί το .xls βγήκε μεγάλο.

Καλημέρα Κώστα.
Ευχαριστώ για την βοήθεια , δεν με βολεύει το απουσιολόγιο σε πολλά φύλλα θα το ήθελα σε ένα. Μαλλον πρέπει να ξαναγράφω τις συναρτήσεις για να παιρνει τις απουσίες ο κάθε πίνακας στο ιδιο φύλλο.
με εκτίμηση
Αγγελος

Αυτό μήπως θέλεις;

Καλησπέρα Κώστα
Αυτό ειναι οτι πρέπει
Ευχαριστώ πολύ
Αγγελος