[Συναρτήσεις] SumIf κελιών με χρώμα

[Τορίνι]

Καλησπέρα,
Γνωρίζει κανείς εάν σε αρχείο που καθημερινά προσθέτω στήλες με πωλήσεις ειδών (τα οποία είναι πολλές γραμμές) θα μπορούσε να αθροίζει αυτόματα όσα κελιά της ίδιας γραμμής έχουν το ίδιο χρώμα;

Εύχομαι να ήμουν κατανοητός,

Με εκτίμηση

[ChrisGT7]

Καλησπέρα Τορίνι,

Δοκίμασε το συνημμένο αρχείο, το οποίο περιέχει μακροεντολές.

Δημιούργησα τη συνάρτηση SUMCOLOR(), όπου δέχεται δύο ορίσματα:
1. Εύρος αθροίσματος: η περιοχή που περιέχει τους αριθμούς αθροίσματος.
2. Κελί χρώματος, όπου θα συγκρίνεται με το χρώμα κάθε κελιού από το εύρος αθροίσματος.

Στον πίνακα πωλήσεων (Α1:Ο21) βρίσκονται όλα τα στοιχεία για τις πωλήσεις.
Στον πίνακα χρωμάτων (Q1:Y21) γίνονται τα αθροίσματα ανάλογα το χρώμα της επικεφαλίδας της στήλης.

Π.χ. ο τύπος SUMCOLOR($C2:$N2;R$1) έχει αποτέλεσμα 254, γιατί στο εύρος C2:N2 μόνο σ' ένα κελί ταιριάζει το χρώμα του με το κελί R1 (κίτρινο).

Αν αλλάξεις το χρώμα σ' ένα κελί του πίνακα πωλήσεων, θα πρέπει να πατήσεις Ctrl+Alt+F9 για να ενημερωθούν τα αθροίσματα στον πίνακα χρωμάτων.

Αλλάζοντας τα χρώματα στην επικεφαλίδα του πίνακα χρωμάτων (Q1:X1), θα πρέπει επίσης να πατάς Ctrl+Alt+F9 για ενημέρωση της συνάρτησης SUMCOLOR().

[Τορίνι]

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

[Τορίνι]

Καλησπέρα και πάλι,
Άνοιξα το αρχείο και ναι δουλεύει ακριβώς όπως ήθελα.
Δεν είχα ιδέα ότι μπορεί να υπάρχει sumcolor - φοβερό ατού το οποίο όταν εγώ "έμπαινα στα βαθιά νερά" του excel μάλλον δεν υπήρχε ως συνάρτηση. Μιλάμε για εποχή που οι στήλες ήταν μάξιμουμ 256 και οι γραμμές γύρω στις 64Κ....

Υπερ-ευχαριστώ!

[ChrisGT7]

Καλησπέρα Τορίνι,

Η SUMCOLOR() είναι μια UDF (User Defined Function) συνάρτηση, δηλαδή συνάρτηση που τη φτιάχνει ο ίδιος ο χρήστης. Ο χρήστης, μέσω κώδικα VBA, μπορεί να φτιάξει ό,τι συνάρτηση χρειάζεται για να διευκολύνεται στην καθημερινότητά του. Αυτό που θέλω να πω είναι πως δεν υπάρχει στη γενική λίστα συναρτήσεων του Excel, οπότε σωστά δεν τη γνωρίζεις και υπάρχει μονάχα σ' αυτό το αρχείο Excel.

Για να δεις τον κώδικά της, πάτα δεξί κλικ πάνω στο όνομα του φύλλου εργασίας, επέλεξε View Code και στο νέο παράθυρο κάνε διπλό κλικ στο Modoule1. Θα μπορούσα π.χ. να την είχα ονομάσει TORINI. :)

[Τορίνι]

Χμ ενδιαφέρον και αξιοζήλευτο...
Δεν μπόρεσα να κάνω view code κάνοντας δεξί κλικ στο όνομα του αρχείου.
Μάλλον κάτι δεν κάνω σωστά και δεν εμφανίζεται τέτοια επιλογή...
SUMCOLOR ή Torini, όπως και να την ονομάσεις είναι πολύ χρήσιμη.
Θα έπρεπε να υπάρχει ως έτοιμη στο excel IMHO.

[ChrisGT7]

Κάτω στην μπάρα που εμφανίζονται όλα τα φύλλα εργασίας του αρχείου, κάνε δεξί κλικ στο όνομα του φύλλου (Sheet1).

Θα εμφανιστεί το ένα μενού με την επιλογή View code.

[Τορίνι]

Ευχαριστώ, το εντόπισα!
Λίγες γραμμές κώδικα - αν και δεν κατάλαβα τίποτα!...
Πού να μαθαίνω τώρα VB....