নীচে আমরা একটি প্রোগ্রাম দেখব এক্সেল ভিবিএ যে তুলনা করে এলোমেলোভাবে নির্বাচিত ব্যাপ্তি এবং অনন্য কোষগুলিকে হাইলাইট করে। যদি আপনি পরিচিত না হন এলাকা তবুও, আমরা আপনাকে প্রথমে এই উদাহরণটি পড়ার জন্য সুপারিশ করছি।
পরিস্থিতি:
অনন্য নাম গণনা কিভাবে এক্সেল
দ্রষ্টব্য: এই উদাহরণের একমাত্র অনন্য মান হল 3 যেহেতু অন্যান্য সব মান কমপক্ষে আরও একটি এলাকায় ঘটে। রেঞ্জ নির্বাচন করতে ('B2: B7, D3: E6, D8: E9'), Ctrl চেপে ধরে প্রতিটি এলাকা নির্বাচন করুন।
স্থাপন একটি আদেশ বোতাম আপনার ওয়ার্কশীটে এবং নিম্নলিখিত কোড লাইন যোগ করুন:
1. প্রথমে, আমরা চারটি পরিসীমা বস্তু এবং দুটি পূর্ণসংখ্যা টাইপ ঘোষণা করি।
কোনটিই নয়পরিসীমা ব্যবহার করুনযেমনপরিসীমা, একক এলাকাযেমনরেঞ্জ, সেল 1যেমনরেঞ্জ, সেল 2যেমনপরিসীমা, iযেমন পূর্ণসংখ্যা, জেযেমন পূর্ণসংখ্যা2. আমরা নির্বাচিত পরিসরের সাথে পরিসীমা বস্তুর পরিসর শুরু করি।
সেটপরিসীমা ব্যবহার = নির্বাচন3. যে লাইনটি সমস্ত কোষের পটভূমির রঙ পরিবর্তন করে 'নো ফিল' যোগ করুন। এছাড়াও লাইন যোগ করুন যা সমস্ত ঘরের সীমানা সরিয়ে দেয়।
কোষ। অভ্যন্তরকোষ। সীমানা।লাইন স্টাইল = xl
4. ব্যবহারকারীকে অবহিত করুন যখন সে শুধুমাত্র একটি এলাকা নির্বাচন করে।
যদিনির্বাচন<= 1 তারপরMsgBox 'দয়া করে একাধিক এলাকা নির্বাচন করুন।'
অন্যথায়
শেষ যদি
পরবর্তী কোড লাইনগুলি (5, 6 এবং 7 এ) এলস এবং এন্ড ইফ এর মধ্যে যোগ করতে হবে।
5. নির্বাচিত এলাকার কোষগুলি রঙ করুন।
rangeToUse.Interior.ColorIndex = 386. প্রতিটি এলাকা সীমানা।
জন্য প্রতিটিএকক এলাকাভিতরেপরিসীমা ব্যবহারsingleArea.BorderAround ColorIndex: = 1, Weight: = xlThin
পরবর্তীএকক এলাকা
7. এই প্রোগ্রামের বাকি অংশগুলি নিম্নরূপ দেখায়।
জন্যআমি = 1প্রতিrangeToUse.Areas.Countজন্যj = i + 1প্রতিrangeToUse.Areas.Count
জন্য প্রতিটিসেল 1ভিতরেrangeToUse.Areas (i)
জন্য প্রতিটিসেল 2ভিতরেrangeToUse.Areas (j)
যদিcell1.Value = cell2.Valueতারপর
cell1.Interior.ColorIndex = 0
cell2.Interior.ColorIndex = 0
শেষ যদি
পরবর্তীসেল 2
পরবর্তীসেল 1
পরবর্তীj
পরবর্তীআমি
ব্যাখ্যা: এটি কিছুটা অপ্রতিরোধ্য মনে হতে পারে, তবে এটি এত কঠিন নয়। rangeToUse.Areas.Count 3 এর সমান, তাই প্রথম দুটি কোড লাইন For i = 1 থেকে 3 এবং j = i + 1 থেকে 3 এর জন্য হ্রাস পায়। i = 1, j = 2 এর জন্য, Excel VBA প্রথম এলাকার সমস্ত মানের তুলনা দ্বিতীয় ক্ষেত্রের সমস্ত মান সহ। I = 1, j = 3 এর জন্য, Excel VBA প্রথম ক্ষেত্রের সমস্ত মানকে তৃতীয় ক্ষেত্রের সমস্ত মানগুলির সাথে তুলনা করে। I = 2, j = 3 এর জন্য, এক্সেল ভিবিএ দ্বিতীয় ক্ষেত্রের সমস্ত মানকে তৃতীয় ক্ষেত্রের সমস্ত মানগুলির সাথে তুলনা করে। যদি মানগুলি একই হয়, তবে এটি উভয় কোষের পটভূমির রঙকে 'নো ফিল' সেট করে, কারণ সেগুলি অনন্য নয়।
কীভাবে ব্যবহার করতে হয় এবং এক্সলেতে
যখন আপনি শীটে কমান্ড বোতামটি ক্লিক করেন তখন ফলাফল:
পরবর্তী অধ্যায়ে যান: পরিবর্তনশীল
