एक्सेल VBA नहीं फ़ंक्शन
तार्किक कार्य गणना के लिए उपयोगी होते हैं जिन्हें परीक्षण करने के लिए कई शर्तों या मानदंडों की आवश्यकता होती है। अपने पहले के लेखों में, हमने "VBA IF," "VBA OR," और "VBA AND" स्थितियां देखी हैं। इस लेख में, हम एक्सेल में IF फ़ंक्शन के साथ "VBA NOT" पर चर्चा करेंगे। इसे पहले समझने के लिए, हमें "VBA NOT" फ़ंक्शन को देखना होगा।
उदाहरण
उदाहरण 1
VBA के साथ भी फ़ंक्शन उपलब्ध नहीं है, और यह एक्सेल फ़ंक्शन के समान ही काम करता है। उदाहरण के लिए, VBA कोड के नीचे सेट को देखें।
कोड:
Sub NOT_Example1 () डिम k As स्ट्रिंग k = नहीं (45 = 45) MsgBox k End Sub
उपरोक्त कोड में, हमने चर "k" को एक स्ट्रिंग के रूप में घोषित किया है।
डिम के अस स्ट्रिंग
अगला, हमने NOT फ़ंक्शन के माध्यम से मान असाइन किया है। क्या फ़ंक्शन यह नहीं कहता है कि संख्या 45 45 के बराबर है या नहीं?
k = नहीं (४५ = ४५)
अगला, हमने संदेश बॉक्स में "k" चर के लिए NOT फ़ंक्शन द्वारा मान रिटर्न दिया है।
MsgBox के
कोड चलाएँ और देखें कि परिणाम क्या है।
उदाहरण # 2 - IF फ़ंक्शन के साथ नहीं
जैसा कि मैंने पहले के एक लेख में कहा था, "यदि अन्य तार्किक कार्यों के साथ एक्सेल में सबसे अच्छे जोड़े हैं।"
इसी तरह, IF with IF कई मायनों में उपयोगी नहीं है। IF के साथ, TRUE या FALSE के डिफ़ॉल्ट परिणामों के बजाय हमारे अपने परिणाम हो सकते हैं।
ऊपर से समान उदाहरण कोड लें, और हम IF फ़ंक्शन के साथ NOT लागू करेंगे।
कोड:
उप NOT_Example2 () डिम k अस स्ट्रेंजिंग इफ नॉट (45 = 45) उसके बाद k = "टेस्ट परिणाम TRUE" Else k = "टेस्ट परिणाम FALSE है" अंत यदि MsgBox k End Sub
उपरोक्त कोड में, हमने "परीक्षा परिणाम FALSE" से डिफ़ॉल्ट परिणाम बदल दिया है और "परीक्षण का परिणाम सही है।" यदि आपूर्ति की गई तार्किक परीक्षण सही है, तो यह "परीक्षण का परिणाम FALSE है," वापस आएगा और यदि आपूर्ति की गई तार्किक परीक्षा गलत है, तो यह वापस आ जाएगी। "परीक्षा परिणाम TRUE है।"
उपरोक्त कोड में, हमारे पास 45 = 45 के रूप में मान है, इसलिए हमें उत्तर निम्नानुसार मिलेगा।
उदाहरण # 3 - उन्नत नहीं
IF फ़ंक्शन के साथ फ़ंक्शन का उपयोग सबसे अच्छा है। हम एक विशेष शीट को छोड़कर सभी शीट को छिपाने के लिए इस फ़ंक्शन का उपयोग कर सकते हैं।
हमारे पास विभिन्न शीट हैं, जो हमारे एक्सेल में निम्नानुसार हैं।
नीचे एक विशेष शीट को छोड़कर सभी शीट को छिपाने के लिए नमूना कोड है।
कोड:
उप NOT_Example3 () ActiveWorkbook.Worksheets में प्रत्येक Ws के लिए कार्य के रूप में डिम Ws नहीं (Ws.Name = "डेटा शीट") तो WVVouble = xlSheetVeryHidex अंत में अगला Ws अंत उप
उपरोक्त कोड वर्कशीट "डेटा शीट" को छोड़कर सभी वर्कशीट को छुपाता है।
आप शीट नाम को अपनी शीट नाम में बदलकर एक विशेष शीट को छोड़कर सभी शीट्स को छिपाने के लिए इस VBA कोड का उपयोग कर सकते हैं।
जैसे हम कैसे एक्सेल में भी चादरें खोल सकते हैं। नीचे दिया गया कोड शीट नाम "डेटा शीट" को छोड़कर सभी शीट्स को अनहाइड कर देगा।
कोड:
उप NOT_Example4 () ActiveWorkbook.Worksheets में प्रत्येक Ws के लिए कार्य के रूप में डिम Ws नहीं तो (Ws.Name = "डेटा शीट") तो Ws.Vouble = xlSheetVouble यदि अगली पंक्ति अंत उप है
नीचे दिया गया कोड केवल शीट नाम "डेटा शीट" को अनहाइड करेगा।
कोड:
उप NOT_Example3 () ActiveWorkbook.Worksheets में प्रत्येक Ws के लिए कार्य के रूप में मंद Ws
