Məlum olduğu kimi ədədi silsilənin n-ci əsasdan cəmi düsturu : Sn=(a1+an)/2*n formasındadır.
Əvvəlcə VBA ilə həllinə baxaq:
Code:
Sub Silsile()
Dim sum As Integer
j = Range("A1")
sum = 0
For i = 1 To j
sum = sum + i
Next i
MsgBox " Birden " & j & " qeder reqemlerin cemi " & sum & "-dir"
End Sub
Burada "i=a1=1" və "j=an" rolunda çıxış edir. "j= range("A1")" yazılışı A1-ə daxil ediləcək rəqəmin avtomatik olaraq j-yə bərabər olması üçündür.
Eyni nəticəni formul ilə də almaq olar. Yuxarıda (A9-da) göründüyü kimi.
Əgər a1=1 deyil hər hansı fərqli bir rəqəm olacaqsa onda aşağıdakı koddan istifadə edə bilərik.
Sub Silsile()
Dim sum As Integer
j = Range("A1")
k = Range("A2")
sum = 0
For i = k To j
sum = sum + i
Next i
MsgBox k & "-den " & j & "-qeder reqemlerin cemi " & sum & "-dir"""
End Sub
Burada göründüyü kimi əlavə edilən kod "i=1" əvəzinə "i=k" yazmaqla və k-nın qiymətini isə A2-yə daxil etməklə (yəni "k=A2" yazılışı verməklə) nəticəni almış oluruq.
Belə halda isə həmin nəticəni formul ilə almaq üçün an=a1+d*(n-1) düsturundan n-i tapıb əvvəlki düsturda yerinə yazmaqla tapmış olarıq. Yəni: =($A$2+$A$1)/2*($A$1+1-$A$2)
|