Vba: seçimdeki satırlar nasıl sayılır?

VBA’yı kullanarak bir seçimdeki satır sayısını saymak için aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Seçimdeki satırları sayın ve sayıyı mesaj kutusunda görüntüleyin

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

Bu özel örnek, geçerli seçimdeki satır sayısını sayar ve ardından bu sayıyı bir mesaj kutusunda görüntüler.

Yöntem 2: Seçimdeki satırları sayın ve sayıyı belirli bir hücrede görüntüleyin

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

Bu özel örnek, geçerli seçimdeki satır sayısını sayar ve ardından bu sayıyı E1 hücresinde görüntüler.

Aşağıdaki örnekler her yöntemin pratikte nasıl kullanılacağını göstermektedir.

Örnek 1: Seçimdeki satırları sayın ve sayıyı mesaj kutusunda görüntüleyin

E-tablomuzda A1:C17 hücre aralığını seçtiğimizi varsayalım:

Seçimdeki satır sayısını saymak ve sonuçları bir mesaj kutusunda görüntülemek için aşağıdaki makroyu oluşturabiliriz:

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Mesaj kutusu bize mevcut seçimde 17 satır olduğunu söylüyor.

Örnek 2: Seçimdeki satırları sayın ve sayıyı belirli bir hücrede görüntüleyin

Elektronik tablomuzda A4:D9 hücre aralığını seçtiğimizi varsayalım:

Seçimdeki satır sayısını saymak ve sonuçları E1 hücresinde görüntülemek için aşağıdaki makroyu oluşturabiliriz:

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

E1 hücresi bize mevcut seçimde 6 satır olduğunu söylüyor.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA kullanarak bir tablodaki satırları sayma
VBA kullanarak belirli bir metne sahip hücreleri sayma
VBA kullanarak aralıktaki benzersiz değerler nasıl sayılır?