Εάν είστε πάνω από μια συγκεκριμένη ηλικία, θα θυμάστε πότε όλες οι αναφορές υπολογιστών εκπονήθηκαν από το τμήμα MIS χρησιμοποιώντας το COBOL και έναν εκτυπωτή υψηλής ταχύτητας IBM Line. Αυτές οι αναφορές τυπώνονται πάντα σε χαρτί με την ονομασία "Greenbar". Τέσσερις σειρές ήταν σκιασμένες με πράσινο χρώμα και στη συνέχεια τέσσερις σειρές με λευκό χρώμα. Αυτές οι αναφορές είχαν 132 χαρακτήρες και η δυνατότητα παρακολούθησης των χρωμάτων σας βοήθησε να διατηρήσετε τη θέση σας στην αναφορά.
Η χρήση της μορφοποίησης Greenbar στο Excel έχει ωραία ρετρό εμφάνιση. Είναι ακόμη πιο εύκολο να ακολουθήσετε τις γραμμές σε όλη τη σελίδα. Αυτό το άρθρο θα συζητήσει τρεις επιλογές για την εφαρμογή μορφοποίησης πράσινης γραμμής σε μια αναφορά.
Μέθοδος 1
Χρησιμοποιήστε το AutoFormat
- Ξεκινήστε με δεδομένα σε μορφή λίστας.
- Επιλέξτε οποιοδήποτε κελί στη λίστα.
- Από το μενού, επιλέξτε Μορφή - Αυτόματη μορφοποίηση
- Στο παράθυρο διαλόγου AutoFormat, θα δείτε 6 μορφές. Χρησιμοποιήστε τη γραμμή κύλισης για να μετακινηθείτε προς τα κάτω στην τρίτη σελίδα των μορφών. Επιλέξτε τη μορφή που ονομάζεται List2. Κάντε κλικ στο OK.
Το Excel θα εφαρμόσει ένα εφέ πράσινης γραμμής όπως φαίνεται:
Το μειονέκτημα αυτής της μεθόδου είναι ότι καθώς ταξινομείτε τα δεδομένα, η μορφοποίηση ταξιδεύει με την αρχική σειρά. Αφού ταξινομήσετε τα παραπάνω δεδομένα ανά πελάτη, το ωραίο μοτίβο του 2-πράσινου που ακολουθείται από το 2-λευκό είναι ένα τυχαίο μοτίβο πράσινου και λευκού:
Μέθοδος 2
Χρησιμοποιήστε μορφοποίηση υπό όρους
- Επιλέξτε όλα τα κελιά στη λίστα σας.
- Από το μενού, επιλέξτε Μορφή> Μορφή υπό όρους
- Στο παράθυρο διαλόγου Μορφή υπό όρους, αλλάξτε το πρώτο αναπτυσσόμενο μενού από το "Cell Value Is" σε "Formula Is".
- Εισαγάγετε αυτόν τον τύπο στο πλαίσιο Τύπος:
=MOD(ROW(),2)=0 - Κάντε κλικ στο κουμπί Μορφή…
- Στο παράθυρο διαλόγου Μορφοποίηση κελιών, κάντε κλικ στην καρτέλα Μοτίβα
- Επιλέξτε ένα ανοιχτό πράσινο (ή ανοιχτό μπλε ή ανοιχτό κίτρινο) μοτίβο. Κάντε κλικ στο OK.
- Κάντε κλικ στο OK για να κλείσετε το παράθυρο διαλόγου Μορφοποίηση υπό όρους
Το αποτέλεσμα θα είναι ένα εφέ πράσινης γραμμής με κάθε άλλη σειρά να επισημαίνεται. Δημιουργείται με μορφοποίηση υπό όρους. Είστε ελεύθεροι να ταξινομήσετε ξανά τα δεδομένα, να διαγράψετε σειρές ή ακόμα και να εισαγάγετε σειρές στη μέση των δεδομένων. Το εφέ μορφοποίησης της πράσινης γραμμής θα παραμείνει.
Ο τύπος στο πλαίσιο μορφοποίησης υπό όρους χρησιμοποιεί τη συνάρτηση MOD. Θυμάστε όταν μάθατε για πρώτη φορά πώς να κάνετε μακρά διαίρεση; Αν έπρεπε να διαιρέσετε το 7 σε 25, μπορεί να βρείτε την απάντηση του "3 με ένα υπόλοιπο του 4"; Η συνάρτηση MOD σας λέει το υπόλοιπο μετά την πραγματοποίηση της διαίρεσης. Λοιπόν, =MOD(25,7)θα ήταν 4 - γιατί το υπόλοιπο μετά το 7 στο 25 είναι 4.
Στην παραπάνω μορφοποίηση υπό όρους, διαιρέσατε τον αριθμό σειράς με το 2. Εάν το υπόλοιπο ήταν 0, τότε είναι μια σειρά με ζυγή και εφαρμόστηκε το μοτίβο υπό όρους.
Είναι δυνατό να πειραματιστείτε με τον τύπο για να δημιουργήσετε εναλλακτικά μοτίβα ζώνης. Για παράδειγμα, διαιρέστε τον αριθμό γραμμής με το 8. Εάν το υπόλοιπο είναι 0 έως 3, χρησιμοποιήστε ένα πράσινο μοτίβο. Διαφορετικά, χρησιμοποιήστε το λευκό μοτίβο. Ακολουθούν ορισμένοι τύποι δειγμάτων:
- 2 Πράσινο ακολουθούμενο από 2 λευκό:
=MOD(ROW(),4)<2 - 3 Πράσινο ακολουθούμενο από 3 λευκά:
=MOD(ROW(),6)<3 - 4 Πράσινο ακολουθούμενο από 4 λευκό:
=MOD(ROW(),8)<4
Μέθοδος 3
Χρησιμοποιήστε μια μακροεντολή VBA
Η παραπάνω μέθοδος αποτυγχάνει εάν έχετε κρυμμένες σειρές στα δεδομένα σας. Αυτό είναι συνηθισμένο εάν χρησιμοποιείτε αυτόματο φίλτρο ή λειτουργία ομάδας και διάρθρωσης. Η μέθοδος 2 δεν μπορεί να χρησιμοποιηθεί εάν έχετε ήδη μορφοποίηση υπό όρους στα δεδομένα σας. Σε αυτήν την περίπτωση, η λύση είναι η ακόλουθη μακροεντολή. Εάν δεν είστε εξοικειωμένοι με τον Επεξεργαστή Visual Basic, διαβάστε την ενότητα Εισαγωγή του προγράμματος επεξεργασίας Excel VBA
Εισαγάγετε τον ακόλουθο κωδικό σε μια τυπική ενότητα:
Sub ApplyGreenBarToSelection() n = 0 For Each VisRow In Selection.Resize(, 1).SpecialCells(xlCellTypeVisible) n = n + 1 If n Mod 2 = 0 Then VisRow.EntireRow.Interior.ColorIndex = 35 End If Next VisRow End SubΣτην παρακάτω εικόνα, έχω ενεργοποιήσει τη δυνατότητα Αυτόματου φίλτρου και φιλτράρισα μόνο τις εγγραφές για τον πελάτη DEF. Επιλέξτε όλα τα κελιά στην επιλογή και χρησιμοποιήστε Εργαλεία - Μακροεντολές - Μακροεντολές για να εκτελέσετε το ApplyGreenBarToSelection.
Το κλειδί για αυτήν τη μακροεντολή VBA είναι η μέθοδος .SpecialCells.
