/ / Excel VBA'da Satış Hesaplayıcısı

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:

Excel VBA'da Satış Hesaplayıcısı

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.

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer

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.

total = 0
employee = InputBox("Enter the employee name (case sensitive)")

Çalışan Adını Girin

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:

For Each sheet In Worksheets

4. Başka bir Sonraki döngü için başlıyoruz.

For i = 2 To 13

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:

If sheet.Cells(i, 2).Value = employee Then
    total = total + sheet.Cells(i, 3).Value
End If

6. Her iki döngüyü de kapatmayı unutmayın.

    Next i
Next sheet

7. Son olarak, çalışanın toplam satışını bir msgbox kullanarak gösteririz.

MsgBox "Total sales of " & employee & " is " & total

8. Programı test edin.

David için sonuç:

Satış Hesaplama Sonucu

Ayrıca oku: