Vba: kullanılan sütunların sayısı nasıl sayılır?

VBA kullanarak bir Excel sayfasında kullanılan sütunların sayısını saymak için aşağıdaki temel sözdizimini kullanabilirsiniz:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

Bu özel örnek, Sayfa1 adlı sayfada kullanılan sütunların sayısını sayar ve sonucu A10 hücresinde görüntüler.

Bunun yerine bir mesaj kutusundaki sütun sayısını görüntülemek istiyorsanız aşağıdaki sözdizimini kullanabilirsiniz:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Aşağıdaki örnekler, çeşitli basketbol oyuncuları hakkında bilgiler içeren Excel’deki aşağıdaki veri kümesiyle bu yöntemlerin her birinin pratikte nasıl kullanılacağını göstermektedir:

Örnek 1: VBA’da kullanılan sütunları sayın ve sonuçları hücrede görüntüleyin

Kullanılan sütunların sayısını saymak ve sonuçları belirli bir hücrede görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

A10 hücresinin 4 değerini içerdiğine dikkat edin.

Bu bize 4 sütunun kullanıldığını söyler.

Örnek 2: VBA’da kullanılan sütunları sayın ve sonuçları mesaj kutusunda görüntüleyin

Bunun yerine , kullanılan sütunların 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:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

Mesaj kutusu bize 4 sütunun kullanıldığını söylüyor.

Not : Boş sütunlar ve ardından veri içeren sütunlar varsa, VBA, hesaplamada boş sütunları “kullanılmış” olarak sayar.

Ek kaynaklar

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

VBA: Bir çalışma kitabındaki sayfaların sayısı nasıl sayılır?
VBA: Aralıktaki satır sayısı nasıl sayılır?
VBA: Belirli bir metin içeren hücreler nasıl sayılır?