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

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

यह पृष्ठ आपको सरल बनाने का तरीका सिखाता है ऋण गणक में एक्सेल VBA। वर्कशीट में निम्न ActiveX नियंत्रण होते हैं: दो स्क्रॉलबार और दो विकल्प बटन।

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

नोट: नीचे दिए गए निर्देश आपको वर्कशीट को प्रारूपित करने के तरीके को नहीं सिखाते हैं। हम मानते हैं कि आप जानते हैं कि फ़ॉन्ट प्रकार कैसे बदलें, पंक्तियों और कॉलम डालें, सीमाएं जोड़ें, पृष्ठभूमि रंग बदलें आदि।

ऋण कैलकुलेटर बनाने के लिए निम्नलिखित चरणों का निष्पादन करें:

1. दो स्क्रॉलबार नियंत्रण जोड़ें। डेवलपर टैब से सम्मिलित करें पर क्लिक करें और फिर ActiveX नियंत्रण अनुभाग में स्क्रॉल बार पर क्लिक करें।

स्क्रॉल बार्स बनाएं

2. दो विकल्प बटन जोड़ें। डेवलपर टैब से सम्मिलित करें पर क्लिक करें और फिर ActiveX नियंत्रण अनुभाग में विकल्प बटन पर क्लिक करें।

विकल्प बटन बनाएँ

स्क्रॉलबार नियंत्रण के निम्न गुणों को बदलें (सुनिश्चित करें कि डिज़ाइन मोड चुना गया है)।

3. दायां माउस पहले स्क्रॉलबार नियंत्रण पर क्लिक करें, और फिर गुणों पर क्लिक करें। न्यूनतम से 0 सेट करें, अधिकतम से 20, छोटे चेंज 0 और लार्ज चेंज 2 तक सेट करें।

4. दायां माउस दूसरे स्क्रॉलबार नियंत्रण पर क्लिक करें, और फिर गुणों पर क्लिक करें। न्यूनतम से 5, मैक्स से 30, छोटे चेंज 1 तक, लार्ज चेंज 5 तक, और लिंक्डसेल से F8 तक सेट करें।

स्पष्टीकरण: जब आप तीर पर क्लिक करते हैं, तो स्क्रॉलबार मान SmallChange द्वारा ऊपर या नीचे चला जाता है। जब आप स्लाइडर और तीर के बीच क्लिक करते हैं, तो स्क्रॉलबार मान LargeChange द्वारा ऊपर या नीचे चला जाता है।

वर्कशीट चेंज इवेंट बनाएं। वर्कशीट चेंज इवेंट में जोड़ा गया कोड एक्सेल वीबीए द्वारा निष्पादित किया जाएगा जब आप वर्कशीट पर सेल बदलते हैं।

5. विजुअल बेसिक एडिटर खोलें।

6. प्रोजेक्ट एक्सप्लोरर में शीट 1 (शीट 1) पर डबल क्लिक करें।

7. बाएं ड्रॉप-डाउन सूची से वर्कशीट चुनें और दाएं ड्रॉप-डाउन सूची से बदलें चुनें।

एक्सेल वीबीए में वर्कशीट चेंज इवेंट

8। वर्कशीट चेंज इवेंट शीट 1 पर सभी बदलावों को सुनता है। सेल डी 4 में कुछ बदलाव होने पर हम केवल एक्सेल वीबीए को गणना उप चलाने के लिए चाहते हैं। इसे प्राप्त करने के लिए, वर्कशीट चेंज इवेंट में निम्न कोड लाइन जोड़ें (बाद में उप गणना करें के बारे में अधिक)।

If Target.Address = "$D$4" Then Application.Run "Calculate"

9. सेल एफ 6 में सही प्रतिशत प्राप्त करें (सेल एफ 6 के प्रतिशत को प्रतिशत में बदलें)। दायां माउस पहले स्क्रॉलबार नियंत्रण पर क्लिक करें, और उसके बाद व्यू कोड पर क्लिक करें। निम्नलिखित कोड लाइन जोड़ें:

Private Sub ScrollBar1_Change()

Range("F6").Value = ScrollBar1.Value / 100
Application.Run "Calculate"

End Sub

10. दायां माउस दूसरे स्क्रॉलबार नियंत्रण पर क्लिक करें, और उसके बाद व्यू कोड पर क्लिक करें। निम्नलिखित कोड लाइन जोड़ें:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. दायां माउस पहले विकल्प बटन नियंत्रण पर क्लिक करें, और उसके बाद व्यू कोड पर क्लिक करें। निम्नलिखित कोड लाइन जोड़ें:

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then Range("C12").Value = "Monthly Payment"
Application.Run "Calculate"

End Sub

12. दायां माउस दूसरे विकल्प बटन नियंत्रण पर क्लिक करें, और उसके बाद व्यू कोड पर क्लिक करें। निम्नलिखित कोड लाइन जोड़ें:

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then Range("C12").Value = "Yearly Payment"
Application.Run "Calculate"

End Sub

13. उप बनाने का समय। सब के बारे में अधिक जानने के लिए आप हमारे फंक्शन और सब अध्याय के माध्यम से जा सकते हैं। यदि आप जल्दी में हैं, तो बस उप नामित गणना को मॉड्यूल में रखें (विजुअल बेसिक एडिटर में, सम्मिलित करें, मॉड्यूल पर क्लिक करें)।

Sub Calculate()

Dim loan As Long, rate As Double, nper As Integer

loan = Range("D4").Value
rate = Range("F6").Value
nper = Range("F8").Value

If Sheet1.OptionButton1.Value = True Then
    rate = rate / 12
    nper = nper * 12
End If

Range("D12").Value = -1 * WorksheetFunction.Pmt(rate, nper, loan)

End Sub

स्पष्टीकरण: उप वर्कशीट फ़ंक्शन पीएमटी के लिए सही पैरामीटर प्राप्त करता है। एक्सेल में पीएमटी फ़ंक्शन निरंतर भुगतान और निरंतर ब्याज दर के आधार पर ऋण के भुगतान की गणना करता है। यदि आप मासिक भुगतान करते हैं (शीट 1.ऑप्शनबटन 1। वैल्यू = ट्रू), एक्सेल वीबीए दर के लिए दर / 12 और नापर के लिए nper * 12 (भुगतान की कुल संख्या) का उपयोग करता है। नतीजा एक ऋणात्मक संख्या है, क्योंकि भुगतान को डेबिट माना जाता है। -1 से परिणाम गुणा करने से सकारात्मक परिणाम मिलता है।

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

यह भी पढ़ें: