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

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 > SUMBYFONTBOLD. 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:

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, 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 Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (22)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba, excel 2013 Dutch'ı kutools 6.5 ile kullanmak, ancak okuma düzenini kullanarak eşik olamaz. bu sürümde çözülmeden önce sor ???
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]merhaba, excel 2013 Dutch'ı kutools 6.5 ile kullanmak, ancak okuma düzenini kullanarak pervazı yapamıyor. bu sürümde çözülmeden önce sor ???kersten tarafından[/quote] Merhaba, lütfen jaychivo# adresinden bana ulaşınextendoffice.com. Lütfen # ile @ ile değiştirin. :-)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Metin kalınsa hücre rengine göre saymanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
BU MÜKEMMEL !!!! Mükemmel çalıştı! Teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu, ondalık basamaklarımı eklemiyor gibi görünmesi dışında mükemmel çalışıyor, yalnızca tüm doları ekliyor. Bunun için bir düzeltmeniz varsa çok minnettar olurum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Katie, Toplam ondalık basamakları gösterdiğinden aşağıdaki kodu kullanın. Fonksiyon SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 rng'deki Her rCell için Eğer rCell.Font.Bold ise _ SumBold = SumBold + rCell Sonraki Uç Fonksiyon
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu bir tedavi olarak çalışır. Sadece bir sorunum var ... ondalık noktadan sonra hiçbir şey eklenmemiş gibi görünüyor. Herhangi bir yardım çok takdir edilecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim.. çalışıyor...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodu kopyalayıp excel'e yapıştırdım ama #NAME? hata. Makroları etkinleştirdiğimden ve excel 2010 sürümünü kullandığımdan emin oldum (bunun bir şeyi değiştirip değiştirmediğini bilmiyorum). Biri lütfen yardım edebilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Kodu kopyalayıp excel'e yapıştırdım ama #NAME olsun mu? hata. Makroları etkinleştirdiğimden ve excel 2010 sürümünü kullandığımdan emin oldum (bunun bir şeyi değiştirip değiştirmediğini bilmiyorum). Biri lütfen yardım edebilir mi?Maey tarafından[/quote] Talimatı takip etmelisiniz. "Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın" diyor ve tam olarak bunu yapmanız gerekiyor. Kodu, Sayfa kodu Penceresine değil, Modül Penceresine yapıştırdığınızdan emin olun.
Bu yorum sitedeki moderatör tarafından en aza indirildi
mac 2011 için excel kullanıyorum. Kodu sistemimde nasıl çalıştırabilirim? Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
RE: CountBold formülü Bu formül dinamik görünmüyor. İlk geçişte çalışırken, kalın olan hücreleri değiştirirsem, formülü tekrar girmedikçe sayaçlar güncellenmiyor. Herhangi bir ipucu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Evet bu benim için aynı, aksi halde harika çalışıyor. Ancak bu, diğer temel sayılar gibi her hücrenin seçimini kaldırdıktan sonra sayımı yenileyecek şekilde çözülebilseydi, mükemmel olurdu!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili çocuklar,
Yalnızca sayı hücrelerinin biçimini değiştirirseniz formül güncellenmez.
Yalnızca hücre içeriğini değiştirdiğinizde güncellenir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Okul ve teknolojiye ne dersiniz? надо просуммировать только ячейки с числами жирным шрифтом.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Grasetto nuove celle, la somma non si aggiorna !!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Carlo

Gald yardım edecek. Yeni hücreleri kalınlaştırdıktan sonra, toplam otomatik olarak güncellenmez. Ancak formül hücresine çift tıklayıp Enter tuşuna bastığınızda, toplam güncellenecektir. Lütfen bir deneyin.

En içten dileklerimizle,
Mandy
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Mandy,
cevabın için teşekkürler,
Evet, çift tıkladıktan sonra toplamın yükseleceğini biliyorum.
Toplamı otomatik olarak yükseltmenin bir yolu var mı?

Saygılarımızla
Carlo
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Carlo

Toplamı otomatik olarak yükseltmek için bir çözüme sahip olmadığım için üzgünüm. Aklıma gelen en kolay yol, tüm açık çalışma kitaplarındaki tüm çalışma sayfalarını yeniden hesaplamak için Ctrl + Alt + F9 tuşlarına basmaktır. İyi günler.

En içten dileklerimizle,
Mandy
Bu yorum sitedeki moderatör tarafından en aza indirildi
İşlevi kullanıyorum ve #AD almaya devam ediyorum? hata. Excel 365 ve Windows11 kullanıyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Anthony

Kodu kopyalayıp yapıştırdınız mı? modül of Uygulamalar için Microsoft Visual Basic penceresi çalışma sayfanızda? Kodu yapıştırdıktan sonra, ihtiyacınız olan formülü girmelisiniz.

Veya dosyanızı buraya yükleyebilirsiniz, sorunun nerede olduğunu kontrol edebiliriz.

Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Anthony,
Aynı problemle mücadele ediyordum. Benim için çözüm çok basit oldu. Listelenen 4 Modülüm olduğunu fark ettim. Hepsini kaldırdım ve ardından yukarıdaki talimatlarla baştan başladım. Şimdi mükemmel çalışıyor.
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır