Dizi Yöntemi Kullanarak Toplama Yapma

Bu dosya, VBA ile bir dizideki sayısal değerlerin nasıl toplanacağını gösteren küçük bir örnek çalışmadır. Toplama işlemi hücre formülleriyle değil, SumArray adlı özel fonksiyon ve MakeList adlı makro ile yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: A1:B7 aralığını kapsayan, formül içermeyen tek çalışma sayfasıdır. A1 hücresinde 4 değeri bulunur.
• Module1 modülü: 19 satırlık VBA kodunu ve iki prosedürü barındırır.

Makrolar​

• SumArray: Kendisine verilen listedeki her elemanı sırayla dolaşan bir Function prosedürüdür. Her elemanı WorksheetFunction.IsNumber ile denetler; yalnızca sayısal olanları toplar, metin ve boş değerleri atlar. Sonuç Double türünde döner.
• MakeList: 1 ile 100 arasında indisli, Double türünde bir dizi oluşturur. Dizinin her elemanına Rnd ile üretilen 0 ile 1000 arasında rastgele bir sayı yazar. Ardından diziyi SumArray fonksiyonuna gönderir ve toplamı MsgBox ile ekranda gösterir.

Kodda dosya silme ya da dışarıya bağlantı kurma gibi bir işlem yoktur. Sayılar rastgele üretildiği için her çalıştırmada farklı bir toplam görüntülenir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt + F8 tuşlarıyla makro listesini açın, MakeList makrosunu seçip çalıştırın.
3. Mesaj kutusunda 100 rastgele sayının toplamı görüntülenir.
4. Kodu incelemek veya kendi verinize uyarlamak için Alt + F11 ile VBA düzenleyicisini açıp Module1 modülüne bakın.
5. SumArray fonksiyonunu kendi makronuzda kullanmak için dizinizi veya listenizi fonksiyona parametre olarak verin.