VBA केस सेंसिटिव रोकें - विकल्प टेक्स्ट की तुलना करें

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

VBA केस को असंवेदनशील बनाना

VBA केस-असंवेदनशील बनाने के लिए, आपको डालने की आवश्यकता है विकल्प टेक्स्ट की तुलना करें मॉड्यूल की शुरुआत में। सबसे पहले, हम इस विकल्प सेट के बिना मानक VBA व्यवहार को देखेंगे। यह कोड है:

123456789

यदि शीट 1. रेंज ("ए 1")। मान = शीट 1. रेंज ("बी 1")। तब मूल्यMsgBox "दो पाठ समान हैं"अन्यथाMsgBox "दो पाठ भिन्न हैं"अगर अंत

उदाहरण में, हम स्ट्रिंग्स की A1 और B1 से तुलना करना चाहते हैं। यदि तार समान हैं, तो हम संदेश बॉक्स को "दो पाठ समान हैं" संदेश के साथ वापस कर देंगे। यदि वे समान नहीं हैं, तो हम संदेश "दो पाठ अलग-अलग हैं।

छवि 1. विकल्प के बिना स्ट्रिंग्स की तुलना टेक्स्ट की तुलना करें

जैसा कि आप चित्र में देख सकते हैं, दोनों पाठ समान हैं, लेकिन पहला ऊपरी मामले में है, जबकि दूसरा निचले मामले में है। उसके कारण, VBA उन्हें अलग मानता है और यह संदेश लौटाता है।

1234567891011

विकल्प टेक्स्ट की तुलना करेंपब्लिक सब केस सेंसिटिव टेस्ट ()यदि शीट 1. रेंज ("ए 1")। मान = शीट 1. रेंज ("बी 1")। तब मूल्यMsgBox "दो पाठ समान हैं"अन्यथाMsgBox "दो पाठ भिन्न हैं"अगर अंतअंत उप

अब हम मॉड्यूल की शुरुआत में विकल्प तुलना टेक्स्ट जोड़ेंगे और अंतर देखेंगे। यहाँ कोड है। हम एक ही उदाहरण पर कोड चलाते हैं:

छवि 2. विकल्प के साथ स्ट्रिंग्स की तुलना टेक्स्ट की तुलना करें

अब, जब विकल्प तुलना टेक्स्ट सेट किया जाता है, तो वीबीए केस असंवेदनशील हो जाता है और इन दो ग्रंथों को समान मानता है।

पाठ की तुलना करना

यदि आप घोषित नहीं करते हैं विकल्प टेक्स्ट की तुलना करें, आप केस-असंवेदनशील तुलना करने के लिए स्ट्रिंग मामलों को परिवर्तित कर सकते हैं। यह UCase, LCase या StrConv फ़ंक्शन द्वारा संभव है। आप इसके बारे में यहाँ और अधिक जानकारी प्राप्त कर सकते हैं: VBA अपर, लोअर, और प्रॉपर केस - केस फंक्शन्स