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

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

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

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

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

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

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

और इसी तरह।

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

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

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

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

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

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

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

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

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), -2)
End Sub

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

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

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

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

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 1)
End Sub

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

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

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

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

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

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