/ / מכירות מחשבון ב - VBA של Excel

מכירות מחשבון ב - VBA של

להלן נבחן תוכנית ב Excel VBA כי מחשבת את סך המכירות של כל עובד על פני תקופה של שלוש שנים.

מצב:

מכירות מחשבון ב - VBA של

שני הסדינים האחרים יש את אותה הגדרה, אבלעם שילובים שונים של חודשים ועובדים, ומספרים שונים המכירות. ישנן מספר דרכים לחשב את סך המכירות של כל עובד ב- Excel, אך נראה כי ניתן לעשות זאת ב- Excel VBA בקלות רבה.

הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:

1. ראשית, אנו מכריזים על שלושה משתנים ואובייקט Worksheet אחד. משתנה אחד של מחרוזות סוג שאנו מכנים עובד, משתנה אחד של מספר שלם אנו קוראים הכולל, אובייקט גיליון עבודה אחד שאנו קוראים גיליון, ומשתנה אחד של מספר שלם אנו קוראים i.

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

2. אנחנו אתחול שני משתנים. אנחנו לאתחל את המשתנה הכולל עם ערך 0. אנו משתמשים בפונקציה InputBox כדי לקבל את שם העובד מהמשתמש.

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

הזן שם עובד

3. לאחר שהמשתמש הזין שם של עובד, אנחנו רוצים לחשב את סך המכירות של העובד הזה. חוברת העבודה מורכבת משלושה גיליונות. אנחנו רוצים תוכנית כי עדיין ניתן להשתמש אם גיליונות מתווספים בעתיד. לכן אנו משתמשים בשורת הקוד הבאה:

For Each sheet In Worksheets

4. אנחנו מתחילים עוד לולאה הבאה.

For i = 2 To 13

5. אם שם העובד שהוזכר תואם לשם העובד בעמודה B, Excel VBA מוסיף את מספר המכירות לסך המשתנה. הוסף את שורות הקוד הבאות:

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

6. אל תשכח לסגור את שתי לולאות.

    Next i
Next sheet

7. לבסוף, אנו מציגים את סך המכירות של העובד באמצעות msgbox.

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

8. בדוק את התוכנית.

תוצאה עבור דוד:

תוצאה של מחשבון מכירות

קרא גם: