Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Μορφοποίηση] Χρωματισμός κελιών βάσει σημερινής ημερομηνίας (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5431-xromatismos-kelion-basei-simerinis-imerominias.html)

Skakinen 14-01-20 21:36

Χρωματισμός κελιών βάσει τρέχουσας ημερομηνίας
 
1 Συνημμένο(α)
Καλησπέρα!

Διαμορφώνω ένα αρχείο με ημερολόγιο, βάσει ενός προτύπου που βρήκα στο διαδίκτυο.
Έχω ορίσει, με ''Μορφοποίηση υπό όρους'', να χρωματίζεται το κελί που περιέχει την τρέχουσα ημερομηνία αλλά θα ήταν πιο φιλικό στο μάτι αν χρωματιζόταν ολόκληρη η περιοχή με τα κελιά της ημέρας, όπως φαίνεται η 6η Ιανουαρίου (δείτε το συνημμένο).
Θα μπορούσε να γίνει κάτι τέτοιο;

Ευχαριστώ!

kapetang 15-01-20 13:01

1 Συνημμένο(α)
Καλημέρα

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

1) Επιλέγουμε τα κελιά μιας μέρας και ανοίγουμε το παράθυρο μορφοποίησης υπό όρους.

2) Επιλέγουμε χρήση τύπου για τη μορφοποίηση και τύπο της μορφής: =$H$16=TODAY()

3) Ορίζουμε το χρώμα γεμίσματος της περιοχής.

Επειδή αυτό χειροκίνητα απαιτεί αρκετή δουλειά, το αυτοματοποίησα με κώδικα (μακροεντολή addFC).

Ο κώδικας στη λωρίδα των κελιών B:O βρίσκει τα κελιά που έχουν ημερομηνία και ακολούθως ορίζει την περιοχή κελιών της σχετικής μέρας και τη μορφοποίηση.

Έτρεξα τον κώδικα για το φύλλο «ΙΑΝ», που έχει όλους τους μήνες.

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

Αν θέλουμε να τρέξουμε τον κώδικα για το φύλλο πχ «ΦΕΒ»:

1) Το κάνουμε ενεργό (κλικ στην καρτέλα του).

2) Πατούμε Alt+ F11 για να πάμε στο παράθυρο του κώδικα.

3) Κάνουμε κλικ μέσα στον κώδικα και πατούμε το F5 για να τρέξει ο κώδικας.

4) Περιμένουμε (θέλει κάποιο χρόνο αφού εξετάζονται όλα τα κελιά της λωρίδας B:O) να ολοκληρωθεί ο κώδικας.

Skakinen 15-01-20 20:23

Καλησπέρα!

Γιώργο, ευχαριστώ πολύ για το χρόνο σου!
Εξαιρετική η λύση με τον κώδικα και δουλεύει μια χαρά!

:biggrin:

kapetang 15-01-20 23:24

Να είσαι καλά Διονύση και καλή συνέχεια.


Η ώρα είναι 06:27.

Ms-Office.gr - ©2000 - 2024, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2