টিউটোৰিয়েলে VBA ব্যৱহাৰ কৰি এটা ঘৰৰ ভিতৰত ডুপ্লিকেট শব্দ বা লিখনী ষ্ট্ৰিংসমূহ কেনেকৈ হাইলাইট কৰিব লাগে দেখুৱাইছে।

Excel চৰ্তযুক্ত ফৰ্মেটিঙে আপুনি ভাবিব পৰা প্ৰতিটো সম্ভাৱ্য ধৰণে ডুপ্লিকেটসমূহ হাইলাইট কৰাটো সম্ভৱ কৰি তোলে: 1st উপস্থিতিৰ সৈতে বা অবিহনে, এটা স্তম্ভ বা একাধিক স্তম্ভত, একেৰাহে ডুপ্লিকেট কোষ, আৰু এটা চাবি স্তম্ভত একে মানসমূহৰ ওপৰত ভিত্তি কৰি সম্পূৰ্ণ শাৰীসমূহ। কিন্তু, সচৰাচৰৰ দৰেই, এটা "কিন্তু" আছে। চৰ্তযুক্ত বিন্যাস নিয়মসমূহে এটা ঘৰ স্তৰত কাম কৰে যেতিয়া আপুনি সম্পূৰ্ণ ঘৰসমূহৰ পৰিবৰ্তে নকল লিখনী হাইলাইট কৰিব বিচাৰিব পাৰে। এইটো কেৱল মেক্ৰ’ৰ সহায়তহে কৰিব পাৰি। ভিবিএৰ অভিজ্ঞতা নাথাকিলেও এই পৃষ্ঠাটো বন্ধ কৰিবলৈ খৰখেদা নকৰিব। ইয়াত, আপুনি ব্যৱহাৰ কৰিবলৈ প্ৰস্তুত ক'ড উদাহৰণ আৰু আপোনাৰ কাৰ্য্যপত্ৰিকাত সিহতক কেনেকৈ ব্যৱহাৰ কৰিব লাগে তাৰ বিৱৰিত নিৰ্দেশনা পাব।

লিখনী ক্ষেত্ৰ আওকাণ কৰি এটা ঘৰত নকল শব্দ হাইলাইট কৰক

এই উদাহৰণটোৱে দেখুৱাইছে যে তলৰ ছবিখনত দেখুওৱাৰ দৰে এটা চেলৰ ভিতৰত ডুপ্লিকেট শব্দ বা টেক্সট ষ্ট্ৰিং কেনেকৈ ৰঙা ফন্ট ৰঙত শ্বেড কৰিব পাৰি। অনুগ্ৰহ কৰি মন কৰক যে সৰু আৰু ডাঙৰ আখৰবোৰক একে আখৰ হিচাপে গণ্য কৰা হয়। উদাহৰণস্বৰূপে, কমলা , কমলা আৰু কমলা ক একেটা শব্দ বুলি গণ্য কৰা হয়।

macro ৰ ক'ড নিম্নলিখিত ধৰণৰ:

Public Sub HighlightDupesCaseInsensitive() Dim Cell As Range Dim Delimiter As String Delimiter = InputBox( "এটা কোষত মানসমূহ পৃথক কৰা ডিলিমিটাৰ সুমুৱাওক" , "Delimiter" , ", " ) প্ৰতিটো Cell In ৰ বাবেApplication.Selection Call HighlightDupeWordsInCell(Cell, Delimiter, False ) Next End Sub HighlightDupeWordsInCell(Cell As Renge, বৈকল্পিক Delimiter As String = " " , বৈকল্পিক CaseSensitive As Boolean = True ) Dim text String হিচাপে Dim words() As String Dim word As ষ্ট্ৰিং Dim wordIndex, matchCount, positionInText পূৰ্ণসংখ্যা হিচাপে যদি CaseSensitive তেন্তে শব্দ = বিভাজিত(Cell.Value, Delimiter) অন্যথা শব্দ = Split(LCase(Cell.Value), Delimiter) শেষ যদি wordIndex ৰ বাবে = LBound (শব্দ) UBound (শব্দ) লৈ - 1 শব্দ = শব্দ(শব্দসূচী) matchCount = 0 nextWordIndex = শব্দসূচীৰ বাবে + 1 UBound (শব্দ)লৈ যদি শব্দ = শব্দ(পৰৱৰ্তী শব্দসূচী) তেন্তে matchCount = matchCount + 1 শেষ যদি পৰৱৰ্তী nextWordIndex যদি matchCount > 0 তাৰ পিছত text = "" সূচী = LBound (শব্দ) ৰ বাবে UBound (শব্দ) লৈ text = text & শব্দ(সূচী) যদি (শব্দ(সূচী) = শব্দ) তেন্তে Cell.Characters(Len(পাঠ্য) - Len(শব্দ) + 1, Len(শব্দ)).Font.Color = vbRed শেষ যদি লিখনী = লিখনী & ডিলিমিটাৰ পৰৱৰ্তী শেষ যদি পৰৱৰ্তী wordIndex শেষ উপ

এটা কোষত ডুপ্লিকেট লিখনী হাইলাইট কৰক কেছ-চেন্সিটিভ

বেছিভাগ পৰিস্থিতিত, আমি এক্সেলত লিখনী প্ৰৱেশৰ সৈতে কাম কৰাৰ সময়ত আখৰৰ কেছ আওকাণ কৰাৰ প্ৰৱণতা ৰাখোঁ। কিছুমান বিশেষ পৰিস্থিতিত অৱশ্যে টেক্সট কেছটোৱে গুৰুত্বপূৰ্ণ। উদাহৰণস্বৰূপ, যদি আপুনি IDs, পাছৱৰ্ডসমূহ, বা সেই ধৰণৰ অন্য ৰেকৰ্ডসমূহৰ সৈতে কাম কৰি আছে, স্ট্ৰিংসমূহ যেনে 1-AA , 1-aa আৰু 1-Aa ডুপ্লিকেট নহয় আৰু হাইলাইট কৰা উচিত নহয়:

এই ক্ষেত্ৰত,ক'ডৰ নিম্নলিখিত সংস্কৰণ ব্যৱহাৰ কৰক:

Public Sub HighlightDupesCaseSensitive() Dim Cell As Range Dim Delimiter As String Delimiter = InputBox( "এটা ঘৰত মানসমূহ পৃথক কৰা ডিলিমিটাৰ সুমুৱাওক" , "Delimiter" , ", " ) প্ৰতিটোৰ বাবে এপ্লিকেচনত চেল।নিৰ্বাচন কল হাইলাইটDupeWordsInCell(চেল, ডিলিমিটাৰ, সত্য ) পৰৱৰ্তী শেষ উপ উপ হাইলাইটDupeWordsInCell(চেল ৰেঞ্জ হিচাপে, বৈকল্পিক ডিলিমিটাৰ ষ্ট্ৰিং হিচাপে = " " , বৈকল্পিক কেছচেন্সিটিভ হিচাপে বুলিয়ান = সত্য ) ডিম টেক্সট ষ্ট্ৰিং হিচাপে ডিম শব্দ() ষ্ট্ৰিং ডিম হিচাপে word As String Dim wordIndex, matchCount, positionInText পূৰ্ণসংখ্যা হিচাপে যদি CaseSensitive তেন্তে শব্দ = বিভাজন(Cell.Value, Delimiter) অন্যথা শব্দ = Split(LCase(Cell.Value), Delimiter) End If For wordIndex = LBound (words) To UBound ( শব্দ) - 1 শব্দ = শব্দ(শব্দসূচী) matchCount = 0 nextWordIndex = শব্দসূচীৰ বাবে + 1 UBound (শব্দ)লৈ যদি শব্দ = শব্দ(পৰৱৰ্তী শব্দসূচী) তেন্তে matchCount = matchCount + 1 শেষ যদি পৰৱৰ্তী nextWordIndex যদি matchCount > 0 তাৰ পিছত text = "" সূচী = LBound (শব্দ) ৰ বাবে UBound (শব্দ) লৈ text = text & শব্দ(সূচী) যদি (শব্দ(সূচী) = শব্দ) তেন্তে Cell.Characters(Len(পাঠ্য) - Len(শব্দ) + 1, Len(শব্দ)).Font.Color = vbRed শেষ যদি লিখনী = লিখনী & ডিলিমিটাৰ পৰৱৰ্তী শেষ যদি পৰৱৰ্তী wordIndex শেষ উপ

এক্সেলত নকল শব্দ হাইলাইট কৰিবলে মেক্ৰ'সমূহ কেনেকৈ ব্যৱহাৰ কৰিব

যদি আপুনি VBA ব্যৱহাৰ কৰাত এজন নবীন, তলৰ স্তৰ-দ্বাৰা-স্তৰ নিৰ্দেশনাসমূহে আপোনাক আৰামদায়কভাৱে লৈ যাব . অভিজ্ঞ ব্যৱহাৰকাৰীসকলে...মাত্ৰ ডাউনলোড লিংকটো বাছক আৰু বাকীবোৰ এৰি দিয়ক :)

আপোনাৰ ৱৰ্কবুকত ক'ড যোগ কৰক

আপুনি আপোনাৰ Excel ৱৰ্কবুকত মেক্ৰ'ৰ ক'ড সন্নিবিষ্ট কৰাৰ পৰা আৰম্ভ কৰে। ইয়াত কেনেকৈ কৰা হৈছে:

1. য'ত আপুনি ডুপ হাইলাইট কৰিব বিচাৰে তাত কাৰ্য্যপুস্তিকা খোলক।
2. ভিজুৱেল বেচিক সম্পাদক খোলিবলৈ Alt + F11 টিপক।
3. বাওঁফালৰ পেনত, এই কাৰ্য্যপুস্তিকা ৰাইট-ক্লিক কৰক আৰু প্ৰসংগ মেনুৰ পৰা সন্দৰ্ভ > মডিউল নিৰ্ব্বাচন কৰক।
4. ক'ড উইন্ডোত ক'ড পেষ্ট কৰক।
5. মেক্ৰ' ভৱিষ্যত ব্যৱহাৰৰ বাবে ৰাখিবলৈ, আপোনাৰ কাৰ্য্যপুস্তিকাক এটা মেক্ৰ'-সামৰ্থবান .xlsm নথিপত্ৰ হিচাপে সংৰক্ষণ কৰাটো নিশ্চিত কৰক।

বিকল্পভাৱে, আপুনি আমাৰ নমুনা কাৰ্য্যপুস্তিকা ডাউনল'ড কৰিব পাৰে আৰু তাৰ পৰা মেক্ৰ' চলাব পাৰে। নমুনা কাৰ্য্যপুস্তিকাত নিম্নলিখিত মেক্ৰ'সমূহ আছে:

• HighlightDupesCaseInsensitive - আখৰৰ আখৰ আওকাণ কৰি এটা ঘৰৰ ভিতৰত শ্বেডসমূহ ডুপ্লিকেটসমূহ।
• HighlightDupesCaseSensitive - হাইলাইটসমূহ আখৰৰ ক্ষেত্ৰ বিবেচনা কৰি এটা কোষত dupes কৰক।

অধিক তথ্যৰ বাবে, অনুগ্ৰহ কৰি Excel ত VBA ক'ড কেনেকৈ সন্নিবিষ্ট কৰিব চাওক।

মেক্ৰ' চলাওক

ক'ডৰ সৈতে আপোনাৰ নিজৰ কাৰ্য্যপুস্তিকা বা আমাৰ নমুনা ফাইলত যোগ কৰা হৈছে আৰু খোলক, মেক্ৰ' এইদৰে চলাওক:

1. আপোনাৰ কাৰ্য্যপত্ৰিকাত, ঘৰসমূহ নিৰ্ব্বাচন কৰক য'ত আপুনি নকল লিখনী হাইলাইট কৰিব বিচাৰে। এইটো এটা পৰিসীমা বা একাধিক অসংলগ্ন পৰিসীমা হ'ব পাৰে।
2. Alt + F8 টিপক।
3. আগ্ৰহৰ মেক্ৰ' নিৰ্ব্বাচন কৰক আৰু চালক ক্লিক কৰক।

   

4. মেক্ৰ'ই আপোনাক সীমাবদ্ধক ধাৰ্য্য কৰিবলৈ ক'বযি নিৰ্বাচিত কোষসমূহত মানসমূহ পৃথক কৰে। প্ৰিছেট ডিলিমিটাৰ (আমাৰ ক্ষেত্ৰত এটা কমা আৰু এটা স্পেচ) ইনপুট বক্সত স্বয়ংক্ৰিয়ভাৱে ওলাব। আপোনাৰ প্ৰয়োজনীয়তাৰ ওপৰত নিৰ্ভৰ কৰি, আপুনি অবিকল্পিত সীমাবদ্ধক এৰিব পাৰে বা এটা বেলেগ টাইপ কৰিব পাৰে, আৰু তাৰ পিছত ঠিক আছে ক্লিক কৰক।

   

এটা মুহূৰ্তৰ পিছত, নিৰ্বাচিতত সকলো নকল স্ট্ৰিং ঘৰসমূহ ৰঙা ৰঙেৰে শ্বেড কৰা হ'ব (বা আপোনাৰ ক'ডত যিকোনো ফন্ট ৰং সংহতি কৰা হৈছে)। এটা ঘৰৰ ভিতৰত দ্ৰুতভাৱে ডুপ্লিকেটসমূহ আঁতৰাবলৈ , আপুনি নকল উপস্ট্ৰিংসমূহ আঁতৰাওক ব্যৱহাৰ কৰিব পাৰে, আমাৰ চূড়ান্ত চুইটত অন্তৰ্ভুক্ত বহুতো সময়সঞ্চয় সঁজুলিৰ এটা।

আপোনাৰ প্ৰয়োজনসমূহৰ বাবে ক'ড কেনেকৈ সামঞ্জস্য কৰিব

এই ব্যৱহাৰৰ টোকাসমূহ আৰু VBA ৰ অতি মৌলিক জ্ঞানৰ সৈতে (বা তলৰ নিৰ্দেশনাসমূহ নিবিড়ভাৱে অনুসৰণ কৰি), আপুনি সহজে আপোনাৰ প্ৰয়োজন অনুসৰি ক'ডসমূহ পৰিবৰ্তন কৰিব পাৰিব।

একেটা মডিউলত ৰাখক

আপুনি লক্ষ্য কৰা মতে, দুয়োটা মেক্ৰ'ই ( HighlightDupesCaseSensitive আৰু HighlightDupesCaseInsensitive ) HighlightDupeWordsInCell ফলন কল কৰে। ওপৰৰ দুটা মেক্ৰ'ৰ মাজৰ পাৰ্থক্য কেৱল উক্ত ফাংচনলৈ প্ৰেৰণ কৰা ৩য় প্ৰাচল (CaseSensitive) ত থাকে।

আখৰ-সংবেদনশীল সন্ধানৰ বাবে, ইয়াক TRUE:

Call HighlightDupeWordsInCell(Cell, Delimiter, True)

লে সংহতি কৰা হৈছে

আখৰৰ-অসংবেদনশীল সন্ধানৰ বাবে, ইয়াক FALSE লে সংহতি কৰা হৈছে:

Call HighlightDupeWordsInCell(Cell, Delimiter, False)

মেক্ৰ'সমূহে কাম কৰিবলে, HighlightDupeWordsInCell ফলনৰ ক'ড স্থাপন কৰিব লাগিব ৰ দৰে একেটা মডিউলmacros.

বিভাজক

যেতিয়া চলাওক, মেক্ৰ'ই আপোনাক নিৰ্ব্বাচিত ঘৰসমূহত শব্দ/স্ট্ৰিংসমূহ পৃথক কৰা বিভাজক ধাৰ্য্য কৰিব'লৈ ক'ব। অবিকল্পিত সীমাবদ্ধক এটা কমা আৰু এটা স্থান (", ") আৰু ইয়াক InputBox ত প্ৰিছেট কৰা হৈছে:

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, ইত্যাদিৰে সলনি কৰিব পাৰে। সমৰ্থিত ৰঙৰ ধ্ৰুৱকসমূহৰ তালিকা ইয়াত পোৱা যাব।

সেয়া Excel কোষত ডুপ্লিকেট শব্দ কেনেকৈ হাইলাইট কৰিব লাগে। মই আপোনাক পঢ়াৰ বাবে ধন্যবাদ জনাইছো আৰু অহা সপ্তাহত আমাৰ ব্লগত আপোনাক লগ পাম বুলি আশা কৰিছো!

উপলব্ধ ডাউনলোডসমূহ

এটা কোষত ডুপ্লিকেটসমূহ হাইলাইট কৰিবলৈ ক'ড উদাহৰণসমূহ (.xlsm ফাইল)

চূড়ান্ত চুইট ১৪-দিনৰ সম্পূৰ্ণ-কাৰ্য্যকৰী সংস্কৰণ (.exe ফাইল)