VBA लॉजिकल ऑपरेटर्स: और, या नहीं, एक्सेल VBA में नहीं तो

विषय - सूची:

Anonim

VBA लॉजिकल ऑपरेटर्स: और, या, नहीं

एक्सेल VBA लॉजिकल ऑपरेटर्स

मान लीजिए कि आप ग्राहक के ऑर्डर को संसाधित करना चाहते हैं। उसके लिए, आप पहले यह देखना चाहते हैं कि ऑर्डर किया गया उत्पाद मौजूद है या नहीं। यदि ऐसा होता है, तो आप यह भी जांचना चाहते हैं कि हाथ पर मात्रा पर्याप्त है या नहीं। ऐसे मामलों में तार्किक संचालक काम आते हैं। तार्किक ऑपरेटरों का उपयोग एक से अधिक स्थितियों का मूल्यांकन करने के लिए किया जाता है।

मुख्य एक्सेल VBA तार्किक ऑपरेटरों और, या, नीचे दी गई तालिका में सूचीबद्ध नहीं हैं:

एस / एन ऑपरेटर विवरण उदाहरण उत्पादन
1 तथा और: इसका उपयोग एक से अधिक स्थितियों को संयोजित करने के लिए किया जाता है। यदि सभी स्थितियां सत्य हैं, और सत्य का मूल्यांकन करता है। यदि कोई भी स्थिति झूठी है, और झूठी का मूल्यांकन करता है यदि सत्य = सत्य और असत्य = सत्य है असत्य
२ या या: इसका उपयोग एक से अधिक स्थितियों को संयोजित करने के लिए किया जाता है। यदि कोई भी स्थिति सत्य का मूल्यांकन करती है, या सही है। यदि वे सभी झूठे हैं, या झूठे हैं यदि सत्य = सत्य या सत्य = असत्य सच
३ नहीं नहीं: यह एक उलटा कार्य की तरह काम करता है। यदि स्थिति सत्य है, तो यह गलत है, और यदि कोई स्थिति गलत है, तो यह सत्य है। यदि नहीं (सत्य) तो असत्य

VBA लॉजिकल ऑपरेटर्स उदाहरण स्रोत कोड

सरलता के लिए, हम कठिन कोडित संख्याओं की तुलना करेंगे।

शीट में "विकल्प डालें" से ActiveX बटन जोड़ें।

नीचे चित्र में दिखाए अनुसार गुण सेट करें

VBA लॉजिकल ऑपरेटर्स

निम्न तालिका उन गुणों को दिखाती है जिन्हें आपको बदलने की आवश्यकता है और वे मान जिन्हें आपको भी अपडेट करने की आवश्यकता है।

एस / एन नियंत्रण संपत्ति मूल्य
1 कमांडबटन १ नाम BtnAND
शीर्षक और ऑपरेटर (0 = 0)
२ कमांडबटन 2 नाम btnOR
शीर्षक या ऑपरेटर (1 = 1) या (5 = 0)
३ CommandButton3 नाम btnNOT
शीर्षक ऑपरेटर नहीं (0 =) नहीं

निम्नलिखित कोड btnAND_Click में जोड़ें

Private Sub btnAND_Click()If (1 = 1) And (0 = 0) ThenMsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"ElseMsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"End IfEnd Sub

VBA यदि और ऑपरेटर

  • "यदि (1 = 1) और (0 = 0) तो" यदि कथन दो स्थितियों (1 = 1) और (0 = 0) को संयोजित करने के लिए AND तार्किक संचालक का उपयोग करता है। यदि दोनों स्थितियां सत्य हैं, तो 'Else' कीवर्ड के ऊपर कोड निष्पादित किया गया है। यदि दोनों स्थितियां सत्य नहीं हैं, तो 'Else' कीवर्ड के नीचे दिए कोड को निष्पादित किया जाता है।

BtnOR_Click के लिए निम्न कोड जोड़ें

Private Sub btnOR_Click()If (1 = 1) Or (5 = 0) ThenMsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"ElseMsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"End IfEnd Sub

VBA यदि या ऑपरेटर

  • "यदि (1 = 1) या (5 = 0) तब" यदि कथन दो स्थितियों (1 = 1) और (5 = 0) को संयोजित करने के लिए OR तार्किक ऑपरेटर का उपयोग करता है। यदि कोई भी स्थिति सही है, तो Else कीवर्ड के ऊपर कोड निष्पादित किया जाता है। यदि दोनों स्थितियां झूठी हैं, तो Else कीवर्ड के नीचे दिए गए कोड को निष्पादित किया जाता है।

निम्न कोड btnNOT_Click में जोड़ें

Private Sub btnNOT_Click()If Not (0 = 0) ThenMsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"ElseMsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"End IfEnd Sub

VBA यदि ऑपरेटर नहीं है

  • "यदि नहीं (0 = 0) तो" वीबीए यदि नहीं तो फ़ंक्शन स्टेटमेंट के परिणाम को नकारने के लिए NOT तार्किक ऑपरेटर का उपयोग नहीं करता है। यदि शर्तें सही हैं, तो 'Else' कीवर्ड के नीचे दिए गए कोड को निष्पादित किया जाता है। यदि स्थिति सही है, तो Else कीवर्ड के ऊपर कोड निष्पादित किया जाता है।

उपरोक्त कोड वाले एक्सेल को डाउनलोड करें