Liste İçinde Hesaplama Yapma

Bu dosya, bir UserForm üzerindeki ListView kontrolünde listelenen değerlerin VBA ile nasıl toplanacağını gösteren makrolu bir örnektir. Liste içindeki Alacak tutarları tek tek okunur, toplanır ve form üzerindeki kutuda para birimi biçiminde gösterilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Veri içermeyen boş çalışma sayfasıdır. Formül, tablo veya grafik bulunmaz.
• UserForm1: Üzerinde ListView1, CommandButton1 ve TextBox1 kontrolleri bulunan formdur. ListView "İsim" ve "Alacak" adlı iki sütunlu rapor görünümündedir.
• Module1: Formu açan makroyu içerir.

Makrolar​

• Düğme1_Tıkla: UserForm1 formunu açar. Sayfaya yerleştirilen bir düğmeye atanarak çalıştırılabilir.
• UserForm_Initialize: Form açılırken çalışır. ListView görünümünü rapor biçimine alır, "İsim" ve "Alacak" sütun başlıklarını ekler. Listeye Ali, Veli ve Hasan kayıtları eklenir; Alacak değerleri sırasıyla 250, 500 ve 750 olarak atanır.
• CommandButton1_Click: Düğmeye basıldığında ListView içindeki tüm satırları döngüyle dolaşır, her satırın Alacak değerini toplar ve sonucu FormatCurrency fonksiyonuyla biçimlendirerek TextBox1 içine yazar. Örnek verilerle toplam 1.500 tutarındadır.

Kodda dosya silme, dış bağlantı veya benzeri zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerinde Düğme1_Tıkla makrosunu çalıştırın (Alt+F8) ya da bir düğmeye atayın.
3. Açılan formda ListView içindeki isim ve alacak değerlerini görün.
4. Toplamı almak için formdaki düğmeye basın; toplam TextBox1 içinde görüntülenir.
5. Kendi verilerinizi kullanmak için Alt+F11 ile VBA düzenleyicisini açın, UserForm_Initialize içindeki isim ve tutarları değiştirin.