VBA 1'den 100'e Kadar Çift Sayı Toplam Örneği

217 Okunma VBA

VBA kullanarak, 1'den 100'e kadar olan çift sayıların toplamını gösteren kod örneği şu şekildedir.. 

Public Function CiftSayiToplami() As Long

    Dim toplam As Long
    Dim i As Long
    
    For i = 2 To 100 Step 2
        toplam = toplam + i
    Next i
    
    CiftSayiToplami = toplam

End Function

Bu kodda yaratılan fonksiyon çağırılırsa sonuç 2550 olarak dönecektir.

VBA

İlginizi Çekebilir

VBA Dikdörtgenin Alanını Hesaplama Örneği

VBA Worksheet'leri Alfabetik Sıraya Sokmak

VBA 1'den N'e Kadar Asal Sayıları Bulma Örneği

VBA Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Örnek

VBA İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği