Η Emily ρωτά:
Σας παρακαλούμε να συμβουλευτείτε την τυπική λύση για την καταμέτρηση του αριθμού των κελιών που έχουν ένα συγκεκριμένο χρώμα backgorund (δηλαδή αυτά τα κελιά περιέχουν ορισμένα δεδομένα, ωστόσο το χρώμα είναι αυτό που είναι σημαντικό για να τα μετρήσετε).
Λογικά πιστεύω ότι πρέπει να ακολουθεί ένα τυπικό τυπικό δηλαδή
CountIF(A01:A55,"backgroundcolour=red")Πιστεύω ότι το κόκκινο χρώμα πρέπει να αναγνωρίζεται από τον αριθμό 3 (σύμφωνα με το αρχείο βοήθειας)
Πρέπει να ξέρω πώς να κωδικοποιήσω το χρώμα του κελιού του φόντου, δηλαδή το χρώμα, το φόντο, το χρώμα, το εσωτερικό.χρώμα;… ???
Emily - αν ήταν τόσο εύκολο. Πρέπει να έχετε μια λειτουργία καθορισμένη από το χρήστη στο VBA. Παρακάτω είναι ο κωδικός για τη συνάρτηση. Πρέπει να το εισαγάγετε σε μια νέα ενότητα κώδικα στο βιβλίο εργασίας.
Μόλις εισαγάγετε τον κωδικό, μπορείτε να χρησιμοποιήσετε αυτόν τον τύπο:
=CountColor(A1:A99,D2)
Όπου το D2 έχει τη μορφή φόντου που θέλετε να μετρήσετε.
Εδώ είναι ο κωδικός:
Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function
