vba'de toplam işlemi yapmak

[hpalpal]

Merhaba,

kullanıcıdan bir h sayısı alıyorum ve bu sayıya kadar olan sayıları toplamak istiyorum. Örneğin kullanıcıdan 5 sayısını aldığımda 0+1+2+3+4+5=15 değerini msgbox yardımıyla 15 olarak kullanıcıya vermek istiyorum. bunu nasıl yapabilirim?

Teşekkürler

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
.

[FONT="Arial Narrow"]Sub TOPLA()
    sayı = InputBox("Bir sayı yazınız", "...... hpalpal .....")
        If IsNumeric(sayı) = False Then
            MsgBox "Yazdığınız değer SAYI DEĞİL!.." & vbLf & "Tekrar deneyiniz."
                Exit Sub
                    End If
                For brn = 1 To sayı
            sonuc = sonuc + brn
        Next
    MsgBox "   SONUÇ:    " & Format(sonuc, "#,###"), vbInformation, "......hpalpal...."
End Sub[/FONT]

 

[hpalpal]

Ömer bey çok teşekkür ederim bir de merak ettiğim bir şey daha var aynı toplam işlemini faktöriyel cinsinden nasıl toplarız. Örneğin 5 girilsin tekrar 0!+1!+2!+3!+4!+5! in sonucunu vermek istiyorum. nasıl yapabiliriz?

İyi çalışmalar

 

[Ömer BARAN]

Faktöriyellerin toplamını almak için; For...Next döngüsünü aşağıdaki gibi kullanmalısınız.

NOT: Önceki cevabıma InputBox'a metin girildiğinde uyarı almaya yönelik ekleme yapmıştım.
Sayfayı yenileyerek önceki cevabımı da kontrol edin isterseniz.
.

                For brn = [B][COLOR="Red"]0[/COLOR][/B] To sayı
            sonuc = sonuc + [COLOR="red"][B]WorksheetFunction.Fact[/B][/COLOR](brn)
        Next

 

[hpalpal]

Teşekkür ederim Ömer Bey kod istediğim gibi çalıştı

İyi Çalışmalar