Πώς να δημιουργήσετε αθροίσματα χρωμάτων
Θέλετε να προσθέσετε περιεχόμενο κελιού, αλλά να λάβετε υπόψη το χρώμα των κελιών; Μπορείτε να το κάνετε με μια μακροεντολή. Το παρακάτω σχήμα δείχνει έναν πίνακα δεδομένων στον οποίο ορισμένα κελιά έχουν κίτρινο φόντο (κίτρινο χρώμα πλήρωσης):
Για να προσθέσετε μόνο τα κελιά από την τρέχουσα επιλογή που έχουν κίτρινο χρώμα φόντου, χρησιμοποιήστε την ακόλουθη μακροεντολή:
Sub AddColor cells ()
Dim Sum Όσο καιρό
Dim Cell As Range
Για κάθε κελί σε επιλογή
Αν Cell.Interior.ColorIndex = 6 Τότε
Άθροισμα = Άθροισμα + κελί. Αξία
Τέλος εαν
Επόμενο κελί
MsgBox "Το άθροισμα χρώματος είναι:" & άθροισμα
Τέλος υπο
Μετά την εκκίνηση της μακροεντολής, το Excel σας δείχνει το άθροισμα των κελιών σε ένα παράθυρο, τα οποία επισημαίνονται με κίτρινο χρώμα φόντου. Το παρακάτω σχήμα δείχνει πώς μοιάζει το αποτέλεσμα αν επιλέξετε το εύρος κελιών που παρουσιάζεται παραπάνω:
Για να χρησιμοποιήσετε άλλα χρώματα αντί για κελιά με κίτρινο φόντο, προσαρμόστε την τιμή σύγκρισης στο ερώτημα If. Αντικαταστήστε άλλες τιμές με κίτρινο αντί για 6. Για να μάθετε ποια τιμή για το ColorIndex θα χρησιμοποιήσετε για ένα χρώμα της επιλογής σας, μπορείτε να χρησιμοποιήσετε μια μικρή μακροεντολή. Κάντε κλικ σε ένα κελί της επιλογής σας και ξεκινήστε την ακόλουθη μακροεντολή για να μάθετε με ποιο χρώμα φόντου έχει διαμορφωθεί το ενεργό κελί:
Sub ActiveColor ()
MsgBox "Ενεργό χρώμα φόντου:" & _
(Επιλογή (1, 1). Εσωτερικό. ColorIndex)
Τέλος υπο
Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
