Vba: aralıktaki satır sayısı nasıl sayılır?
VBA kullanarak Excel’de bir aralıktaki satır sayısını saymak için aşağıdaki temel sözdizimini kullanabilirsiniz:
SubCountRows ()
Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub
Bu özel örnek, A sütunundaki satır sayısını sayar ve ardından sonucu E2 hücresine atar.
Bunun yerine bir mesaj kutusundaki satır sayısını görüntülemek istiyorsanız aşağıdaki sözdizimini kullanabilirsiniz:
SubCountRows ()
'Create variable to store number of rows
Dim row_count As Integer
'Calculate number of rows in range
row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
'Display the result
MsgBox " Rows in Column A: " & row_count
End Sub
Aşağıdaki örnekler, bu yöntemlerin her birinin, üç farklı takımdaki basketbolcuların adlarını içeren Excel’deki aşağıdaki veri kümesiyle pratikte nasıl kullanılacağını göstermektedir:
Örnek 1: VBA kullanarak aralıktaki satırları sayın ve sonuçları hücrede görüntüleyin
A sütunundaki satır sayısını hesaplamak ve sonuçları belirli bir hücrede görüntülemek istediğimizi varsayalım.
Bunun için aşağıdaki makroyu oluşturabiliriz:
SubCountRows ()
Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub
Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:
E2 hücresinin 9 değerini içerdiğine dikkat edin.
Bu bize A sütununda değerlerin bulunduğu 9 satır olduğunu söyler.
Örnek 2: VBA’yı kullanarak aralıktaki satırları sayın ve sonuçları mesaj kutusunda görüntüleyin
Bunun yerine A sütunundaki satır sayısını saymak ve sonuçları bir mesaj kutusunda görüntülemek istediğimizi varsayalım .
Bunun için aşağıdaki makroyu oluşturabiliriz:
SubCountRows ()
'Create variable to store number of rows
Dim row_count As Integer
'Calculate number of rows in range
row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
'Display the result
MsgBox " Rows in Column A: " & row_count
End Sub
Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:
Mesaj kutusu bize A sütununda değerlerin bulunduğu 9 satır olduğunu söyler.
Bu örnekte, aralık olarak A:A’yı kullanarak A sütununun tamamındaki satır sayısını hesapladığımızı unutmayın.
Ancak bunun yerine belirli bir aralıktaki değerlere sahip satır sayısını hesaplamak istiyorsanız A2:A9 (veya ilgilendiğiniz başka bir aralık) yazabilirsiniz.
Ek kaynaklar
Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:
VBA: EĞER ORTALAMA ve EĞER ORTALAMA işlevleri nasıl yazılır
VBA: ETOPLA ve ETOPLA işlevleri nasıl yazılır
VBA: COUNTIF ve COUNTIFS işlevleri nasıl yazılır?