1'den N Doğal Sayısına Kadar Olan Ardışık Tek Doğal Sayıların Toplamını Bul - Microsoft Excel

1’den başlayan ve bir N tek doğal sayısına kadar devam eden ardışık tek sayıların toplamını veren VBA kodudur. Kullanıcı tanımlı fonksiyon örneğidir.

Kod


Option Explicit

Function BirdenNDogalSayisinaKadarOlanArdisikTekSayilarinToplaminiBul(sonSayi As Long) As Long
    Dim sonuc As Long
    
    If (sonSayi Mod 2) <> 0 And sonSayi > 0 Then
        sonuc = (sonSayi + 1) / 2
        sonuc = sonuc ^ 2
        
        BirdenNDogalSayisinaKadarOlanArdisikTekSayilarinToplaminiBul = sonuc
    Else
        BirdenNDogalSayisinaKadarOlanArdisikTekSayilarinToplaminiBul = Err.Description
    End If
End Function

Etiketler

microsoft excel microsoft excel vba microsoft excel vba kullanıcı tanımlı fonksiyon işlemleri microsoft excel vba matematik işlemleri