Herhangi bir dizinin herhangi sütunundaki eleman sayısı nasıl bulunur?

[gnorar]

Selamlar,
Soru başlıktaki gibi kısa bir soru örneğin 1000x15 elemanlı dizinin herhangi sütunundaki eleman sayısı nasıl bulunur? Örneğin bu dizinin 9 nolu sütununda kaç eleman vardır?

 

[Huseyinkis]

Selamlar,
Soru başlıktaki gibi kısa bir soru örneğin 1000x15 elemanlı dizinin herhangi sütunundaki eleman sayısı nasıl bulunur? Örneğin bu dizinin 9 nolu sütununda kaç eleman vardır?

Ufak bir ornek dosya ekleyebilirmisiniz.Soruyu tam anlayamadım

 

[Levent Menteşoğlu]

Daha kısa bir yolu varmı bilmiyorum ama aşağıdaki gibi bir mantıkla istediğiniz sonuca ulaşabilirsiniz.

dim deg(1000,15)
for a=1 to 1000
if deg(a,9)<>"" then c=c+1
next
msgbox c

 

[KuTuKa]

özet tablo veya alttoplamlarla da olabilir

 

[gnorar]

Ufak bir ornek dosya ekleyebilirmisiniz.Soruyu tam anlayamadım

Sn Huseyinkis,
Bir örnek vereyim. Şöyle bir makromuz olsun:

Sub Düğme1_Tıklat()
Dim MyArray As Variant
Dim Rng As Range, Dn As Range
Dim i, c As Long
Set Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
n = Application.CountA(Range("A:A"))
ReDim MyArray(0 To n, 4)
c = 0
For Each Dn In Rng
If Dn <> "" Then
c = c + 1
MyArray(c, 0) = Dn
MyArray(c, 1) = Dn.Offset(, 1)
MyArray(c, 2) = Dn.Offset(, 2)
MyArray(c, 3) = Dn.Offset(, 3)
End If
Next Dn
End Sub

Buradadaki MyArray dizisinin örneğin 3 sütunundaki eleman sayısını nasıl buluruz?

 

[gnorar]

Daha kısa bir yolu varmı bilmiyorum ama aşağıdaki gibi bir mantıkla istediğiniz sonuca ulaşabilirsiniz.

dim deg(1000,15)
for a=1 to 1000
if deg(a,9)<>"" then c=c+1
next
msgbox c

Sn. Levent Menteşoğlu, nasıl oldu bilemiyorum ama yanıtınızı görmeden ben başka bir yanıt gönderdim.
Sayaç koyarak çözmek benim aklımdaki son fikir. Dizi çok büyük, yazdığım makronun yavaşlamasından endişeleniyorum. Forumdan başka bir fikir gelmezse bende sayaç koyarak çözüme ulaşacağım. İlginiz için teşekkürler.