न के बराबर VBA में एक ऑपरेटर है जिसे एक नकारात्मक ऑपरेटर भी कहा जा सकता है, यह एक तार्किक कार्य है इसलिए इस फ़ंक्शन द्वारा दिया गया आउटपुट या तो सही है या गलत है, हम जानते हैं कि समान ऑपरेटर "=" है, लेकिन यह बराबर नहीं है " “VBA में इसलिए कि जो भी मूल्य हमें बराबर ऑपरेटर से मिलता है, हमें Not Equal ऑपरेटर का उपयोग करके सटीक विपरीत मूल्य मिलेगा।
VBA में "बराबर नहीं" ऑपरेटर
आमतौर पर, हम एक तार्किक परीक्षण करते हैं "क्या कुछ अन्य चीजों के बराबर है या नहीं।" कुछ मामलों में, हमें "असमानता" परीक्षण भी करने की आवश्यकता है। असमानता परीक्षण एक समान परीक्षण के अलावा और कुछ नहीं है। आम तौर पर, हम कहते हैं कि अगर कोई चीज दूसरी चीज के बराबर है या नहीं, अगर वह समान है, तो किसी तरह का काम करता है अगर अलग काम नहीं है। इसी तरह, असमानता परीक्षण का उपयोग करके भी हम किसी प्रकार का ऑपरेशन कर सकते हैं। VBA में "NOT EQUAL" को प्रतीकों से अधिक और कम के संयोजन द्वारा दर्शाया गया है। यदि ये दोनों ऑपरेटर संयुक्त हो जाते हैं, तो यह समान प्रतीक नहीं बन जाता है, "।"
एक्सेल VBA में कैसे काम करता है?
VBA ऑपरेटर के बराबर के तर्क के बिल्कुल विपरीत काम नहीं करता है। ऑपरेटर के बराबर रिटर्न TRUE है यदि आपूर्ति की गई परीक्षा संतुष्ट नहीं है, तो यह FALSE लौटाएगा। उदाहरण के लिए, यदि आप 10 = 10 कहते हैं, तो यह TRUE लौटाएगा या FALSE।
दूसरी तरफ, "न के बराबर" विपरीत दिशा में काम करता है। यदि एक्सेल में सप्लाई किया गया लॉजिकल टेस्ट न के बराबर है, तो केवल वह TRUE लौटाएगा अन्यथा FALSE।
उदाहरण के लिए, यदि आप 10 10 कहते हैं, तो यह FALSE लौटाएगा क्योंकि 10 10 के बराबर है। एक TRUE परिणाम प्राप्त करने के लिए, एक मान अन्य मूल्य के बराबर नहीं होना चाहिए।
एक्सेल VBA में समान नहीं के उदाहरण
नीचे एक्सेल VBA में ऑपरेटर के बराबर नहीं के उदाहरण दिए गए हैं।
उदाहरण 1
अब हम देखेंगे कि व्यावहारिक रूप से VBA Not Equal () चिह्न का उपयोग कैसे करें। नीचे दिए गए कोड को देखें।
कोड:
उप NotEqual_Example1 () डिम के रूप में स्ट्रिंग k = 100 100 MsgBox k End Sub
यहां हम परीक्षण कर रहे हैं कि क्या 100 नंबर 100 नंबर के बराबर नहीं है। निश्चित रूप से, हम जानते हैं कि 100 नंबर 100 के बराबर है, इसलिए परिणाम FALSE होगा।
अब मैं समीकरण बदलूंगा।
कोड:
उप NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
अब परीक्षण यह है कि क्या 100 नंबर 99 के बराबर नहीं है। इसलिए परिणाम TRUE होगा।
उदाहरण # 2
अब हम देखेंगे कि वास्तविक समय के उदाहरणों में यह नहीं के बराबर ऑपरेटर का उपयोग कैसे करें। प्रदर्शन के लिए, मैंने कुछ डेटा बनाए हैं।
हमारे पास दो मूल्य हैं, "मूल्य 1" और "मूल्य 2"।
अब मेरी आवश्यकता है यदि मान 1 मान 2 के बराबर नहीं है, तो मुझे "भिन्न" के रूप में परिणाम की आवश्यकता है, अन्यथा मुझे "समान" परिणाम की आवश्यकता है।
चरण 1: एक चर को एक पूर्णांक के रूप में परिभाषित करें।
कोड:
उप NotEqual_Example2 () Dim k As Integer End Sub
स्टेप 2: NEXT LOOP के लिए 2 से 9 तक खोलें।
कोड:
उप NotEqual_Example2 () Dim k As Integer For k = 2 To 9 Next k End उप
चरण 3: लूप के अंदर, हमें यह जांचने की आवश्यकता है कि क्या मूल्य 1 मूल्य के बराबर नहीं है 2. चूंकि हमें अपने स्वयं के परिणामों की आवश्यकता है, हमें IF स्थिति का उपयोग करने की आवश्यकता है।
कोड:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 To 9 यदि कक्ष (k, 1) कक्ष (k, 2) तब कक्ष (k, 3) .Vueue = "भिन्न" Else Cells (k, 3) .Value = "समान" अंत यदि अगला k अंत उप
मान लीजिए कि हालत परीक्षण मान 1 मूल्य 2 के बराबर नहीं है या नहीं। यदि समान नहीं है, तो यह "अलग" होगा। यदि समान है, तो वह "समान" लौटाएगा।
आप नीचे VBA कोड को कॉपी और पेस्ट कर सकते हैं।
इस कोड को अपने मॉड्यूल पर कॉपी करें और F5 कुंजी या मैन्युअल का उपयोग करके चलाएं। यह इस तरह एक परिणाम लौटाएगा।
समान चिह्न के साथ छिपाएँ और अनहाइड शीट्स
नहीं के बराबर गाने का उपयोग करने के विभिन्न तरीके विशाल हैं। हम अपनी जरूरतों को पूरा करने के लिए इस चिन्ह का उपयोग कर सकते हैं।
# 1 - एक शीट को छोड़कर सभी शीट्स छिपाएं
हमने इस तरह की स्थिति कई बार देखी है। हमें विशेष शीट को छोड़कर सभी शीटों को छिपाने की आवश्यकता थी।
उदाहरण के लिए, यदि आप "ग्राहक डेटा" नाम के अलावा सभी शीटों को छिपाना चाहते हैं, तो आप इस कोड का उपयोग कर सकते हैं।
कोड:
ActiveWorkbook.Worksheets में प्रत्येक Ws के लिए कार्य के रूप में सब Hide_All () डिम Ws। यदि "ग्राहक डेटा" नाम नहीं दिया गया है तो Ws.V अदृश्य = xlSheetVeryHidden अंत यदि अगले Ws अंत उप
# 2 - एक शीट को छोड़कर सभी शीट्स को अनहाइड करें
इसी तरह, हम एक शीट को छोड़कर सभी शीट को अनहाइड कर सकते हैं। ऐसा करने के लिए नीचे दिए गए कोड का उपयोग करें।
कोड:
उप Unhide_All () डिम Ws के रूप में वर्कशीट ActiveWorkbook.orksheets में प्रत्येक Ws के लिए यदि Ws.Name "ग्राहक डेटा" है तो Ws.Vouble = xlSheetVouble अगर अगला Ws अंत उप
आप इस VBA Not Equal को एक्सेल टेम्पलेट में डाउनलोड कर सकते हैं - VBA Not Equal Operator Template।
