Przejdź do głównej zawartości

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 mieć bezpłatną wersję próbną (30 dni) 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

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


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!
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello Anthony,
I was struggling with the same problem. For me, the solution ended up being very simple. I noticed I had 4 Modules listed. I removed all of them and then started over with the above instructions. Now it works perfectly.
This comment was minimized by the moderator on the site
I use the function and keep getting the #NAME? error. I am using Excel 365 and Windows11.
This comment was minimized by the moderator on the site
Hello, Anthony

Have you copied and pasted the code into the Module of Microsoft Visual Basic for Applications window in your worksheet? Afetr pasting the code, then, you should enter the formula as you need.

Or you can upload your file here, we can check where the problem is.

Thank you!
This comment was minimized by the moderator on the site
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
This comment was minimized by the moderator on the site
Hello Carlo,

Gald to help. After you bold new cells, the sum won't update automatically. But when you double-click the formula cell, then press Enter, the sum will update. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hi Mandy,
thanks for your reply,
Yes I know that after double click the sum will uograde.
Is there any way to upgrade automatically the sum ?

Regards
Carlo
This comment was minimized by the moderator on the site
Hello Carlo,

Sorry that I don't have the solution for automatically upgrading the sum. The easiest way I can think of is to press Ctrl + Alt + F9 to recalculate all worksheets in all open workbooks. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
This comment was minimized by the moderator on the site
RE: CountBold formula This formula does not appear to be dynamic. While it works at first pass, if i change the bolded cells the counters do not update unless i re-enter the formula again. Any tips?
This comment was minimized by the moderator on the site
Yea this is the same for me, otherwise it works great. But if this could be solved so it refreshes the count after each cell deselect like other basic counts it would be perfect!
This comment was minimized by the moderator on the site
Dear guys,
The formula won't update if you just change the format of the number cells.
It updates only when you change the cell content.
This comment was minimized by the moderator on the site
I'm using excel for mac 2011. How can I run the code on my system? thanks!
This comment was minimized by the moderator on the site
I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!
This comment was minimized by the moderator on the site
[quote]I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!By Maey[/quote] You have to follow the instruction. It says: "Click Insert > Module, and paste the following code in the Module Window", and you have to do exactly so. Make sure you paste the code in the Module Window, not in the Sheet code Window.
This comment was minimized by the moderator on the site
Thank you.. it's working...
This comment was minimized by the moderator on the site
This works a treat. I only have one issue...it doesn't seem to be adding anything after a decimal point. Any help would be greatly appreciated.
This comment was minimized by the moderator on the site
This works perfectly except it doesn't seem to add my decimal places, only adds the whole dollar. If you have a fix for this I would be very grateful.
This comment was minimized by the moderator on the site
Hi Katie, Use the below code, as the sum shows decimal places. Function 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 Next End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations