Note: The other languages of the website are Google-translated. Back to English

Jak sumować / liczyć pogrubione liczby w zakresie komórek w programie Excel?

Jeśli masz zakres danych, który zawiera pogrubione liczby w arkuszu, a teraz chcesz zsumować lub policzyć tylko pogrubione komórki, możesz oczywiście dodawać je ręcznie pojedynczo, ale będzie to czasochłonne. Jak możesz zsumować lub policzyć tylko pogrubione komórki w Excelu w łatwy i szybki sposób?

Policz pogrubione liczby w zakresie za pomocą funkcji zdefiniowanej przez użytkownika (VBA i formuła)
Sumuj pogrubione liczby w zakresie za pomocą funkcji zdefiniowanej przez użytkownika (VBA i formuła)
Kilka kliknięć, aby policzyć i zsumować pogrubione komórki w zakresie za pomocą Kutools for Excel


Policz pogrubione liczby w zakresie z funkcją zdefiniowaną przez użytkownika

Poniższy Funkcja zdefiniowana przez użytkownika może pomóc szybko uzyskać liczbę pogrubionych komórek. Zrób tak:

1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: Policz pogrubione liczby w zakresie komórek

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Następnie zapisz ten kod i wpisz tę formułę = CountBold (A1: C9) do pustej komórki, zobacz zrzut ekranu:

liczba-dokumentów-pogrubiona-komórki1

4. Następnie naciśnij Wchodzę i policzysz pogrubione komórki w zakresie A1: C9.

liczba-dokumentów-pogrubiona-komórki2

Uwaga:A1: C9 we wzorze wskazuje zakres, w którym chcesz użyć funkcji do zliczenia pogrubionych komórek, możesz go zmienić według potrzeb.


Sumuj pogrubione liczby w zakresie za pomocą funkcji zdefiniowanej przez użytkownika

A jeśli chcesz zsumować tylko pogrubione liczby w zakresie danych, mogę również utworzyć funkcję zdefiniowaną przez użytkownika, aby ją rozwiązać.

1. Przytrzymaj przycisk ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: sumuj pogrubione liczby w zakresie komórek

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Następnie zapisz ten kod i wpisz tę formułę = sumbold (A1: C9) do pustej komórki, zobacz zrzut ekranu:

liczba-dokumentów-pogrubiona-komórki3

4. A następnie naciśnij Wchodzę klawisz, wszystkie pogrubione liczby z zakresu A1: C9 zostały zsumowane. Zobacz zrzut ekranu:

liczba-dokumentów-pogrubiona-komórki4

Uwaga:A1: C9 we wzorze wskazuje zakres, w którym chcesz użyć funkcji do zsumowania pogrubionych komórek, możesz go zmienić w razie potrzeby.


Kilka kliknięć, aby policzyć i zsumować pogrubione komórki w zakresie za pomocą Kutools for Excel

YMożesz łatwo policzyć lub zsumować wszystkie pogrubione komórki w zakresie za pomocą kilku kliknięć bez obsługi skomplikowanego kodu VBA i zapamiętywania formuł.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Aby policzyć pogrubione komórki, wybierz pustą komórkę do zlokalizowania wyniku, a następnie kliknij Kutools > Funkcje Kutools > Statystyka i matematyka > LICZ.CZCIONKIBOLD.

Aby podsumować pogrubione komórki, kliknij Kutools > Funkcje Kutools > Statystyka i matematyka > SUMBYCZCIONKIBOLD. Zobacz zrzut ekranu:

2. W FArgumenty dotyczące funkcji W oknie dialogowym określ zakres pogrubionymi komórkami, które chcesz policzyć lub zsumować, w polu Odwołanie, a następnie kliknij OK przycisk.

Teraz zliczanie lub sumowanie wszystkich pogrubionych komórek w określonym zakresie jest natychmiast wypełniane w wybranej komórce. Zobacz zrzut ekranu:

  Jeśli chcesz skorzystać z bezpłatnego okresu próbnego (30-dzień) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Zachowaj stałą odwołania do komórki formuły za pomocą Kutools for Excel


Powiązane artykuły:

Jak zidentyfikować i zaznaczyć wszystkie pogrubione komórki lub tekst w programie Excel?


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (21)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
witam, używam programu Excel 2013 Dutch z kutools 6.5, ale nie mogę parapetować przy użyciu układu czytania. zapytaj zanim krzyk zostanie rozwiązany w tej wersji ???
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat] witam, używam programu Excel 2013 Dutch z kutools 6.5, ale nie mogę się rozłączyć przy użyciu układu czytania. zapytaj zanim krzyk zostanie rozwiązany w tej wersji ???By[/quote] Witam, proszę o kontakt pod adresem jaychivo#extendoffice.com. Zastąp # znakiem @. :-)
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób liczenia na podstawie koloru komórki, jeśli tekst jest pogrubiony?
Ten komentarz został zminimalizowany przez moderatora na stronie
TO JEST NIESAMOWITE !!!! Działało idealnie !! Dziękuję Ci
Ten komentarz został zminimalizowany przez moderatora na stronie
Działa to doskonale, z wyjątkiem tego, że wydaje się, że nie dodaje moich miejsc po przecinku, tylko dodaje całego dolara. Jeśli masz na to rozwiązanie, byłbym bardzo wdzięczny.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Katie, Użyj poniższego kodu, ponieważ suma pokazuje miejsca dziesiętne. Funkcja SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 For Each rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Następna funkcja końcowa
Ten komentarz został zminimalizowany przez moderatora na stronie
To działa świetnie. Mam tylko jeden problem… wydaje się, że nie dodaje niczego po przecinku. Każda pomoc byłaby bardzo mile widziana.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję... to działa...
Ten komentarz został zminimalizowany przez moderatora na stronie
Skopiowałem i wkleiłem kod do programu Excel, ale otrzymałem #NAME? błąd. Upewniłem się, że włączyłem makra i używałem wersji Excel 2010 (nie wiem, czy to coś zmienia). Czy ktoś może mi pomóc?!
Ten komentarz został zminimalizowany przez moderatora na stronie
[quote]Skopiowałem i wkleiłem kod do programu Excel, ale otrzymałem #NAME? błąd. Upewniłem się, że włączyłem makra i używałem wersji Excel 2010 (nie wiem, czy to coś zmienia). Czy ktoś może mi pomóc?!Przez Maey[/cytat] Musisz postępować zgodnie z instrukcją. Mówi: „Kliknij Wstaw > Moduł i wklej następujący kod w oknie modułu” i musisz to zrobić. Upewnij się, że wklejasz kod w oknie modułu, a nie w oknie kodu arkusza.
Ten komentarz został zminimalizowany przez moderatora na stronie
Używam programu Excel dla mac 2011. Jak mogę uruchomić kod w moim systemie? dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
RE: Formuła CountBold Ta formuła nie wydaje się być dynamiczna. Chociaż działa to przy pierwszym przejściu, jeśli zmienię pogrubione komórki, liczniki nie zaktualizują się, chyba że ponownie wprowadzę formułę. Jakieś wskazówki?
Ten komentarz został zminimalizowany przez moderatora na stronie
Tak, u mnie jest tak samo, poza tym działa świetnie. Ale jeśli można to rozwiązać, więc odświeża licznik po usunięciu zaznaczenia każdej komórki, podobnie jak inne podstawowe liczniki, byłoby idealnie!
Ten komentarz został zminimalizowany przez moderatora na stronie
Drodzy,
Formuła nie zostanie zaktualizowana, jeśli po prostu zmienisz format komórek liczbowych.
Aktualizuje się tylko wtedy, gdy zmienisz zawartość komórki.
Ten komentarz został zminimalizowany przez moderatora na stronie
А если в ячейках числа и текст? nado просумировать только ячейки с числами жирным шрифтом.
Ten komentarz został zminimalizowany przez moderatora na stronie
Ma se metto in grassetto nowa komórka, la somma non si aggiorna !!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Carlo,

Chętnie pomożemy. Po pogrubieniu nowych komórek suma nie zostanie automatycznie zaktualizowana. Ale po dwukrotnym kliknięciu komórki z formułą, a następnie naciśnięciu klawisza Enter, suma zostanie zaktualizowana. Proszę spróbować.

Pozdrawiamy,
Mandy
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Mandy,
dzięki za odpowiedź,
Tak, wiem, że po dwukrotnym kliknięciu suma się zmieni.
Czy jest jakiś sposób na automatyczne podwyższenie sumy?

pozdrowienia
Carlo
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Carlo,

Przepraszam, że nie mam rozwiązania do automatycznego uaktualniania sumy. Najprostszym sposobem, jaki przychodzi mi do głowy, jest naciśnięcie Ctrl + Alt + F9, aby ponownie obliczyć wszystkie arkusze we wszystkich otwartych skoroszytach. Miłego dnia.

Pozdrawiamy,
Mandy
Ten komentarz został zminimalizowany przez moderatora na stronie
Korzystam z funkcji i ciągle otrzymuję komunikat #NAZWA? błąd. Używam Excela 365 i Windowsa 11.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Antoni

Czy skopiowałeś i wkleiłeś kod do pliku Moduł of Okno Microsoft Visual Basic for Applications w twojej karcie pracy? Po wklejeniu kodu powinieneś wprowadzić formułę zgodnie z potrzebami.

Lub możesz przesłać swój plik tutaj, możemy sprawdzić, gdzie jest problem.

Dziękuję Ci!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL