IF या एक एकल कथन नहीं है ये दो तार्किक कार्य हैं जो VBA में कुछ समय के लिए एक साथ उपयोग किए जाते हैं, हम इन दो तार्किक कार्यों का एक साथ उपयोग करते हैं जब हमारे पास जाँच करने के लिए एक से अधिक मानदंड होते हैं और यदि कोई एक मानदंड पूरा होता है तो हम प्राप्त करते हैं सही परिणाम, जब हम if या स्टेटमेंट का उपयोग करते हैं, तो if स्टेटमेंट के दो मानदंडों के बीच उपयोग किया जाता है।
IF या फ़ंक्शन VBA में
तार्किक कार्य किसी भी मानदंड आधारित गणना के दिल हैं। "IF" सबसे लोकप्रिय लॉजिकल फ़ंक्शन है, इसे वर्कशीट फ़ंक्शन के रूप में या VBA फ़ंक्शन के रूप में मानें, यह हमारी आवश्यकताओं के लिए उत्कृष्ट रूप से कार्य करता है। लेकिन एक और तार्किक कार्य, "OR" एक्सेल में, सबसे कम फ़ंक्शन है। जटिल गणनाओं को हल करने की बात आती है, तो मास्टर करना भी महत्वपूर्ण है। इस लेख में, हम आपको VBA IF OR फ़ंक्शन के बारे में विस्तार से बताएंगे। फ़ंक्शन को विस्तार से प्राप्त करने के लिए पूरा लेख पढ़ें।

VBA में OR फ़ंक्शन के साथ IF का उपयोग कैसे करें?
हम आपको VBA में IF OR फ़ंक्शन का उपयोग करने का एक सरल उदाहरण दिखाएंगे।
तार्किक कार्यों का एक संयोजन एक्सेल में सबसे अच्छा जोड़े है। जब आप कई तार्किक सूत्रों को दूसरे तार्किक सूत्र के अंदर जोड़ते हैं, तो यह बताता है कि गणना के लिए परीक्षण करने के लिए कई शर्तों की आवश्यकता होती है।
अब, VBA में IF OR फ़ंक्शन के सिंटैक्स को देखें।
(टेस्ट) या (टेस्ट) या (टेस्ट)
यह वही है जैसा हमने वर्कशीट के उदाहरण में देखा था। एक बेहतर समझ के लिए, नीचे दिए गए उदाहरण को देखें।

हमारे पास पिछले महीने की कीमत, अंतिम 6 महीने की औसत कीमत और वर्तमान मासिक मूल्य है।
यह तय करने के लिए कि उत्पाद खरीदना है या नहीं, हमें यहां कुछ परीक्षण करने की आवश्यकता है, और वे परीक्षण हैं।
यदि वर्तमान मूल्य अन्य दो कीमतों में से किसी एक से कम या बराबर है, तो हमें "खरीद" के रूप में परिणाम प्राप्त करना चाहिए या फिर परिणाम को "Do Not Buy" के रूप में प्राप्त करना चाहिए ।
चरण 1: उपप्रकार के अंदर IF स्थिति खोलें।
कोड:
उप IF_OR_Example1 () यदि उप उप

चरण 2: IF स्थिति के अंदर, श्रेणी ("D2") के रूप में पहला तार्किक परीक्षण लागू करें। मान <= श्रेणी ("B2")। मान
कोड:
उप IF_OR_Example1 () यदि श्रेणी ("D2")। मान <= श्रेणी ("B2")। मान उप उप

चरण 3: पहले तार्किक स्थिति हो गई है, अब OR कथन खोलें।
कोड:
उप IF_OR_Example1 () यदि श्रेणी ("D2")। मान <= श्रेणी ("B2")।) या उप उप

चरण 4: अब रेंज ("D2") के रूप में दूसरी तार्किक स्थिति लागू करें। मान <= श्रेणी ("C2") मान।
कोड:
उप IF_OR_Example1 () यदि श्रेणी ("D2")। मान <= श्रेणी ("B2")। मान या श्रेणी ("D2")। मान <= श्रेणी ("C2")। मान अंत उप

चरण 5: ठीक है, हम यहाँ तार्किक परीक्षणों के साथ किया जाता है। तार्किक परीक्षणों के बाद, शब्द "तब" डालें।
कोड:
उप IF_OR_Example1 () यदि श्रेणी ("D2")। मान <= श्रेणी ("B2")। मान या श्रेणी ("D2")। मान <= श्रेणी ("C2")। मान फिर समाप्ति उप

चरण 6: अगली पंक्ति में, यदि तार्किक परीक्षण TRUE है तो परिणाम क्या होना चाहिए। यदि हालत सही है, तो हमें सेल ई 2 में "खरीदें" के रूप में परिणाम चाहिए।
कोड:
उप IF_OR_Example1 () यदि श्रेणी ("D2")। मान <= श्रेणी ("B2")। मान या श्रेणी ("D2")। मान <= श्रेणी ("C2")। मान तब सीमा ("E2")। मूल्य = "खरीदें" अंत उप

चरण 7: यदि परिणाम FALSE है, तो हमें "Do Not Buy" के रूप में परिणाम प्राप्त करना चाहिए। तो अगली पंक्ति में, "Else" डालें और अगली पंक्ति में कोड लिखें।
कोड:
उप IF_OR_Example1 () यदि श्रेणी ("D2")। मान <= श्रेणी ("B2")। मान या श्रेणी ("D2")। मान <= श्रेणी ("C2")। मान तब सीमा ("E2")। मूल्य = "खरीदें" एल्स रेंज ("ई 2")। मूल्य = "अंत में उप नहीं खरीदें"

चरण 8: शब्द "समाप्ति यदि" के साथ IF कथन को बंद करें।
कोड:
उप IF_OR_Example1 () यदि श्रेणी ("D2")। मान <= श्रेणी ("B2")। मान या श्रेणी ("D2")। मान <= श्रेणी ("C2")। मान तब सीमा ("E2")। मान = "खरीदें" Else Range ("E2")। Value = "डोन्ट नॉट बाय" एंड इफ एंड सब

ठीक है, हम कोडिंग भाग के साथ किया जाता है।
चलिए F5 या मैन्युअल रूप से रन विकल्प के माध्यम से इस कोड को चलाते हैं और देखते हैं कि सेल ई 2 में क्या परिणाम है।

हमें परिणाम "खरीदें" के रूप में मिला क्योंकि Apple की वर्तमान मासिक कीमत "पिछले महीने" और साथ ही साथ "6 महीने की औसत कीमत" दोनों की कीमत से कम है।
यदि Loops के साथ या VBA फ़ंक्शन (उन्नत)
Once you understand the formula, try to use it with a larger number of cells. In the case of a larger number of cells, we cannot write any line of code, so we need to use VBA loops.
For the above set of data, I have added a few more lines.

We need to use the For Next loop here.
Just keep the current code as it is.
Declare the variable as an integer.

Now open For Next Loop from 2 to 9.

Now, wherever we have cell reference, change the current number, and concatenate the variable “k” with them.
For example, Range (“D2”).Value should be Range (“D” & k).Value

Now run the code. We should get the status in all the cells.

You can copy the code below.
Code:
सब IF_OR_Example1 () डिम k As Integer For k = 2 To 9 if Range ("D" & k) .Value <= Range ("B" & k) .Value या Range ("D" & k) .Value <=। रेंज ("C" & k)। वाल्यू तब रेंज ("E" & k) .Value = "खरीदें" Else Range ("E" & k) .Value = "डोन्ट नॉट बाइ" End if Next ka End Sub