VBA और समारोह - VBA में लॉजिकल ऑपरेटर का उपयोग कैसे करें?

एक्सेल VBA और फ़ंक्शन

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

मुझे आशा है कि आप हमारे लेख "वीबीए या" और "वीबीए आईएफ या" पर गए होंगे। यह फ़ंक्शन OR फ़ंक्शन के ठीक विपरीत है। OR फ़ंक्शन में, हमें TRUE के रूप में परिणाम प्राप्त करने के लिए संतुष्ट होने के लिए आपूर्ति की गई तार्किक स्थितियों में से किसी की आवश्यकता है। लेकिन AND फ़ंक्शन में, यह केवल रिवर्स है। TRUE का परिणाम प्राप्त करने के लिए, एक्सेल में सभी आपूर्ति किए गए तार्किक परीक्षणों को संतुष्ट करना होगा।

ठीक है, एक्सेल में AND फ़ंक्शन के सिंटैक्स को देखें।

(लॉजिकल टेस्ट) और (लॉजिकल टेस्ट) और (लॉजिकल टेस्ट)

उपरोक्त में, मेरे पास 600 में से दो टेस्ट स्कोर हैं।

परिणाम कॉलम में, मुझे TRUE के रूप में परिणाम प्राप्त करने की आवश्यकता है यदि दोनों परीक्षणों का स्कोर 250 के बराबर है।

निचे इमेज में देखें।

जब हम तार्किक कार्य को लागू करते हैं और हमें परिणाम मिलते हैं। सेल C4 और C5 में, हमें TRUE के रूप में परिणाम मिला क्योंकि टेस्ट 1 और टेस्ट 2 स्कोर 250 से अधिक या बराबर हैं।

सी 6 सेल को यहां देखें। हमें FALSE मिला है, भले ही टेस्ट 2 का स्कोर 250 के बराबर है। ऐसा इसलिए है, क्योंकि टेस्ट 1 में, स्कोर केवल 179 है।

VBA और फ़ंक्शन का उपयोग करने के उदाहरण

उदाहरण 1

उदाहरण के लिए, हम यहां संख्याओं का परीक्षण करेंगे, चाहे 25> = 20 और 30 <= 31 हो।

चरण 1: चर को स्ट्रिंग के रूप में घोषित करें।

कोड:

उप AND_Example1 () मंद K जैसा स्ट्रिंग अंत उप

चरण 2: चर "k" के लिए, हम AND फ़ंक्शन को लागू करके मान प्रदान करेंगे।

कोड:

उप AND_Example1 () डिम K ऐस स्ट्रिंग K = एंड सब

चरण 3: 25> = 20 के रूप में पहली शर्त की आपूर्ति करें।

कोड:

उप AND_Example1 () डिम के रूप में स्ट्रिंग K = 25> = 20 अंत उप

चरण 4: अब खुले और कार्य करें और दूसरे तार्किक परीक्षण की आपूर्ति करें, 30 <= 29।

कोड:

उप AND_Example1 () डिम K As स्ट्रिंग K = 25> = 20 और 30 <= 29 अंत उप

चरण 5: अब VBA में संदेश बॉक्स में चर "k" का परिणाम दिखाएं।

कोड:

उप AND_Example1 () डिम K अस स्ट्रिंग K = 25> = 20 और 30 <= 29 MsgBox K एंड सब

परिणाम क्या है यह देखने के लिए मैक्रो चलाएँ।

हमें FALSE के रूप में परिणाम मिला क्योंकि हमने लागू की गई दो स्थितियों में से, पहली शर्त 25> = 20, यह स्थिति संतुष्ट है, इसलिए परिणाम TRUE है, और दूसरी शर्त 30 <= 29 है, यह संतुष्ट नहीं है परिणाम FALSE है। परिणाम को TRUE के रूप में प्राप्त करने के लिए, दोनों स्थितियों में संतुष्ट होना चाहिए।

उदाहरण # 2

अब मैं तार्किक परीक्षा को "100> 95 और 100 <200" में बदल दूंगा

कोड:

उप AND_Example2 () डिम के रूप में स्ट्रिंग k = 100> 95 और 100 <200 MsgBox k End Sub

परिणाम देखने के लिए कोड चलाएँ।

यहाँ हमें परिणाम के रूप में TRUE मिला क्योंकि

1 सेंट लॉजिकल टेस्ट: 100> 95 = ट्रू

2 एन डी लॉजिकल टेस्ट: 100 <200 = ट्रू

चूंकि हमें दोनों तार्किक परीक्षणों के लिए TRUE परिणाम मिले, इसलिए हमारा अंतिम परिणाम TRUE है।

उदाहरण # 3

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

यहां हालत टेस्ट 1 स्कोर> = 250 और टेस्ट 2 स्कोर> = 250 है

चूंकि हमारे पास एक से अधिक डेटा हैं, इसलिए हमें कोड के अनावश्यक और समय लेने वाली लाइनों को लिखने से बचने के लिए छोरों का उपयोग करने की आवश्यकता है। मैंने आपके लिए नीचे कोड लिखा है; सूत्र और तर्क एक ही बात है कि मैंने "अगले पाश के लिए VBA" का उपयोग किया है।

कोड:

उप AND_Example3 () डिम k As Integer For k = 2 To 6 Cells (k, 3) .Value = कक्ष (k, 1)> = 250 और कक्ष (k, 2)> = 250 अगला k अंत उप

यह हमारे कार्यपत्रक फ़ंक्शन के समान परिणाम देगा, लेकिन हमें कोई सूत्र नहीं मिलेगा। हमें केवल परिणाम मिलते हैं।

इस तरह, हम कई स्थितियों का परीक्षण करने के लिए AND तार्किक फ़ंक्शन को लागू कर सकते हैं, जो सभी वांछित परिणामों पर पहुंचने के लिए सही होना चाहिए।

यह पूरी तरह से OR फ़ंक्शन के विपरीत काम करता है, जहां या तो परिणाम प्राप्त करने के लिए TRUE होने के लिए किसी एक की आवश्यकता होती है, लेकिन परिणाम प्राप्त करने के लिए तार्किक परीक्षण में 100% परिणाम की आवश्यकता होती है।

दिलचस्प लेख...