VBA Satır Sayısı - VBA'da Kullanılan Satır Sayısı Nasıl Sayılır?

Excel VBA Satır Sayısı

VBA programlamasında satırlara atıfta bulunmak da en önemlisidir ve satırları saymak, VBA kodlaması söz konusu olduğunda bilmeniz gereken şeylerden biridir. Çalışma sayfasında veri bulunan satırları saymanın önemini anlayabilirsek elde edebileceğimiz çok değer var. Bu yazıda, VBA kodlamasını kullanarak satırları nasıl sayacağınızı göstereceğiz.

VBA'da Satırlar Nasıl Sayılır?

Örnek 1

Satırları saymak için RANGE nesnesini kullanmalıyız, bu nesnede ROWS nesnesini kullanmalıyız ve bunun içinde COUNT özelliğini kullanmalıyız.

Örneğin, aşağıdaki verilere excel'de bakın.

Yukarıdaki verilerden, A1'den A8'e kadar kaç satır olduğunu belirlememiz gerekir. Bu nedenle, önce satır sayısını saklamak için değişkeni tamsayı olarak tanımlayın.

Kod:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

Bu değişken için satır numaraları atayacağız, bu nedenle değişken adını girin ve eşittir işaretini çıkarın.

Kod:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub

Bir hücre aralığı sağlamamız gerekiyor, bu nedenle RANGE nesnesini açın ve aralığı "A1: A8" olarak sağlayın. Kod:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Aralık ("A1: A8") End Sub

Aralık sağlandıktan sonra satır sayısını saymamız gerekir, bu nedenle RANGE nesnesinin ROWS özelliğini seçin.

RANGE nesnesinin ROWS özelliğinde bir dizi satırı sayıyoruz, bu nedenle şimdi "COUNT" özelliğini seçin.

Şimdi mesaj kutusunda değişkenin değerini gösterin.

Kod:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Aralık ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Şimdi kodu çalıştırın ve sağlanan hücre aralığının satır sayısını görün.

Tamam, aralık için sağlanan 8 satır var, bu nedenle ileti kutusunda satır sayısı 8'dir.

Örnek 2

Satırları saymanın başka yolları da var, yukarıdaki yöntem için bir dizi hücre sağlamamız gerekiyor ve bu aralık hücrelerinde, seçilen satırların sayısını gösteriyor.

Ancak herhangi bir sütunun son kullanılanını bulmamız gereken senaryoyu düşünün, örneğin, yukarıda görüldüğü gibi aynı verileri alın.

A1 hücresinden son kullanılan hücreye gitmek için kısayol excel tuşuna “Ctrl + Aşağı Ok” basıyoruz , böylece sizi boş hücreden önceki son hücreye götürür.

İlk olarak, RANGE nesnesini kullanarak hücreyi A1 olarak sağlayın.

Kod:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Aralık ("A1") MsgBox No_Of_Rows End Sub

Bu hücreden aşağı inmemiz gerekiyor ve çalışma sayfasında Ctrl + Aşağı Ok kullanıyoruz, ancak VBA'da END özelliğini kullanıyoruz, bu özelliği seçiyoruz ve seçenekleri görmek için parantezi açıyoruz.

Buraya bakın END tuşu ile "xlDown, xlToLeft, xlToRight, ve xlUp" gibi tüm ok tuşlarını görebiliriz çünkü "xlDown" seçeneğini kullanın.

Kod:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Aralık ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub

Bu sizi herhangi bir kesintiden önceki son hücreye götürecektir, şimdi aktif hücrede satır numarasına ihtiyacımız var, bu nedenle ROW özelliğini kullanın.

Kod:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Aralık ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub

Tamam yapıldı. Şimdi, bu son satır numarasını gösterecek ve bu, birkaç satırın sayısı olacaktır.

Yani satırlarda verilerimiz var.

Örnek 3 - Son Kullanılan Satırı Bul

Son kullanılan satırı bulmak, döngünün kaç kez çalışması gerektiğine karar vermek için çok önemlidir ve ayrıca yukarıdaki yöntemde son satır, herhangi bir kesme noktası hücresi olup olmadığını seçmek için durur, bu nedenle bu yöntemde, son kullanılan satırı bulabiliriz. herhangi bir problem.

HÜCRE özelliğini açın.

Kod:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Hücreler (MsgBox No_Of_Rows End Sub

Şimdi başlamak için satır numarasından bahsetmemiz gerekiyor, buradaki sorun şu ki, kaç satır veriye sahip olduğumuzdan emin değiliz, bu yüzden yapabileceğimiz şey hemen çalışma sayfasının son satırına gitmek, bu satırlar için .COUNT özellik.

Kod:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Hücreler (Rows.Count, MsgBox No_Of_Rows End Sub

Sonra, son kullanılan satırı hangi sütunda bulduğumuzu belirtmemiz gerekiyor, bu nedenle bu durumda, ilk sütunda buluyoruz, bu nedenle 1'den bahsedin.

Kod:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Hücreler (Rows.Count, 1) MsgBox No_Of_Rows End Sub

Bu anda, sizi ilk sütunun son hücresine götürecek, oradan itibaren son kullanılan hücreye gitmek için yukarı doğru hareket etmemiz gerekiyor, bu nedenle End (xlUp) özelliğini kullanın.

Kod:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Hücreler (Rows.Count, 1) .End (xlUp) MsgBox No_Of_Rows End Sub

Bu sizi 1. sütunun son kullanılan hücresine götürecek ve bu hücrede satır numarasına ihtiyacımız var, bu nedenle satır numarasını almak için SATIR özelliğini kullanın.

Kod:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Hücreler (Rows.Count, 1) .End (xlUp) .Row Mesaj Kutusu No_Of_Rows End Sub

Hatırlanacak şeyler

  • COUNT çalışma sayfasında bir dizi satır verecektir.
  • Bir aralığınız varsa, o aralıkta seçilen bir dizi satır verecektir.
  • ROW özelliği, etkin hücre satır numarasını döndürür.

Ilginç makaleler...