/ एक्सेल वीबीए में / बिक्री कैलकुलेटर

एक्सेल वीबीए में बिक्री कैलकुलेटर

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA उस कुल बिक्री की गणना करता है तीन साल की अवधि में प्रत्येक कर्मचारी का।

परिस्थिति:

एक्सेल वीबीए में बिक्री कैलकुलेटर

अन्य दो चादरों में एक ही सेटअप है, लेकिनमहीनों और कर्मचारियों के विभिन्न संयोजनों और विभिन्न बिक्री संख्याओं के साथ। एक्सेल में प्रत्येक कर्मचारी की कुल बिक्री की गणना करने के कई तरीके हैं, लेकिन हम देखेंगे कि यह एक्सेल वीबीए में बहुत आसानी से किया जा सकता है।

अपने वर्कशीट पर कमांड बटन रखें और निम्न कोड लाइनें जोड़ें:

1। सबसे पहले, हम तीन चर और एक वर्कशीट ऑब्जेक्ट घोषित करते हैं। एक प्रकार का प्रकार स्ट्रिंग जिसे हम कर्मचारी कहते हैं, एक प्रकार का इंटीजर जिसे हम कुल कहते हैं, एक वर्कशीट ऑब्जेक्ट जिसे हम शीट कहते हैं, और एक प्रकार का इंटीजर जिसे हम कॉल करते हैं।

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

2. हम दो चर शुरू करते हैं। हम वैरिएबल कुल को वैल्यू 0 के साथ प्रारंभ करते हैं। हम उपयोगकर्ता से कर्मचारी नाम प्राप्त करने के लिए इनपुटबॉक्स फ़ंक्शन का उपयोग करते हैं।

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

कर्मचारी नाम दर्ज करें

3। उपयोगकर्ता के कर्मचारी नाम दर्ज करने के बाद, हम इस कर्मचारी की कुल बिक्री की गणना करना चाहते हैं। कार्यपुस्तिका में तीन चादरें शामिल हैं। हम एक कार्यक्रम चाहते हैं जो भविष्य में चादरें जोड़े जाने पर भी उपयोग किया जा सके। इसलिए हम निम्नलिखित कोड लाइन का उपयोग करते हैं:

For Each sheet In Worksheets

4. हम अगली लूप के लिए एक और शुरू करते हैं।

For i = 2 To 13

5. यदि दर्ज कर्मचारी नाम कॉलम बी में कर्मचारी नाम से मेल खाता है, तो एक्सेल वीबीए बिक्री संख्या को परिवर्तनीय कुल में जोड़ता है। निम्नलिखित कोड लाइन जोड़ें:

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

6. दोनों loops बंद करने के लिए मत भूलना।

    Next i
Next sheet

7. अंत में, हम एक संदेश का उपयोग कर कर्मचारी की कुल बिक्री प्रदर्शित करते हैं।

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

8. कार्यक्रम का परीक्षण करें।

डेविड के लिए परिणाम:

बिक्री कैलक्यूलेटर परिणाम

यह भी पढ़ें: