Vba में मानों को कैसे पूर्णांकित करें (उदाहरण के साथ)

आप मानों को गोल करने के लिए VBA में राउंडडाउन विधि का उपयोग कर सकते हैं।

यह फ़ंक्शन निम्नलिखित मूल सिंटैक्स का उपयोग करता है:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

यह विशेष उदाहरण सेल A1 में मान को निकटतम पूर्ण संख्या में पूर्णांकित करेगा और सेल B1 में परिणाम प्रदर्शित करेगा।

ध्यान दें कि राउंडडाउन विधि का दूसरा तर्क राउंड करने के लिए अंकों की संख्या निर्दिष्ट करता है:

• -3 राउंड नीचे निकटतम हजार तक
• निकटतम सौ तक -2 राउंड नीचे
• -1 राउंड नीचे निकटतम दस तक
• 0 को निकटतम पूर्ण संख्या तक पूर्णांकित किया जाता है
• निकटतम दसवें स्थान तक 1 चक्कर (दशमलव का एक स्थान)
• निकटतम सौवें स्थान तक 2 राउंड नीचे (दशमलव के दो स्थान)
• 3 को निकटतम हज़ारवें भाग तक पूर्णांकित किया गया (दशमलव के तीन अंक)

और इसी तरह।

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में राउंडडाउन पद्धति का उपयोग कैसे करें।

सम्बंधित: VBA में मानों को कैसे पूर्णांकित करें

उदाहरण 1: वीबीए में निकटतम पूर्ण संख्या तक पूर्णांकित करें

हम सेल A1 में मान को निकटतम पूर्ण संख्या में पूर्णांकित करने और सेल B1 में परिणाम प्रदर्शित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल A1 में मान 1432.78 को सेल B1 में निकटतम पूर्ण संख्या 1432 तक पूर्णांकित किया गया था।

उदाहरण 2: वीबीए में निकटतम सौ तक पूर्णांकित करें

हम सेल A1 में मान को निकटतम सौ तक पूर्णांकित करने और सेल B1 में परिणाम प्रदर्शित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), -2)
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल A1 में मान 1432.78 को सेल B1 में 1400 के निकटतम सौ तक पूर्णांकित किया गया था।

उदाहरण 3: वीबीए में निकटतम दसवें तक पूर्णांकित करें

हम सेल A1 में मान को निकटतम दसवें (यानी एक दशमलव) तक पूर्णांकित करने के लिए निम्नलिखित मैक्रो बना सकते हैं और सेल B1 में परिणाम प्रदर्शित कर सकते हैं:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 1)
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल A1 में मान 1432.78 को सेल B1 में 1432.7 के निकटतम दसवें हिस्से तक पूर्णांकित किया गया था।

नोट : आप वीबीए राउंडडाउन पद्धति के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: SUMIF और SUMIFS फ़ंक्शन कैसे लिखें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें
वीबीए: AVERAGEIF और AVERAGEIFS फ़ंक्शन कैसे लिखें