satır numarasını for döngüsünde artırmak?

[sherlockholmes]

Merhaba ,

A10 hücresinden A20 hücresine kadar olan satırlarda rakamlar var.
Bu hücrelerdeki rakamları vbscript de yazdığım fonksiyonda toplatmak istiyorum
Kullandığım fonksiyon bu :

Function topla()
    For sira_no = 1 To 10
        sonuc = sonuc + Val([Asira_no])
    Next sira_no
    MsgBox sonuc
End Function

A sütunadını gösteriyor , satır numarasını döngü değişkeni olarak nasıl yazmam gerekiyor?

 

[janveljan]

Aşağıdaki şekilde olabilir.

Function topla()
    For sira_no = 10 To 20
        sonuc = sonuc + Val(Cells(sira_no, "A"))
    Next sira_no
    MsgBox sonuc
End Function

 

[sherlockholmes]

teşekkür ederim üstadım.

saygılar...

 

[mesuttasar]

Şu şekilde denermisiniz?

Function topla()
    For s = 10 To 20
        sonuc = sonuc + Cells(s, 1).Value
    Next s
    MsgBox sonuc
End Function

 

[sherlockholmes]

Teşekkür ederim @mesuttasar ve @janveljan. Önerilerinizle istediğim işlemi yaptırabildim. Büyük bir parçayı tamamlamış oldum sayenizde.

Çok çok teşekkür ederim.

İyi çalışmalar efendim.

Saygılar.

 

[Necdet]

Alternatif olsun :

Sub Topla()
Sonuc = Application.WorksheetFunction.Sum(Range("A10:A20"))
MsgBox Sonuc
End Sub

 

[Necdet]

Merhaba,

Fonksiyonmuş ona göre kodları düzenlemek gerek:

Function Toplam()
Toplam = Application.WorksheetFunction.Sum(Range("A10:A20"))
End Function

Herhangi bir hücreye

=TOPLAM()

yazmak yeterli.

 

[sherlockholmes]

Sayın @Necdet Yeşertener ;

Alternatif önerinizi inceledim. Merak ettiğim bir diğer konu olan Excel fonksiyonlarına Vbscript içerisinden nasıl çağırılacağına dair bir yazımı öğrenmiş oldum. Çok teşekkür ederim.

İyi çalışmalar.
Saygılar.