Σε αυτό το άρθρο, θα δημιουργήσουμε μια προσαρμοσμένη συνάρτηση για τον υπολογισμό του αθροίσματος των αριθμών στα κελιά της περιοχής που έχει καθορισμένο χρώμα.
Για αυτό το παράδειγμα, τα δείγματα δεδομένων αποτελούνται από δεδομένα ομάδας πωλήσεων. Τα δεδομένα της ομάδας πωλήσεων περιέχουν λεπτομέρειες που σχετίζονται με τον αριθμό των πωληθέντων αντικειμένων. Περιέχει πληροφορίες σχετικά με το προϊόν που διατίθενται σε τρία χρώματα Γκρι, Κόκκινο και Πράσινο. Θέλουμε να βρούμε το άθροισμα του προϊόντος που πωλείται ανά χρώμα προϊόντος.
Για να υπολογίσουμε το άθροισμα ανά χρώμα, έχουμε δημιουργήσει μια προσαρμοσμένη συνάρτηση "SumByColor". Αυτή η συνάρτηση λαμβάνει δύο παραμέτρους εύρους ως είσοδο. Η παράμετρος πρώτου εύρους καθορίζει το εσωτερικό χρώμα του κελιού και η παράμετρος δεύτερης περιοχής ορίζει το εύρος δειγμάτων.
Επεξήγηση κώδικα
Εφαρμογή. Το πτητικό χρησιμοποιείται επειδή επανυπολογίζει κάθε φορά που αλλάζει μια τιμή κελιού στο βιβλίο εργασίας.
DefinedColorRange.Interior.ColorIndex
Ο παραπάνω κώδικας χρησιμοποιείται για να πάρει το εσωτερικό χρώμα της καθορισμένης περιοχής.
Ακολουθήστε παρακάτω για τον κωδικό
Option Explicit Function SumByColor (DefinedColorRange As Range, SumRange As Range) Application.Polatile 'Declaring variables Dim ICol As Integer Dim GCell As Range' Λήψη του εσωτερικού χρώματος του κελιού ICol = DefinedColorRange.Interior.ColorIndex 'Looping through the defined range For each GCell In SumRange If ICol = GCell.Interior.ColorIndex Στη συνέχεια 'Λήψη του αθροίσματος του αντιστοιχισμένου έγχρωμου κελιού SumByColor = SumByColor + GCell.Value End If Next GCell End function
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email