[VBA] Διευκρίνιση στο άθροισμα με βάση το χρωματισμό

[November]

καλημέρα!! Χριστός Ανέστη!
Θα ήθελα μία διευκρίνηση σχετικά με το θέμα που έχει αναπτυχθεί sto forum.
Συγκεκριμένα το άθροισμα του περιεχομένου των κελιών ανάλογα με το χρώμα φόντου ή γραμματοσειράς. Ενώ δουλεύουν οι κώδικες μια χαρούλα, εάν το χρώμα προκύπτει με μορφοποίηση υπό όρους, ο κώδικας δεν αντιλαμβάνεται την αλλαγη, με αποτέλεσμα να μην γίνονται οι υπολογισμοί σωστά.
Σας ευχαριστώ!

[ChrisGT7]

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

Για να ελέγξεις το χρώμα σε ένα κελί, ελέγχεις την τιμή Range.Interior.Color.

Για να ελέγξεις το χρώμα μορφοποίησης υπό όρων σε ένα κελί από την έκδοση 2010 και μετά, ελέγχεις την τιμή Range.DisplayFormat.Interior.Color.

Επειδή όμως έχεις έκδοση 2003 και 2007, δε νομίζω πως θα λειτουργούσε η DisplayFormat. Θα σου πρότεινα να έλεγχες την τιμή σύμφωνα με τη συνθήκη υπό όρων που έχει το συγκεκριμένο εύρος.

[November]

https://www.ms-office.gr/forum/excel...-xromatos.html
Στον παραπάνω σύνδεσμο υπάρχει η colorsum η οποία αθροίζει με βάση το χρώμα γραμματοσειράς, που όμως ο χρήστης ορίζει απευθείας. εάν το χρώμα δίνεται υπό συνθήκη πώς μπορεί να αναγνωριστεί από UDF?

[ChrisGT7]

Καλησπέρα και καλό μήνα Κώστα,

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

[kapetang]

Καλημέρα στην παρέα.

Προσπάθησα να δημιουργήσω μία συνάρτηση, παρόμοια με την colorsum, την SumColorCondition.

Η συνάρτηση παίρνει 2 ορίσματα:

Το 1ο είναι η περιοχή στην οποία ορίστηκε η μορφοποίηση υπό όρους.

Το 2ο είναι ένα κελί, μέσα στην παραπάνω περιοχή με χρώμα (συνθήκη=true) ή χωρίς χρώμα (συνθήκη=False).

Περίμενα να λειτουργήσει, αλλά τελικά κόλλησα.

Περισσότερα στο 2ο φύλλο του συνημμένου.

Χρήστο (και όποιο άλλο μέλος) βοήθεια…

[Tasos]

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

Γιώργο μου απ´ ότι φαίνεται η ιδιότητα του Range "DisplayFormat" όταν καλείται μέσα από UDF εμφανίζει μόνο μία ιδιότητα, την AddIndent.
Αυτό συμβαίνει/συνέβαινε και σε άλλες ιδιότητες του Range, όταν καλούνται από UDF.

Μια λύση με συναρτήσεις ExcelForMacro (που σε περιβάλλον Excel 2003 είναι γρηγορότερη από την λύση με VBA) μπορεί να επιτευχθεί με τη χρήση της GET.CELL.

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

1. Για τη μορφοποίηση υπό όρους
2. Ως όρισμα μέσα σε τύπους όπως SUMIF, SUMPRODUKT κλπ.

Αν χρειαστούν πληροφορίες / παραδείγματα σχετικά με την GET.CELL θα είμαι στη διάθεση σας.

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

Φιλικά

Τάσος

[kapetang]

Φίλε Τάσο ευχαριστώ πολύ.

Δεν περίμενα να περιορίζονται οι ιδιότητες του αντικειμένου «Range», όταν καλείται μέσα από UDF.

Συμφωνώ με τη λύση που προτείνεις (χρήση της συνθήκης μορφοποίησης).

Στη συνάρτηση UDF κατέφυγα, επειδή δεν ήταν γνωστή η συνθήκη και για πειραματισμό.

Κάτι έμαθα….

Να είσαι καλά.

[November]

Καλησπέρα!
Τελικά μπορουμε να'χουμε μια ολοκληρωμενη προταση που να λειτουργει συμφωνα και με τις υποδείξεις του Τασου??
Ευχαριστω.

[ChrisGT7]

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

Δοκίμασε το συνημμένο αρχείο αν σε βοηθάει κάπως. Βλέπω πως χρησιμοποιείς και την έκδοση 2016 πλέον, οπότε ελπίζω να μην έχεις κάποιο πρόβλημα με τον κώδικα.

Χρησιμοποιώ κάπως την ιδέα του Γιώργο και την πολύτιμη βοήθεια του Τάσου μέσω του γεγονότος Worksheet_Change. Όταν πληκτρολογείς στο εύρος Β1:Β33 έναν αριθμό μεγαλύτερο του 10, προστίθεται στο Β35 και αφαιρείται από το γενικό σύνολο του εύρους (Β34).