Ana içeriğe atla

Excel'deki bir hücre aralığındaki kalın sayıları nasıl toplayabilirim / sayabilirim?

Bir çalışma sayfasında bazı kalın sayılar içeren bir veri aralığınız olduğunda ve şimdi yalnızca kalın hücreleri toplamak veya saymak istediğinizde, elbette bunları tek tek elle ekleyebilirsiniz, ancak bu zaman alıcı olacaktır. Excel'de yalnızca kalın hücreleri kolay ve hızlı bir şekilde nasıl toplayabilir veya sayabilirsiniz?

Kullanıcı Tanımlı İşlevle (VBA ve formül) bir aralıktaki kalın sayıları sayın
Kullanıcı Tanımlı İşlevle (VBA ve formül) bir aralıktaki kalın sayıları toplama
Kutools for Excel ile bir aralıktaki kalın hücreleri saymak ve toplamak için birkaç tıklama


Kullanıcı Tanımlı İşleviyle bir aralıktaki kalın sayıları sayın

Aşağıdaki Kullanıcı Tanımlı İşlev kalın hücre sayısını hızlı bir şekilde almanıza yardımcı olabilir. Lütfen şunu yapın:

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Bir hücre aralığında kalın sayıları sayın

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. Ardından bu kodu kaydedin ve bu formülü yazın = Kalın Kalın (A1: C9) boş bir hücreye, ekran görüntüsüne bakın:

doc-count-kalın-hücreler1

4. Daha sonra tuşuna basın. Keşfet tuşuna basın ve A1: C9 aralığındaki kalın hücreleri sayacaksınız.

doc-count-kalın-hücreler2

Not:A1: C9 Formülde kalın hücreleri saymak için fonksiyonu kullanmak istediğiniz aralığı belirtir, ihtiyacınıza göre değiştirebilirsiniz.


Kullanıcı Tanımlı İşleviyle bir aralıktaki kalın sayıları toplama

Ve bir veri aralığındaki yalnızca kalın sayıları toplamak isterseniz, çözmeniz için kullanıcı tanımlı bir işlev de oluşturabilirim.

1. basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Bir hücre aralığında kalın sayıları toplayın

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. Ardından bu kodu kaydedin ve bu formülü yazın = sumbold (A1: C9) boş bir hücreye, ekran görüntüsüne bakın:

doc-count-kalın-hücreler3

4. Ve sonra tuşuna basın. Keşfet tuşu, A1: C9 aralığındaki tüm kalın sayılar eklendi. Ekran görüntüsüne bakın:

doc-count-kalın-hücreler4

Not:A1: C9 Formülde kalın hücreleri toplamak için işlevi kullanmak istediğiniz aralığı belirtir, ihtiyacınıza göre değiştirebilirsiniz.


Kutools for Excel ile bir aralıktaki kalın hücreleri saymak ve toplamak için birkaç tıklama

You, karmaşık VBA kodunu kullanmadan ve formülleri hatırlamadan, bir aralıktaki tüm kalın hücreleri birkaç tıklama ile kolayca sayabilir veya toplayabilir.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Kalın hücreleri saymak için, lütfen sonucu bulmak için boş bir hücre seçin ve ardından Kutools > Kutools İşlevleri > İstatistik ve Matematik > COUNTBYFONTBOLD.

Ve kalın hücreleri toplamak için tıklayın Kutools > Kutools İşlevleri > İstatistik ve Matematik > ÖZETFONTBOLD. Ekran görüntüsüne bakın:

2. F'deunction Argümanlar iletişim kutusunda, saymanız veya toplamanız gereken kalın hücreli aralığı Referans kutusunda belirtin ve ardından OK düğmesine basın.

Şimdi, belirtilen aralıktaki tüm kalın hücrelerin sayımı veya toplamı, seçilen hücreye hemen doldurulur. Ekran görüntüsüne bakın:

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


Kutools for Excel ile formül hücresi referansını sabit tutun


İlgili Makaleler:

Excel'deki tüm kalın hücreler veya metinler nasıl belirlenir ve seçilir?

En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

kte sekmesi 201905


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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