एक्सेल और वीबीए राउंडअप फंक्शन

एक्सेल के "राउंडअप" फ़ंक्शन को इसकी अंतर्निहित प्रोग्रामिंग भाषा VBA, या अनुप्रयोगों के लिए विज़ुअल बेसिक से उपयोग करना सीखना, आपको VBA से किसी भी एक्सेल फ़ंक्शन को चलाने में मदद करता है। यह कौशल उपयोगी है क्योंकि एक्सेल में ऐसे कई कार्य हैं जो वीबीए के पास नहीं हैं, और आपको वीबीए प्रोग्राम से आवेदन करने की आवश्यकता हो सकती है। ध्यान दें कि VBA सुविधा जो आपको "राउंडअप" फ़ंक्शन में टैप करने देती है, आपको गलत सिंटैक्स या तर्क के लिए सचेत नहीं करेगी, जैसा कि मानक वर्कशीट इंटरफ़ेस का उपयोग करते समय होता है।

एक्सेल "राउंडअप" फ़ंक्शन आपके द्वारा निर्दिष्ट अंकों की संख्या के ऊपर एक संख्या को गोल करता है। उदाहरण के लिए, "राउंडअप (2.2, 0)" चलाना एक्सेल को बताता है कि आप चाहते हैं कि यह संख्या 2.2 को अगले पूर्णांक तक गोल करे। दूसरे तर्क में "0" एक्सेल को बताता है कि आप दशमलव बिंदु के बाद कोई अंक नहीं चाहते हैं, जो यह कहने के बराबर है कि आप एक पूर्णांक उत्तर चाहते हैं।

वीबीए में "राउंडअप" फ़ंक्शन नहीं बनाया गया है। इसका निकटतम कार्य "राउंड" फ़ंक्शन है, जो इस बात पर निर्भर करता है कि आप जिस संख्या को गोल कर रहे हैं उसका अंतिम अंक 5 से अधिक या कम है या नहीं। उदाहरण के लिए, वीबीए "इमीडिएट" विंडो में "राउंड (2.2, 0)" टाइप करने से एक्सेल "राउंडअप" फंक्शन के राउंड अप करने के लिए 3 के बजाय 2 में परिणाम मिलता है।

हालांकि वीबीए का अपना "राउंडअप" फ़ंक्शन नहीं है, यह एक्सेल के "राउंडअप" फ़ंक्शन का उपयोग कर सकता है। ऐसा करने के लिए वीबीए को निर्देश देने के लिए, "रेंज" वर्चुअल ऑब्जेक्ट की "फॉर्मूला" संपत्ति को "राउंडअप" फ़ंक्शन पर सेट करें। निम्न उदाहरण आपको दिखाता है कि यह कैसे करना है। एक्सेल के भीतर से "Alt" और "F11" को एक साथ दबाकर VBA विकास वातावरण खोलें। "तत्काल' विंडो में माउस पर क्लिक करें, फिर निम्न कथन टाइप करें: "रेंज ("ए 1")। फॉर्मूला = "= राउंडअप (2.2, 0)"।" अभी वर्णित "Alt-F11" कीप्रेस का उपयोग करके एक्सेल पर लौटें. आप सेल A1 में परिणाम "3" देखेंगे, यह दर्शाता है कि आपके कथन ने एक्सेल के "राउंडअप" फ़ंक्शन को सफलतापूर्वक लागू किया है।

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

पब्लिक सब राउंडअपएएनंबर() डिम ए1, ए2, एस ए1 = सीडीबीएल (इनपुटबॉक्स ("वह नंबर दर्ज करें जिसे आप गोल करना चाहते हैं")) ए 2 = सीआईएनटी (इनपुटबॉक्स ("दशमलवों की संख्या दर्ज करें जिसमें आप अभी दर्ज की गई संख्या को पूर्णांक बनाना चाहते हैं।")) s = "=राउंडअप(" & a1 & "," & a2 & ")" Range("A1").Formula = s Range("A1") MsgBox की गणना करें (रेंज ("A1")। मान) अंत: विषय

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