Excel’de bir hücre aralığındaki kalın biçimli sayıları nasıl toplarsınız veya sayarsınız?
Bir çalışma sayfasında kalın yazılmış sayılar içeren bir veri aralığınız varsa ve yalnızca bu kalın biçimli değerleri toplamak veya saymak istiyorsanız, bunu manuel olarak yapabilirsiniz; ancak bu oldukça zaman alıcıdır. Excel’de yalnızca kalın biçimli sayıları hızlı ve kolayca nasıl toplayabilir ya da sayabilirsiniz?
Kullanıcı Tanımlı İşlev (VBA ve formül) ile bir aralıktaki kalın sayıları sayma
Kullanıcı Tanımlı İşlev (VBA ve formül) ile bir aralıktaki kalın sayıları toplama
Kutools for Excel ile bir aralıkta kalın sayıları birkaç tıklamayla sayma ve toplama
Kullanıcı Tanımlı İşlev ile bir aralıktaki kalın sayıları sayma
Aşağıdaki Kullanıcı Tanımlı İşlev, kalın sayısını hızlıca elde etmenize yardımcı olabilir. Lütfen şu adımları izleyin:
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayıp aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Bir hücre aralığındaki kalın sayıları sayma
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 boş bir hücreye şu formülü girin:=CountBold(A1:C9)Ekran görüntüsüne bakın:
4. Ardından Enter tuşuna basın; böylece A1:C9 aralığında kalın yazılmış hücreler sayılacaktır.
Not: A1:C9, formüldeki aralığı temsil eder; burada, kalın olarak biçimlendirilmiş hücreleri saymak için işlevin kullanacağı aralığı belirtirsiniz. İhtiyacınıza göre bu aralığı değiştirebilirsiniz.
Kullanıcı Tanımlı İşlev ile bir aralıktaki kalın sayıları toplama
Bir veri aralığında yalnızca kalın biçimde yazılmış sayıları toplamak istiyorsanız, bunu gerçekleştirmek için kullanıcı tanımlı bir işlev oluşturabilirsiniz.
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2.Ekle>Modülseçeneğine tıklayın ve aşağıdaki kodu Modül Penceresineyapıştırın.
VBA kodu: Bir hücre aralığındaki kalın sayıları toplama
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 boş bir hücreye aşağıdaki formülü girin: =sumbold(A1:C9) Ekran görüntüsüne bakın:
4. Ardından Enter tuşuna basın; A1:C9 aralığındaki tüm kalın sayılar toplanacaktır. Ekran görüntüsüne bakın:
Not: A1:C9 formüldeki aralığı temsil eder; burada toplamak istediğiniz hücre aralığını belirtirsiniz. İhtiyacınıza göre bu aralığı değiştirebilirsiniz.
Kutools for Excel ile bir aralıkta kalın sayıları birkaç tıklamayla sayma ve toplama
Karmaşık VBA kodlarıyla uğraşmadan ve formüller ezberlemeden, bir aralıktaki tüm kalın biçimli hücreleri birkaç tıklamayla kolayca sayabilir veya toplayabilirsiniz.
1. Kalın yazılmış hücreleri saymak için, lütfen sonucun yerleştirileceği boş bir hücre seçin ve ardından Kutools > Geliştirilmiş İşlevler > İstatistiksel ve Matematik > COUNTBYFONTBOLD seçeneğine tıklayın.
Kalın toplamak için Kutools > Geliştirilmiş İşlevler > İstatistiksel ve Matematik > SUMBYFONTBOLD seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. İşlev Bağımsız Değişkenleri iletişim kutusunda, Reference (Başvuru) kutusuna kalın biçimli hücreleri içeren ve saymak veya toplamak istediğiniz aralığı girin, ardından Tamam düğmesine tıklayın.
Sınırlı aralıkta yer alan tüm kalın sayıların toplamı artık seçili hücrede gösteriliyor. Ekran görüntüsüne göz atın:
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
Demo: Kutools for Excel ile bir aralıkta kalın sayıları sayma ve toplama
İlgili makaleler:
Excel'de tüm kalın biçimli hücreleri veya metni nasıl belirler ve seçersiniz?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar