Udostępnij za pośrednictwem

Zlicz liczbę komórek o określonym kolorze komórki przy użyciu języka VBA

  • Dotyczy: Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Podsumowanie

Na karcie Formuły programu Microsoft Excel wiemy, że w kategoriiStatystyka>więcej funkcjiistnieje funkcja o nazwie COUNTIF, która zlicza liczbę komórek w zakresie spełniającym dany warunek. Kryteria dla tej funkcji są ograniczone do tekstu lub liczb. Jednak za pomocą funkcji VBA możemy utworzyć funkcję do zliczania liczby komórek z innymi kryteriami, takimi jak kolor komórki.

COUNTIF

Więcej informacji

Za pomocą usługi VBA można utworzyć i zapisać funkcję zdefiniowaną przez użytkownika w pliku dodatku, aby można było jej używać w innych skoroszytach i przenosić ją na inne komputery.

Jak utworzyć usługę UDF

Poniżej przedstawiono kroki tworzenia funkcji zdefiniowanej przez użytkownika w celu zliczenia koloru komórki:

  1. Otwórz program Microsoft Excel, a następnie naciśnij klawisze Alt+F11, aby wyświetlić okno Edytor języka Visual Basic (VBE).

  2. W menu Wstaw wybierz pozycję Moduł , aby utworzyć moduł. Następnie wpisz następujący skrypt:

    Function CountCcolor(range_data As range, criteria As range) As Long     Dim datax As range     Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data     If datax.Interior.ColorIndex = xcolor Then         CountCcolor = CountCcolor + 1     End If Next datax End Function

    W menu Wstaw wybierz pozycję Moduł, aby utworzyć moduł. Następnie napisz następujący skrypt

  3. Zamknij okno VBE, aby powrócić do programu Excel.

  4. Aby przetestować interfejs użytkownika, utwórz przykładowe dane zawierające kolumnę komórek w różnych kolorach.

  5. W komórce D3 zapisz funkcję:

=CountCcolor(range_data,criteria)

  • W argumencie "range_data" wybierz komórkę C2 do C51.

  • W argumencie "kryteria" wybierz komórkę F1.

    W komórce D3 zapisz funkcję: =CountCcolor

  1. Naciśnij klawisz Enter. Wynik w komórce F2 to 6. Oznacza to, że liczba komórek zacienionych na niebiesko wynosi 6.

    Naciśnij klawisz Enter i w komórce F2 wynik to 6. Oznacza to, że liczba komórek o kolorze niebieskiej komórki wynosi 6 komórek

  2. Możesz przetestować przy użyciu innych kolorów. Zmień kolor w komórce F1 na dowolny kolor danych przy użyciu>koloru wypełnienia głównego.

    Możesz również przetestować inny kolor. Zmień kolor w komórce F1 na dowolny kolor danych, używając narzędzia Malarz formatów, aby uzyskać ten sam kolor

  3. Możesz również spakować funkcję UDF, aby można było jej używać w innym skoroszycie lub na innym komputerze. Aby tak zrobić, wykonaj następujące kroki:

    Krok 1. Zapisywanie skoroszytu

    a. Wybierz pozycję Plik, a następnie pozycję Zapisz jako. (W razie potrzeby wybierz pozycję Przeglądaj ).

    b. Wybierz pozycję Excel Add-In (xlam) jako format i nadaj plikowi nazwę, taką jak CountCcolor.

    Uwaga

    Plik Add-In można zapisać w dowolnym miejscu. Aby można było go jednak wyświetlić jako Add-In w programie Excel, zapisz go w lokalizacji domyślnej. W systemie Windows 7 domyślną lokalizacją dla dowolnej wersji programu Microsoft Excel jest: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Krok 2. Instalowanie dodatku

    a. Otwórz program Microsoft Excel na komputerze, na którym chcesz zainstalować dodatek.

    b. Otwórz okno dialogowe Add-Ins, wybierając pozycję Dodatki programu Excel dla programu Excel 2013 i nowszych na karcie Deweloper . (Dodatki w programie Excel 2010).

    c. W oknie dialogowym Dodatki wybierz pozycję Przeglądaj. W oknie dialogowym Add-In kliknij przycisk Przeglądaj, aby wyświetlić okno dialogowe Przeglądaj.

    d. Przejdź do lokalizacji pliku, w której jest zapisywany plik Add-In (np. dysk USB lub folder oparty na chmurze). Wybierz plik, a następnie wybierz pozycję Otwórz.

    e. W oknie dialogowym Add-Ins upewnij się, że pole wyboru dodatku nie zostało zaznaczone. Następnie wybierz przycisk OK. W oknie dialogowym Add-Ins upewnij się, że pole wyboru dodatku nie jest zaznaczone. Następnie wybierz przycisk OK.

Funkcja UDF Count Cell Color jest zainstalowana i gotowa do użycia. Dostęp do tej funkcji będzie można uzyskać w dowolnym momencie, umieszczając kursor w dowolnej komórce w arkuszu i wpisując:

=CountCcolor(range_data,criteria)

Rozwiązania społecznościowe – zrzeczenie się odpowiedzialności za treść

FIRMA MICROSOFT CORPORATION I/LUB JEJ ODPOWIEDNI DOSTAWCY NIE SKŁADAJĄ ŻADNYCH OŚWIADCZEŃ DOTYCZĄCYCH PRZYDATNOŚCI, NIEZAWODNOŚCI ANI DOKŁADNOŚCI INFORMACJI I POWIĄZANYCH GRAFIK ZAWARTYCH W NINIEJSZYM ARTYKULE. WSZYSTKIE TAKIE INFORMACJE I POWIĄZANE GRAFIKI SĄ DOSTARCZANE "W TAKIM STANIE, W JAKIM SĄ" BEZ JAKIEJKOLWIEK GWARANCJI. FIRMA MICROSOFT I/LUB JEJ ODPOWIEDNI DOSTAWCY NINIEJSZYM ZRZEKAJĄ SIĘ WSZELKICH GWARANCJI I WARUNKÓW W ODNIESIENIU DO TYCH INFORMACJI I POWIĄZANYCH GRAFIK, W TYM WSZYSTKICH DOMNIEMANYCH GWARANCJI I WARUNKÓW PRZYDATNOŚCI HANDLOWEJ, PRZYDATNOŚCI DO OKREŚLONEGO CELU, PRACY, TYTUŁU I BRAKU NARUSZENIA. UŻYTKOWNIK WYRAŹNIE ZGADZA SIĘ, ŻE W ŻADNYM WYPADKU FIRMA MICROSOFT I/LUB JEJ DOSTAWCY NIE BĘDĄ PONOSIĆ ODPOWIEDZIALNOŚCI ZA JAKIEKOLWIEK BEZPOŚREDNIE, POŚREDNIE, KARNE, PRZYPADKOWE, SPECJALNE, WTÓRNE SZKODY LUB JAKIEKOLWIEK SZKODY, W TYM, BEZ OGRANICZEŃ, SZKODY ZA UTRATĘ UŻYCIA, DANYCH LUB ZYSKÓW, WYNIKAJĄCE Z LUB W JAKIKOLWIEK SPOSÓB ZWIĄZANE Z WYKORZYSTANIEM LUB NIEMOŻNOŚCIĄ KORZYSTANIA Z INFORMACJI I POWIĄZANYCH GRAFIK ZAWARTYCH W NINIEJSZYM ARTYKULE, CZY NA PODSTAWIE UMOWY, CZYNU NIEDOZWOLONEGO, ZANIEDBANIA, ŚCISŁEJ ODPOWIEDZIALNOŚCI LUB W INNY SPOSÓB, NAWET JEŚLI FIRMA MICROSOFT LUB KTÓRYKOLWIEK Z JEJ DOSTAWCÓW ZOSTAŁ POINFORMOWANY O MOŻLIWOŚCI ODSZKODOWANIA.