এই আর্টিকেলটি ব্যাখ্যা করে কিভাবে এক্সেলে সেলগুলো তাদের ফন্ট কালার অনুযায়ী যোগ করতে হয়। আপনার যদি ভিন্ন ফন্ট কালার সহ একাধিক সেল থাকে, তবে আপনার এটি দরকার হতে পারে। নিচের ছবিটি এই আর্টিকেলের উদ্দেশ্য হাইলাইট করে। দ্রুত এক নজর দিয়ে দেখুন কীভাবে এটি করতে হয়।
আপনি নিচের ডাউনলোড বাটন থেকে প্র্যাকটিস ওয়ার্কবুক ডাউনলোড করতে পারেন।
এক্সেলে ফন্ট কালার অনুযায়ী যোগ করার ২টি কার্যকর উপায়
১. SUBTOTAL এবং ফিল্টার দিয়ে ফন্ট কালার অনুযায়ী যোগ করুন
ধরুন আপনার কাছে একটি ডেটাসেট আছে যেটিতে একটি কলামে ভিন্ন রঙের ফন্ট রয়েছে। তাহলে এই পদ্ধতিটি তাদের ফন্ট কালার অনুযায়ী যোগ করার জন্য সেরা হতে পারে। এই পদ্ধতি প্রয়োগ করার জন্য নিচের ধাপগুলো অনুসরণ করুন।
📌 ধাপসমূহ
- প্রথমে, সেল C13-এ নিচের ফর্মুলাটি লিখুন। ফর্মুলার 9টি SUM ফাংশন-কে নির্দেশ করে। এটি SUBTOTAL ফাংশন-কে পছন্দের রেঞ্জের যোগফল রিটার্ন করতে সক্ষম করে।
=SUBTOTAL(9,C5:C11)
- এখন ডেটাসেটের যেকোনো জায়গায় সিলেক্ট করুন। তারপর CTRL+SHIFT+L চাপি ডেটাসেটে ফিল্টার অ্যাপ্লাই করুন। এরপর, আপনি হেডার সেলগুলোর নিচের ডান কোণে ফিল্টার বাটনগুলো দেখতে পাবেন ছবির মতো।
- এখন, ফিল্টার বাটন ব্যবহার করে ডেটাসেটকে একটি নির্দিষ্ট রঙ দিয়ে ফিল্টার করুন নিচের ছবির মতো।
- তারপর, আপনি নিচের ফলাফল পাবেন।
আরও পড়ুন: এক্সেলে ফিল্টার করা সেলগুলো যোগ করুন (৫ উপযুক্ত উপায়)
সাদৃশ্য পাঠনা
- এক্সেলে সিলেক্ট করা সেলগুলো যোগ করুন (৪ সহজ পদ্ধতি)
- এক্সেলে কলামের শেষ পর্যন্ত যোগ করুন (৮ হ্যান্ডি মেথড)
- এক্সেলে কলামগুলো যোগ করুন (৭ মেথড)
- [ফিক্সড!] এক্সেল SUM ফর্মুলা কাজ করছে না এবং ০ রিটার্ন করছে (৩ সমাধান)
- এক্সেলে একাধিক সারি যোগ করুন (৪ কুইক উপায়)
২. এক্সেলে ইউজার ডিফাইনড ফাংশন (UDF) দিয়ে ফন্ট কালার অনুযায়ী যোগ করুন
আগের পদ্ধতিটি কাজ করবে না আপনার কাছে নিচের মতো ডেটাসেট থাকলে। সেক্ষেত্রে আপনি একটি ইউজার ডিফাইনড ফাংশন (UDF) ব্যবহার করতে পারেন। এটি করার জন্য নিচের ধাপগুলো অনুসরণ করুন।
📌 ধাপসমূহ
- প্রথমে, ওয়ার্কবুকটি ম্যাক্রো-ইন্যাবলড ওয়ার্কবুক হিসেবে সংরক্ষণ করুন। এরপর, ALT+F11 চাপি VBA উইন্ডো খুলুন। তারপর ছবির মতো ইনসার্ট >> মডিউল সিলেক্ট করুন। এটি একটি নতুন ব্ল্যাঙ্ক মডিউল তৈরি করবে।
- তারপর, নিচের কোডটি কপি করুন।
Function SUMBYFONTCOLOR(ref_color As Range, sum_range As Range) Dim cell_color, sum_color As Long Dim Cell As Range Application.Volatile sum_color = 0 cell_color = ref_color.Font.ColorIndex For Each Cell In sum_range If cell_color = Cell.Font.ColorIndex Then sum_cell = WorksheetFunction.Sum(Cell, sum_cell) End If Next Cell SUMBYFONTCOLOR = sum_cell End Function- এখন, কপি করা কোডটি মডিউল উইন্ডোতে পেস্ট করুন নিচের মতো।
- তারপর, আপনার ওয়ার্কশিটে যান। তারপর সেল I5:I9-এ ইচ্ছাকাম্য রঙের নাম লিখুন। এরপর তাদের ফন্ট কালার অনুযায়ী পরিবর্তন করুন।
- এখন, সেল J5-এ নিচের ফর্মুলাটি লিখুন। তারপর, ফিল হ্যান্ডেল আইকন ব্যবহার করে নিচের সেলগুলোর জন্য ফর্মুলাটি অ্যাপ্লাই করুন।
=SUMBYFONTCOLOR(I5,$B$4:$G$9)শেষে, আপনি নিচের ফলাফল পাবেন।👇
এখন, আপনি যদি রেঞ্জের ভিতরে যেকোনো সেলের ফন্ট কালার পরিবর্তন করেন, ফলাফল আপডেট হবে না। আপনাকে একটি সেলে ডাবল-ক্লিক করে তারপর অন্য জায়গায় ক্লিক করতে হবে রিক্যালকুলেশন বাধ্য করতে। বিকল্পভাবে, আপনি একই ফলাফল পেতে CTRL+ALT+F9 চাপতে পারেন।
- এখন, আপনি যদি উপরের দুটোই করতে না চান তবে নিচের কোডটি কপি করুন।
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A:Z")) Is Nothing Then ActiveSheet.Calculate End If End Sub- তারপর, VBA উইন্ডোতে ফিরে যান। পরীক্ষা, UDF নামে ওয়ার্কশিট-এর ওপর ডাবল-ক্লিক করুন। এটি একটি ব্ল্যাঙ্ক উইন্ডো খুলবে। তারপর, কপি করা কোডটি সেটি উইন্ডোতে পেস্ট করুন নিচের ছবির মতো।
এখন আপনি ফন্ট কালার পরিবর্তন করে অন্য জায়গায় ক্লিক করলে ফলাফল আপডেট হবে।
VBA কোড ব্যাখ্যা
Function SUMBYFONTCOLOR(ref_color As Range, sum_range As Range)
এই পাবলিক ফাংশনটি দুটি আর্গুমেন্ট নেয়। ref_color আর্গুমেন্টটি রেফারেন্স সেল থেকে ফন্ট কালার নেয়। আমরা sum_range আর্গুমেন্ট দ্বারা রেফার করা রেঞ্জের ভিতরে সেল ভ্যালুগুলো তাদের ফন্ট কালার অনুযায়ী যোগ করব।
Dim cell_color, sum_color As Long
Dim Cell As Range
প্রয়োজনীয় ভেরিয়েবল ডিক্লেয়ার করা।
Application.Volatile
এই কোড লাইনটি এক্সেলকে বাধ্য করে যেকোনো পরিবর্তন করলে রিক্যালকুলেট করতে।
sum_color = 0
ভেরিয়েবলের প্রাথমিক মান ডিফাইন করা।
cell_color = ref_color.Font.ColorIndex
cell_color ভেরিয়েবলটি ref_color আর্গুমেন্ট দ্বারা রেফার করা সেলের ফন্ট কালার স্টোর করে।
For Each Cell In sum_range
এই ফর লুপ sum_range আর্গুমেন্ট দ্বারা রেফার করা রেঞ্জের প্রতিটি সেলের মাধ্যমে পরবর্তী কোড লাইনগুলো এক্সিকিউট করবে।
If cell_color = Cell.Font.ColorIndex Then
শুধু যদি sum_range-এর ভিতরের একটি সেলের ফন্ট কালার ref_color আর্গুমেন্ট দ্বারা রেফার করা সেলের ফন্ট কালারের সাথে মিলে যায়, তবে পরবর্তী কোড লাইনগুলো এক্সিকিউট হবে।
sum_cell = WorksheetFunction.Sum(Cell, sum_cell)
এই কোড লাইনটি SUM ফাংশন-কে সক্রিয় করে মিলে যাওয়া ফন্ট কালারের সেল ভ্যালুগুলো যোগ করতে।
SUMBYFONTCOLOR = sum_cell
এই কোড লাইনটি যোগফলটি স্টোর করে যাতে ফাংশনটি এই মানটি রিটার্ন করতে পারে।
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
এই প্রাইভেট সাব প্রসিডিউরটি শুধু তখনই কাজ করে যখন নির্দিষ্ট ওয়ার্কশিটে যেকোনো পরিবর্তন ঘটে।
If Not Intersect(Target, Range(“A:Z”)) Is Nothing Then
এই কোড লাইনটি নিশ্চিত করে যে পরবর্তী কোড লাইনটি শুধু তখন এক্সিকিউট হবে যখন ব্যবহারকারী ডিফাইন করা রেঞ্জ (A:Z) এর ভিতরে যেকোনো পরিবর্তন আনবে।
ActiveSheet.Calculate
এটি অ্যাক্টিভ ওয়ার্কশিটের সকল ফর্মুলার রিক্যালকুলেশন বাধ্য করে যাতে পরিবর্তনগুলো আপডেট হয়।
আরও পড়ুন: এক্সেল VBA ব্যবহার করে সারির সেল রেঞ্জ যোগ করুন (৬ সহজ পদ্ধতি)
যাদ রাখার বিষয়গুলো
- ফন্ট কালার পরিবর্তন করলে আপডেটেড ফলাফল দেখতে একটি সেলে ডাবল-ক্লিক করে অন্য জায়গায় ক্লিক করতে ভুলবেন না। বিকল্পভাবে, আপনাকে সেটির জন্য CTRL+SHIFT+F9 চাপতে হবে।
- ফন্ট কালার পরিবর্তনের পর ফলাফল আপডেট করতে ডিফাইন করা রেঞ্জ (A:Z) এর ভিতরে ক্লিক করতে হবে।
উপসংহার
এখন আপনি এক্সেলে সেলগুলো তাদের ফন্ট কালার অনুযায়ী যোগ করার ২টি সবচেয়ে কার্যকর উপায় জানতে পেরেছেন। অনুগ্রহ করে জানান এই আর্টিকেলটি আপনার সমস্যা সমাধান করতে সাহায্য করেছে কিনা। আপনি নিচের কমেন্ট সেকশনও ব্যবহার করতে পারেন আরও প্রশ্ন বা পরামর্শের জন্য। আমাদের ExcelDemy ব্লগ ভিজিট করুন এক্সেল সম্পর্কে আরও জানতে। আমাদের সাথে থাকুন এবং শিখতে থাকুন।
সম্পর্কিত আর্টিকেল
- এক্সেলে কালার্ড সেল যোগ করুন (৪ উপায়)
- এক্সেলে সেল যোগ করুন: কন্টিনিউয়াস, র্যান্ডম, উইথ ক্রাইটেরিয়া, ইত্যাদি
- VBA ছাড়া এক্সেলে কালার্ড সেল যোগ করুন (৭ উপায়)
- এক্সেলে সংখ্যা যোগ করুন (২ সহজ উপায়)
- এক্সেলে একাধিক সারি এবং কলাম যোগ করুন
