ट्युटोरियलले VBA प्रयोग गरेर सेल भित्र डुप्लिकेट शब्दहरू वा पाठ स्ट्रिङहरू कसरी हाइलाइट गर्ने भनेर देखाउँछ।

एक्सेल सशर्त ढाँचाले तपाईंले सोच्न सक्ने हरेक सम्भावित तरिकामा नक्कलहरूलाई हाइलाइट गर्न सम्भव बनाउँछ: पहिलो घटनाको साथ वा बिना, एकल स्तम्भ वा धेरै स्तम्भहरूमा, लगातार डुप्लिकेट कक्षहरू, र कुञ्जी स्तम्भमा समान मानहरूमा आधारित सम्पूर्ण पङ्क्तिहरू। तर, सामान्य रूपमा, त्यहाँ "तर" छ। सशर्त ढाँचा नियमहरू सेल स्तरमा काम गर्दछ जब तपाईं सम्पूर्ण कक्षहरूको सट्टा नक्कल पाठ हाइलाइट गर्न चाहनुहुन्छ। यो केवल म्याक्रो संग गर्न सकिन्छ। यदि तपाइँसँग VBA सँग कुनै अनुभव छैन भने, कृपया यो पृष्ठ बन्द गर्न हतार नगर्नुहोस्। यहाँ, तपाईंले प्रयोग गर्न तयार कोड उदाहरणहरू र तिनीहरूलाई आफ्नो कार्यपत्रहरूमा कसरी प्रयोग गर्ने भन्ने बारे विस्तृत निर्देशनहरू फेला पार्नुहुनेछ।

पाठ केसलाई बेवास्ता गर्दै सेलमा नक्कल शब्दहरू हाइलाइट गर्नुहोस्

यस उदाहरणले तलको छविमा देखाइएको जस्तै रातो फन्ट रङमा सेल भित्र डुप्लिकेट शब्दहरू वा पाठ स्ट्रिङहरू कसरी छाया गर्ने भनेर देखाउँछ। कृपया ध्यान दिनुहोस् कि लोअरकेस र अपरकेस अक्षरहरूलाई एउटै वर्णको रूपमा व्यवहार गरिन्छ। उदाहरणका लागि, सुन्तला , सुन्तला र सुन्तला एउटै शब्द मानिन्छ।

द म्याक्रोको कोड निम्नानुसार छ:

Public Sub HighlightDupesCaseInsensitive() Dim Cell as Range Dim Delimiter as String Delimiter = InputBox( "डेलिमिटर प्रविष्ट गर्नुहोस् जसले सेलमा मानहरू छुट्याउछ" , "delimiter" , " , " ) प्रत्येक कक्षको लागि।आवेदन। चयन कल हाइलाइटDupeWordsInCell(Cell, Delimiter, False) Next End Sub Sub HighlightDupeWordsInCell(Cell as दायरा, ऐच्छिक डिलिमिटर as String = " " , बूलियन = True) को रूपमा वैकल्पिक केससेन्सिटिभ (शब्दको रूपमा Dim text) स्ट्रिङको रूपमा Dim text String Dim wordIndex, matchCount, positionInText Integer को रूपमा यदि CaseSensitive त्यसपछि शब्दहरू = Split(Cell.Value, Delimiter) अन्य शब्दहरू = Split(LCase(Cell.Value), Delimiter) End यदि wordIndex = LBound (शब्दहरू) UBound (शब्दहरू) को लागि - 1 शब्द = शब्द(wordIndex) matchCount = 0 for nextWordIndex = wordIndex + 1 UBound (शब्दहरू) यदि शब्द = शब्दहरू(nextWordIndex) त्यसपछि matchCount = matchCount + 1 End यदि Next nextWordIndex यदि matchCount > 0 त्यसपछि टेक्स्ट = "" अनुक्रमणिकाको लागि = LBound (शब्दहरू) UBound (शब्दहरू) पाठ = पाठ र amp; शब्द (सूचकांक) यदि (शब्दहरू(सूचकांक) = शब्द) त्यसपछि कक्ष। वर्णहरू(लेन(पाठ) - लेन(शब्द) + 1, लेन(शब्द))।फन्ट।रङ = vbRed अन्त्य यदि पाठ = पाठ र; डिलिमिटर नेक्स्ट एन्ड यदि Next wordIndex End Sub

सेल केस-सेन्सिटिभमा डुप्लिकेट पाठ हाइलाइट गर्नुहोस्

धेरै अवस्थामा, हामी एक्सेलमा पाठ प्रविष्टिहरूसँग काम गर्दा अक्षर केसलाई बेवास्ता गर्छौं। केही परिस्थितिहरूमा, तथापि, पाठ केसले फरक पार्छ। उदाहरणका लागि, यदि तपाइँ आईडी, पासवर्ड, वा त्यस प्रकारको अन्य रेकर्डहरूसँग व्यवहार गर्दै हुनुहुन्छ भने, 1-AA , 1-aa र 1-Aa नक्कलहरू होइनन् र हाइलाइट गर्नु हुँदैन:

यस अवस्थामा,कोडको निम्न संस्करण प्रयोग गर्नुहोस्:

Public Sub HighlightDupesCaseSensitive() Dim Cell as Range Dim Delimiter as String Delimiter = InputBox( "सेलमा मानहरू छुट्याउने परिसीमक प्रविष्ट गर्नुहोस्" , "delimiter" , ", " ) प्रत्येकको लागि। अनुप्रयोगमा सेल। चयन कल हाइलाइटDupeWordsInCell(Cell, Delimiter, True) अर्को अन्त सब Sub HighlightDupeWordsInCell(रेन्जको रूपमा सेल, ऐच्छिक डेलिमिटर स्ट्रिङ = "" , बूलियन = ट्रुको रूपमा वैकल्पिक केससेन्सिटिभ) डिम टेक्स्ट (स्ट्रिङको रूपमा Dim) शब्दको रूपमा स्ट्रिङ डिम wordIndex, matchCount, positionInText Integer को रूपमा यदि CaseSensitive त्यसपछि शब्दहरू = Split(Cell.Value, Delimiter) अन्य शब्दहरू = Split(LCase(Cell.Value), Delimiter) End यदि wordIndex = LBound (शब्दहरू) को लागि UBound ( शब्दहरू) - 1 शब्द = शब्द(wordIndex) matchCount = 0 for nextWordIndex = wordIndex + 1 UBound (शब्दहरू) यदि शब्द = शब्दहरू(nextWordIndex) त्यसपछि matchCount = matchCount + 1 End यदि Next NextWordIndex यदि matchCount > 0 त्यसपछि टेक्स्ट = "" अनुक्रमणिकाको लागि = LBound (शब्दहरू) UBound (शब्दहरू) पाठ = पाठ र amp; शब्द (सूचकांक) यदि (शब्दहरू(सूचकांक) = शब्द) त्यसपछि कक्ष। वर्णहरू(लेन(पाठ) - लेन(शब्द) + 1, लेन(शब्द))।फन्ट।रङ = vbRed अन्त्य यदि पाठ = पाठ र; डिलिमिटर नेक्स्ट एन्ड यदि Next wordIndex End Sub

Excel मा नक्कल शब्दहरू हाइलाइट गर्न म्याक्रो कसरी प्रयोग गर्ने

यदि तपाइँ VBA प्रयोग गर्न शुरुवात हुनुहुन्छ भने, तलका चरण-दर-चरण निर्देशनहरूले तपाईलाई सहज रूपमा हिड्नेछ। । अनुभवी प्रयोगकर्ताहरू हुन सक्छन्केवल डाउनलोड लिङ्क छान्नुहोस् र बाँकी छोड्नुहोस् :)

तपाईँको कार्यपुस्तिकामा कोड थप्नुहोस्

तपाईले आफ्नो एक्सेल कार्यपुस्तिकामा म्याक्रोको कोड सम्मिलित गरेर सुरु गर्नुहुन्छ। यहाँ कसरी छ:

1. कार्यपुस्तिका खोल्नुहोस् जहाँ तपाइँ dupes हाइलाइट गर्न चाहनुहुन्छ।
2. भिजुअल बेसिक सम्पादक खोल्न Alt + F11 थिच्नुहोस्।
3. बायाँ फलकमा, दायाँ क्लिक गर्नुहोस् This Workbook र चयन गर्नुहोस् Insert > Module सन्दर्भ मेनुबाट।
4. कोड विन्डोमा कोड टाँस्नुहोस्।
5. भविष्यको प्रयोगको लागि म्याक्रो राख्नको लागि, आफ्नो कार्यपुस्तिकालाई म्याक्रो-सक्षम गरिएको .xlsm फाइलको रूपमा सुरक्षित गर्न निश्चित हुनुहोस्।

वैकल्पिक रूपमा, तपाइँ हाम्रो नमूना कार्यपुस्तिका डाउनलोड गर्न सक्नुहुन्छ र त्यहाँबाट म्याक्रो चलाउन सक्नुहुन्छ। नमूना कार्यपुस्तिकाले निम्न म्याक्रोहरू समावेश गर्दछ:

• HighlightDupesCaseInsensitive - लेटर केसलाई बेवास्ता गर्दै सेल भित्र डुप्लिकेट शेडहरू।
• HighlightDupesCaseSensitive - हाइलाइटहरू लेटर केसलाई विचार गर्दै सेलमा ठगी।

थप जानकारीको लागि, कृपया एक्सेलमा VBA कोड कसरी घुसाउने भनेर हेर्नुहोस्।

म्याक्रो चलाउनुहोस्

कोडसँग तपाईंको आफ्नै कार्यपुस्तिकामा थपियो वा हाम्रो नमूना फाइल डाउनलोड र खोल्नुहोस्, यस तरिकाले म्याक्रो चलाउनुहोस्:

1. तपाईंको कार्यपत्रमा, तपाईंले नक्कल पाठ हाइलाइट गर्न चाहनुभएको कक्षहरू चयन गर्नुहोस्। यो एक दायरा वा धेरै गैर-सम्पन्न दायराहरू हुन सक्छ।
2. Alt + F8 थिच्नुहोस्।
3. रुचिको म्याक्रो चयन गर्नुहोस् र रन मा क्लिक गर्नुहोस्।

   

4. म्याक्रोले तपाईंलाई डेलिमिटर निर्दिष्ट गर्न सोध्नेछजसले चयन गरिएका कक्षहरूमा मानहरूलाई अलग गर्छ। प्रिसेट डिलिमिटर (हाम्रो केसमा अल्पविराम र स्पेस) इनपुट बक्समा स्वतः देखा पर्नेछ। तपाईँको आवश्यकताहरूमा निर्भर गर्दै, तपाईँले पूर्वनिर्धारित सीमांकक छोड्न सक्नुहुन्छ वा फरक टाइप गर्न सक्नुहुन्छ, र त्यसपछि ठीक क्लिक गर्नुहोस्। कक्षहरू रातो रङमा छायांकन गरिनेछ (वा जुनसुकै फन्ट रङ तपाईंको कोडमा सेट गरिएको छ)।

   टिप। तुरुन्तै सेल भित्र डुप्लिकेटहरू हटाउनुहोस् , तपाईंले हाम्रो अल्टिमेट सुइटमा समावेश धेरै समय बचत गर्ने उपकरणहरू मध्ये एक, नक्कल सबस्ट्रिङहरू हटाउनुहोस् प्रयोग गर्न सक्नुहुन्छ।

   तपाईंको आवश्यकताहरूको लागि कोड कसरी समायोजन गर्ने

   यी प्रयोग नोटहरू र VBA को धेरै आधारभूत ज्ञानको साथ (वा तलका निर्देशनहरूलाई नजिकबाट पछ्याएर), तपाइँ सजिलैसँग तपाइँको आवश्यकता अनुसार कोडहरू परिमार्जन गर्न सक्नुहुन्छ।

   एउटै मोड्युलमा राख्नुहोस्

   तपाईँले याद गर्न सक्नुहुन्छ, दुबै म्याक्रो ( HighlightDupesCaseSensitive र HighlightDupesCaseInsensitive ) HighlightDupeWordsInCell प्रकार्यलाई कल गर्नुहोस्। माथिका दुई म्याक्रोहरू बीचको भिन्नता उक्त प्रकार्यमा पास गरिएको तेस्रो प्यारामिटर (केससेन्सिटिभ) मा मात्र छ।

   केस-संवेदनशील खोजका लागि, यसलाई TRUE मा सेट गरिएको छ:

   Call HighlightDupeWordsInCell(Cell, Delimiter, True)

   केस-संवेदनशील खोजको लागि, यसलाई FALSE मा सेट गरिएको छ:

   Call HighlightDupeWordsInCell(Cell, Delimiter, False)

   म्याक्रोहरूले काम गर्नको लागि, HighlightDupeWordsInCell प्रकार्यको कोड यसमा राखिएको हुनुपर्छ। को रूपमा समान मोड्युलम्याक्रो।

   डिलिमिटर

   चालाउँदा, म्याक्रोले तपाईंलाई चयन गरिएको कक्षहरूमा शब्द/स्ट्रिङहरू छुट्याउने परिसीमक निर्दिष्ट गर्न सोध्नेछ। पूर्वनिर्धारित सीमांकक अल्पविराम र स्पेस (", ") हो र यो आगतबक्समा पूर्वसेट गरिएको छ:

   Delimiter = InputBox("Specify the delimiter that separates values in a cell", "Delimiter", ", ")

   तपाईँको कोडमा, तपाइँ कुनै पनि अन्य वर्ण(हरू) प्रयोग गर्न स्वतन्त्र हुनुहुन्छ। पूर्वनिर्धारित डिलिमिटरको रूपमा।

   रङ

   पूर्वनिर्धारित रूपमा, HighlightDupeWordsInCell प्रकार्य शेडहरू रातो फन्ट रङमा डुप्लिकेट हुन्छन्। रङ यस लाइनमा परिभाषित गरिएको छ:

   Cell.Characters(positionInText, Len(word)).Font.Color = vbRed

   यहाँ, vbRed एक प्रकारको VBA रङ स्थिरता हो। डुपहरूलाई फरक रङमा प्रदर्शन गर्न, तपाईंले vbRed लाई अर्को स्थिरता जस्तै vbGreen, vbYellow, vbBlue, आदिसँग बदल्न सक्नुहुन्छ। T यहाँ समर्थित रङ स्थिरताहरूको सूची पाउन सकिन्छ।

   त्यो हो एक्सेल कक्षहरूमा डुप्लिकेट शब्दहरू कसरी हाइलाइट गर्ने। पढ्नुभएकोमा म तपाईंलाई धन्यवाद दिन्छु र अर्को हप्ता हाम्रो ब्लगमा तपाईंलाई भेट्ने आशा गर्छु!

   उपलब्ध डाउनलोडहरू

   कोड उदाहरणहरू सेलमा नक्कलहरू हाइलाइट गर्न (.xlsm फाइल)

   अन्तिम सुइट 14-दिन पूर्ण-कार्यात्मक संस्करण (.exe फाइल)

   यो पनि हेर्नुहोस्: सूत्र उदाहरणहरूको साथ Excel RIGHT प्रकार्य