Excel VBA'da Satış Hesaplayıcısı
Aşağıda bir programa bakacağız Excel VBA o Toplam satışları hesaplar Her çalışanın üç yıllık bir süre boyunca.
Durum:
Diğer iki sayfa aynı ayarlara sahiptir, ancakAylar ve çalışanların farklı kombinasyonları ve farklı satış numaraları ile. Excel'de her çalışanın toplam satışlarını hesaplamanın birkaç yolu vardır, ancak Excel VBA'da kolayca yapılabileceğini göreceğiz.
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
1. İlk olarak, üç değişken ve bir Çalışma Sayfası nesnesini beyan ederiz. Çalıştığımız String tipinin bir değişkeni, aramayı yaptığımız Tamsayı türünün bir değişkeni, sayfayı çağırdığımız bir Çalışma Sayfası nesnesi ve aradığımız tamsayı türünde bir değişken.
2. İki değişkeni başlatıyoruz. Değişken toplamını 0 değeriyle başlatıyoruz. Çalışan ismini kullanıcıdan almak için InputBox fonksiyonunu kullanıyoruz.
employee = InputBox("Enter the employee name (case sensitive)")
3. Kullanıcı bir çalışan adı girdikten sonra, bu çalışanın toplam satışını hesaplamak istiyoruz. Çalışma kitabı üç sayfadan oluşmaktadır. Gelecekte sayfalar eklendiyse hala kullanılabilen bir program istiyoruz. Bu nedenle aşağıdaki kod satırını kullanıyoruz:
4. Başka bir Sonraki döngü için başlıyoruz.
5. Girilen çalışan adı B sütununda çalışan adıyla eşleşirse, Excel VBA satış numarasını toplam değişkene ekler. Aşağıdaki kod satırlarını ekleyin:
total = total + sheet.Cells(i, 3).Value
End If
6. Her iki döngüyü de kapatmayı unutmayın.
Next sheet
7. Son olarak, çalışanın toplam satışını bir msgbox kullanarak gösteririz.
8. Programı test edin.
David için sonuç: