MVP logo
    Sizin Brauzer: , Versiya
Çərşənbə, 13.12.2017, 11:57 AM
Salam Qonaq | RSS
Ana səhifə | Fayl Kataloqu | Qeydiyyat | Giriş
Saytın menyusu

Kateqoriyalar
VBA [21]
Formullar [31]
Massiv Formullar [12]
Ümumi [4]

Sorğu
Saytın hansı bölməsini daha çox maraqlı hesab edirsiniz?
Səsvermə sayı: 125

Statistika

Cəmi online: 1
Qonaqlar: 1
Userlər: 0

Müsabiqələr

Ana səhifə » Fayllar » Excel Tricks » VBA

Ədədi silsilənin n-ci həddinin cəmi düsturu.
[ Bu serverdən yüklə (44.0Kb) ] 01.08.2011, 3:36 PM

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)

 

 

Kateqoriya: VBA | Yükləyən: Useful
Baxış sayı: 5759 | Yükləmə sayı: 204 | Ratinqi: 0.0/0
Cəmi şərhlər: 0
Şərh əlavə etmək üçün lütfən qeydiyyatdan keçin.
[ Qeydiyyat | Daxil ol ]
Daxil ol

Axtar

Dost Saytlar
  • www.planetaexcel.ru
  • www.programmersforum.ru
  • www.mrexcel.com
  • www.excelworld.ru
  • www.cyberforum.ru
  • www.excelvba.ru
  • www.muhasib.az

  • Sayğac
    free counters

    Saytın məlumatlarından istifadə edərkən mənbəyə istinad zəruridir!
    MyExcelWorld © 2010 - 2017
    Site managed by uCoz
    ILK-10 Azeri Website Directory