एक्सेल VBA स्क्वायर रूट (SQR) फ़ंक्शन
VBA में हमारे पास एक अंतर्निहित फ़ंक्शन है जिसे "SQR" कहा जाता है, यह फ़ंक्शन इनपुट में दिए गए नंबर के लिए वर्गमूल देता है। स्क्वायर रूट फ़ंक्शन को इसके फ़ंक्शन यानी संख्या के लिए केवल एक तर्क की आवश्यकता होती है।
SQRT एक्सेल और VBA दोनों में एक वर्गाकार रूट फ़ंक्शन है। इस फ़ंक्शन का उपयोग करने की विधि SQR (संख्या) के अनुसार है और इसका उपयोग एक्सेल में दिए गए संख्या के वर्गमूल की गणना करने के लिए किया जाता है; हालाँकि, नामकरण अलग है, और इसे VBA में SQR की तुलना में SQRT के रूप में लिखा गया है।
नीचे SQR फ़ंक्शन का सिंटैक्स है।
संख्या: इस तर्क के लिए, हमें उस संख्या की आपूर्ति करने की आवश्यकता है जिसके लिए हम वर्गमूल को खोजने की कोशिश कर रहे हैं। यह संख्या वेरिएबल को दी गई संख्या या संख्या की एक सीधी आपूर्ति हो सकती है, या सेल संदर्भ वाली संख्या मान्य है।
यह फ़ंक्शन दोनों वर्कशीट फ़ंक्शन के साथ-साथ VBA फ़ंक्शन के साथ उपलब्ध है, लेकिन एक वर्कशीट में, यह SQRT के रूप में उपलब्ध है।
एक्सेल VBA में स्क्वायर रूट के उदाहरण
उदाहरण 1
अब हम 64 नंबर के लिए वर्गमूल खोजने के लिए कोड लिखने का प्रयास करेंगे।
सबसे पहले, VBA सबरूटीन शुरू करें।
कोड:
उप चौराहा_रूट_प्रदर्शन () अंत उप
इंटेगर के रूप में दो चर को परिभाषित करें, एक संख्या को स्टोर करना है, और दूसरा वर्गमूल मूल्य का परिणाम दिखाना है।
कोड:
सब स्क्वायर_रूट_एक्सप्लिमेंट () इंटी एक्जर के रूप में मंद एक्स्ट्रीमनंबर
चर "एक्चुअलम्बर" के लिए, संख्या 64 का मान निर्दिष्ट करें।
कोड:
उप Square_Root_Example () पूर्णांक के रूप में मंद एक्स्ट्रीमनंबर
दूसरे चर के लिए, हम वर्गाकार मूल मान निर्दिष्ट करेंगे, चर नाम दर्ज करें, समान गाना लगाएं, और SQR फ़ंक्शन खोलें।
SQR फ़ंक्शन का एकमात्र तर्क "संख्या" है क्योंकि हमने पहले ही चर "RealNumber" को 64 नंबर दिया है, चलो SQR फ़ंक्शन में समान चर नाम की आपूर्ति करते हैं।
इसके बाद, संदेश बॉक्स में परिणाम दिखाएं। अब वर्गाकार रूट नंबर चर "स्क्वायरनंबर" को सौंपा गया है, वही वैरिएबल नाम संदेश बॉक्स को दिखाता है।
कोड:
सब स्क्वायर_रूट_एक्सप्लिमेंट () इंटीग्रेटर के रूप में डिम एक्स्ट्रीमनंबर
ठीक है, यह सब हम कोडिंग के साथ किया जाता है।
एक्सेल शॉर्टकट कुंजी F5 का उपयोग करके कोड चलाएं और देखें कि हमें संदेश बॉक्स में क्या मिलता है।
संख्या 64 का वर्गमूल 8 है अर्थात 8 * 8 = 64
उदाहरण # 2
VBA में sqrt की गणना करते समय एक और बात हमें ध्यान में रखने की आवश्यकता है जब चर डेटा प्रकार या तो पूर्णांक या लंबा होता है, परिणाम निकटतम पूर्णांक या संपूर्ण संख्या मान पर गोल होता है।
उदाहरण के लिए, यदि आप संख्या 70 के लिए वर्गमूल को खोजने का प्रयास कर रहे हैं, तो इसके लिए कोई वर्गमूल नहीं है, लेकिन VBA में, यह केवल 8 के रूप में दिखाता है क्योंकि 8 निकटतम वर्गमूल पूर्णांक मान है।
नीचे दिए गए कोड को देखें।
कोड:
Sub Square_Root_Example1 () Dim RealNumber Integer के रूप में Dim SquareNumber पूर्णांक के रूप में DimNumber = 70 SquareNumber = Sqr (वास्तविक संख्या) MsgBox SquareNumber समाप्ति उप
The० के लिए वास्तविक वर्गमूल संख्या actual.३६६६ है, लेकिन VBA के साथ, यह निकटतम पूर्णांक मान result पर होगा।
इस त्रुटि को ठीक करने के लिए एक चीज हम चर "स्क्वायरनंबर" के डेटा प्रकार को "डबल" में बदल सकते हैं।
कोड:
Sub Square_Root_Example1 () डिगर एक्स्ट्रीमनंबर इंटेगर के रूप में डिम स्क्वायरनंबर डबल एक्चुअरी के रूप में = 70 स्क्वेयरनंबर = Sqr (एक्स्ट्रीमनंबर) MsgBox SquareNumber End Sub
अब कोड को मैन्युअल रूप से या F5 कुंजी के माध्यम से चलाएं और परिणाम देखें।
जैसा कि आप देख सकते हैं, परिणाम अब सटीक है, अर्थात, 8.366602। यह उस डेटा प्रकार के कारण है जिसे हमने चर "SquareNumber" को सौंपा है।
याद रखने वाली चीज़ें
- संख्या सूत्र का वर्गमूल ज्ञात करने के लिए VBA में SQR है, और कार्यपत्रक में, यह SQRT है।
- SQR फ़ंक्शन को हम जो संख्या प्रदान करते हैं वह एक सकारात्मक संख्या होनी चाहिए, अन्यथा हम #NUM प्राप्त करेंगे! त्रुटि।
