VBA राउंडअप फंकिटॉन को एक्सेल में राउंड अप नंबरों के लिए

एक्सेल VBA राउंडअप फ़ंक्शन

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

जब हम संख्याओं और गणनाओं के साथ काम करते हैं, तो हमें पूरी संख्या के बाद अंश संख्याएं मिलती हैं, और यह रोजमर्रा के व्यवसाय में काफी आम है। हम आम तौर पर दशमलव मूल्यों के बारे में परेशान नहीं करते हैं क्योंकि यह हमारे अंतिम परिणाम पर कोई प्रभाव नहीं डालता है। उन स्थितियों में, हमें संख्याओं को निकटतम पूर्ण संख्या या तत्काल पूर्ण संख्या में राउंड करना होगा। राउंडअप फ़ंक्शन का उपयोग करके, हम वास्तव में इस कार्य को कर सकते हैं।

यदि आपने राउंडअप फ़ंक्शन के लिए VBA में खोज की है, तो आपको यह नहीं मिला होगा क्योंकि यह एक वर्कशीट फ़ंक्शन है। राउंडअप फ़ंक्शन का उपयोग करने के लिए, हमें VBA वर्कशीट फ़ंक्शन क्लास का उपयोग करने की आवश्यकता है।

इससे पहले, राउंडअप फ़ंक्शन के सिंटैक्स को याद करें।

उदाहरण

आइए “288.5264” संख्या को गोल करने का कार्य करें। हम इस उदाहरण के साथ सभी संख्याएँ देखेंगे।

उदाहरण # 1 - जब दूसरा तर्क शून्य है

नीचे VBA कोड देखें।

कोड:

Sub RoundUp_Example1 () Dim k as Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub

• जब आप उपरोक्त कोड चलाते हैं, तो यह दिए गए नंबर को, यानी 288.5264 को, निकटतम पूर्ण संख्या में, 289 में बदल देगा।

उदाहरण # 2 - जब दूसरा तर्क 1 है

नीचे दिए गए कोड को देखें कि जब हम एक दूसरे तर्क के रूप में पास करते हैं तो क्या होता है।

कोड:

Sub RoundUp_Example2 () डिम k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub

• यह कोड दी गई संख्या को एक दशमलव बिंदु, यानी 288.6 में बदल देगा

उदाहरण # 3 - जब दूसरा तर्क 2 है

नीचे दिए गए कोड को देखें कि जब हम दो को दूसरे तर्क के रूप में पास करते हैं तो क्या होता है।

कोड:

सब राउंडअप_एक्सप्लोम 3 () डिम के रूप में डबल के = वर्क्सशीट फंक्शन। राउंडअप (288.5264, 2) MsgBox k End Sub

• यह कोड दी गई संख्या को दो दशमलव अंकों में बदल देगा, अर्थात 288.53

उदाहरण # 4 - जब दूसरा तर्क 3 है

नीचे दिए गए कोड को देखें कि जब हम तीन को दूसरे तर्क के रूप में पास करते हैं तो क्या होता है।

कोड:

Sub RoundUp_Example4 () Dim k as Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub

• यह कोड दी गई संख्या को तीन दशमलव अंकों में बदल देगा, अर्थात 288.527

उदाहरण # 5 - जब दूसरा तर्क -1 है

नीचे दिए गए कोड को देखें कि जब हम एक दूसरे तर्क के रूप में ऋण पास करते हैं तो क्या होता है।

कोड:

Sub RoundUp_Example5 () Dim k as Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub

• यह कोड दिए गए नंबर को निकटतम दस अर्थात 290 में बदल देगा।

उदाहरण # 6 - जब दूसरा तर्क -2 है

नीचे दिए गए कोड को देखें कि क्या होता है जब हम दूसरे तर्क के रूप में माइनस दो पास करते हैं।

कोड:

Sub RoundUp_Example6 () Dim k as Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub

• यह कोड दिए गए नंबर को निकटतम सौ यानी 300 में बदल देगा।

उदाहरण # 7 - जब दूसरा तर्क -3 है

नीचे दिए गए कोड को देखें कि क्या होता है जब हम एक दूसरे तर्क के रूप में माइनस तीन पास करते हैं।

कोड:

Sub RoundUp_Example7 () Dim k as Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub

• यह कोड नंबर को निकटतम हज़ार यानी 1000 में बदल देगा।

इस तरह, हम VBA में ROUNDUP फ़ंक्शन का उपयोग वर्कशीट फ़ंक्शन क्लास के हिस्से के रूप में प्रदान किए गए दूसरे तर्क के आधार पर राउंडिंग अप करने के लिए कर सकते हैं।