Excel VBA ile Sayı Değerlerini Sayma: IsNumeric, Count ve Döngü Yöntemleri
1. Hemen Kullanılabilir 4 Adet VBA Sayı Değerlerini Sayma Kodu
📌 Bu bölümdeki kodlar: Dim ile değişken tanımlar, IsNumeric ile sayısal değerleri tespit eder, Application.WorksheetFunction.Count ile hızlı sayma yapar, For Each ile döngü oluşturur, MsgBox ile sonucu gösterir.
1. IsNumeric ile Sayıları Say
A sütunundaki sayısal değerleri sayar.
Sub IsNumericIleSay()
Dim hucre As Range, sayac As Integer
sayac = 0
For Each hucre In Range("A:A")
If IsNumeric(hucre.Value) Then sayac = sayac + 1
Next
MsgBox "Sayılar: " & sayac
End Sub
3. Döngü ile Sayıları Say
Seçili alandaki sayısal değerleri sayar.
Sub SeciliAlanSay()
Dim hucre As Range, sayac As Integer
sayac = 0
For Each hucre In Selection
If IsNumeric(hucre.Value) Then sayac = sayac + 1
Next
MsgBox "Sayılar: " & sayac
End Sub
2. Count ile Hızlı Say
A sütunundaki sayıları hızlıca sayar.
Sub CountIleHizliSay()
Dim sayac As Integer
sayac = Application.WorksheetFunction.Count(Range("A:A"))
MsgBox "Sayılar: " & sayac
End Sub
4. Sonucu Hücreye Yaz
Sayı adedini B1 hücresine yazar.
Sub SonucuHucreyeYaz()
Dim sayac As Integer
sayac = Application.WorksheetFunction.Count(Range("A:A"))
Range("B1").Value = sayac
End Sub
2. VBA Makroları için Ön Hazırlık
1. Geliştirici Sekmesini Aktifleştirin
Excel'de VBA kodlarını yazabilmek için önce Geliştirici sekmesini aktif etmelisiniz. Detaylı bilgi için tıklayın.
3. Modül Ekleyin
Kodlarınızı yazmak için bir Modül eklemelisiniz. Makro yazma rehberi için tıklayın.
2. Visual Basic Düzenleyici'yi Açın
Alt + F11 (Windows) veya Option + F11 (Mac) ile hızlıca açabilirsiniz.
4. Kodu Çalıştırın
Yazdığınız kodu çalıştırmak için F5 tuşuna basın veya Çalıştır butonuna tıklayın. VBA makro nedir? öğrenmek için tıklayın.
F5
▶️ Makroyu çalıştır
3. Sıkça Sorulan Sorular
01 Excel VBA ile sayı değerleri nasıl sayılır?
IsNumeric, WorksheetFunction.Count veya döngü yöntemleri kullanılır. En yaygın yöntem: If IsNumeric(hucre.Value) Then kontrolüdür.
02 IsNumeric nedir?
IsNumeric, bir değerin sayısal olup olmadığını kontrol eden VBA fonksiyonudur. True veya False döndürür.
03 Hangi yöntem en hızlıdır?
Application.WorksheetFunction.Count(aralik) en hızlı yöntemdir. Büyük veri setlerinde tercih edilir.
04 Mac'te çalışır mı?
Evet, tüm yöntemler Mac'te de aynı şekilde çalışır.
05 Boş hücreler sayılır mı?
Hayır, IsNumeric boş hücre için False döndürür. Count da boş hücreleri saymaz.
06 Sonucu hücreye nasıl yazarım?
Range("B1").Value = sayac ile sonucu istediğiniz hücreye yazabilirsiniz.