ফন্টের রঙ লাল কিনা তা পরীক্ষা করতে VBA তারপর এক্সেলে ফলাফল ফেরত দিন

এখানে আমরা শিখব কিভাবে VBA দিয়ে এক্সেলের ফন্টের রঙের উপর ভিত্তি করে রঙের কোড বের করতে হয়। .

পদক্ষেপ:

• আগের মতই, ভিজ্যুয়াল বেসিক এডিটর খুলুন ডেভেলপার থেকে ট্যাব এবং ঢোকান একটি মডিউল কোড উইন্ডোতে।
• কোড উইন্ডোতে, নিচের কোডটি কপি করে পেস্ট করুন।

Function ColorCode(rng As Range)
    ColorCode = rng.Font.ColorIndex
End Function

• এখন, আগে যেমন দেখানো হয়েছে, কল করুন কালারকোড ডেটাসেট থেকে UDF, সেল রেফারেন্স নম্বর পাস করুন (যেমন C5 ) যুক্তি হিসাবে, Enter টিপুন

আপনি রিটার্ন মান হিসাবে সংশ্লিষ্ট রঙ কোড পাবেন।

• এখন ফিল হ্যান্ডেল দিয়ে সারিটি নিচে টেনে আনুন UDF প্রয়োগ করতে ফন্ট কালার লাল কোড পেতে বাকি কক্ষগুলিতে।

3. যদি ফন্টের রঙ লাল হয় তাহলে এক্সেলে সূচকটি ফেরত দিন

এখানে আমরা শিখব কিভাবে VBA দিয়ে এক্সেলের ফন্টের রঙের উপর ভিত্তি করে সূচক নম্বর ফেরত দিতে হয়। .

পদক্ষেপ:

• আগের মতই, ভিজ্যুয়াল বেসিক এডিটর খুলুন ডেভেলপার থেকে ট্যাব এবং ঢোকান একটি মডিউল কোড উইন্ডোতে।
• কোড উইন্ডোতে, নিচের কোডটি কপি করে পেস্ট করুন।

Function IndexColor(cell As Range)
        IndexColor = cell.Font.Color
End Function

• এখন, আগে যেমন দেখানো হয়েছে, কল করুন IndexColor ডেটাসেট থেকে UDF, সেল রেফারেন্স নম্বর পাস করুন (যেমন C5 ) যুক্তি হিসাবে, Enter টিপুন

আপনি রিটার্ন মান হিসাবে ফন্ট রঙের সংশ্লিষ্ট সূচক নম্বর পাবেন।

• এখন ফিল হ্যান্ডেল দিয়ে সারিটি নিচে টেনে আনুন UDF প্রয়োগ করতে ফন্টের রঙ লালের সূচী নম্বর পেতে বাকি কক্ষগুলিতে।

লাল রঙের ফন্ট সহ পাঠ্য ধারণ করা কক্ষগুলি 255 ফিরে আসবে৷ রঙের সূচক সংখ্যা হিসাবে লাল হল 255 .

4. এক্সেলতে ফন্টের রঙ লাল হলে RGB কোড ফেরত দিন

এখানে আমরা শিখব কিভাবে VBA দিয়ে এক্সেলের ফন্টের রঙের উপর ভিত্তি করে RGB কোড পেতে হয়। .

পদক্ষেপ:

• আগের মতই, ভিজ্যুয়াল বেসিক এডিটর খুলুন ডেভেলপার থেকে ট্যাব এবং ঢোকান একটি মডিউল কোড উইন্ডোতে।
• কোড উইন্ডোতে, নিচের কোডটি কপি করে পেস্ট করুন।

Function FontRGB(cell As Range)
    Dim iColorIndex As Long
    Dim iColor As Variant
    iColorIndex = cell.Font.Color
    iColor = iColorIndex Mod 256
    iColor = iColor & ", "
    iColor = iColor & (iColorIndex \ 256) Mod 256
    iColor = iColor & ", "
    iColor = iColor & (iColorIndex \ 256 \ 256) Mod 256
    FontRGB = iColor
End Function

• এখন, আগে যেমন দেখানো হয়েছে, কল করুন FontRGB ডেটাসেট থেকে UDF, সেল রেফারেন্স নম্বর পাস করুন (যেমন C5 ) যুক্তি হিসাবে, Enter টিপুন

আপনি রিটার্ন মান হিসাবে ফন্ট রঙের সংশ্লিষ্ট RGB কোড পাবেন।

• এখন ফিল হ্যান্ডেল দিয়ে সারিটি নিচে টেনে আনুন UDF প্রয়োগ করতে ফন্ট কালার লালের RGB কোড পেতে বাকি কক্ষগুলিতে।

লাল রঙের ফন্ট সহ পাঠ্য ধারণ করা কক্ষগুলি 255,0,0 ফিরে আসবে৷ লাল রঙের RGB কোড হিসাবে হল 255,0,0 .

5. যদি ফন্টের রঙ লাল হয় তাহলে সেল হাইলাইট করুন

আপনি যদি ফন্টের রঙ লাল দিয়ে টেক্সট ধারণ করা ঘরগুলিকে হাইলাইট করতে চান, তাহলে কীভাবে তা করবেন তা জানতে নিবন্ধটি পড়তে থাকুন৷

পদক্ষেপ:

• আগের মতই, ভিজ্যুয়াল বেসিক এডিটর খুলুন ডেভেলপার থেকে ট্যাব এবং ঢোকান একটি মডিউল কোড উইন্ডোতে।
• কোড উইন্ডোতে, নিচের কোডটি কপি করে পেস্ট করুন।

Sub HighlightCell()    
    Set ws = Sheets("Highlight") 'set the worksheet    
    For r = 1 To 104
        For c = 1 To 36
            If (ws.Cells(r, c).Font.Color = 255) Then
                'set the desired color index
                ws.Cells(r, c).Interior.ColorIndex = 34
            End If
        Next c
    Next r
End Sub

আপনার কোড এখন চালানোর জন্য প্রস্তুত৷

• F5 টিপুন আপনার কীবোর্ডে বা মেনু বার থেকে চালান -> সাব/ইউজারফর্ম চালান নির্বাচন করুন . এছাড়াও আপনি ছোট প্লে আইকনে ক্লিক করতে পারেন ম্যাক্রো চালানোর জন্য সাব-মেনু বারে।

আপনি দেখতে পাবেন যে ঘরগুলিতে লাল রঙের ফন্ট রয়েছে সেগুলি এখন হাইলাইট করা হয়েছে৷

6. ফন্টের রঙ লাল হলে ফন্টের রঙ পরিবর্তন করুন

আপনি যদি ফন্টের রঙ লালকে আবার ডিফল্ট রঙে পরিবর্তন করতে চান, তাহলে নীচে দেখানো পদক্ষেপগুলি অনুসরণ করুন৷

পদক্ষেপ:

• আগের মতই, ভিজ্যুয়াল বেসিক এডিটর খুলুন ডেভেলপার থেকে ট্যাব এবং ঢোকান একটি মডিউল কোড উইন্ডোতে।
• কোড উইন্ডোতে, নিচের কোডটি কপি করে পেস্ট করুন।

Sub ChangeFontColor()
    With Application.FindFormat.Font
        .Subscript = False
        .Color = 255
        .TintAndShade = 0
    End With
    With Application.ReplaceFormat.Font
        .Subscript = False
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

আপনার কোড এখন চালানোর জন্য প্রস্তুত৷

• চালান ম্যাক্রো।

ফন্ট রঙ লাল সহ মানগুলি এখন ডিফল্ট ফন্ট রঙে ফিরে এসেছে।

উপসংহার

এই নিবন্ধটি আপনাকে দেখিয়েছে যে যদি আপনার ডেটাসেটের মানগুলির ফন্টের রঙ লাল হয় তবে কিভাবে VBA ব্যবহার করে Excel এ নির্দিষ্ট ফলাফল পেতে হয় . আমি আশা করি এই নিবন্ধটি আপনার জন্য খুব উপকারী হয়েছে. বিষয় সম্পর্কে আপনার কোন প্রশ্ন থাকলে নির্দ্বিধায় জিজ্ঞাসা করুন।

আপনিও অন্বেষণ করতে পছন্দ করতে পারেন

• VBA এক্সেলের স্ট্রিং থেকে অক্ষর সরাতে (7 পদ্ধতি)
• এক্সেলে খালি সারি মুছে ফেলার জন্য কীভাবে VBA ব্যবহার করবেন
• VBA ম্যাক্রো এক্সেলে সারি ঢোকাতে মানদণ্ডের উপর ভিত্তি করে (৪টি পদ্ধতি)
• এক্সেলে VBA দিয়ে সারিগুলি কীভাবে গণনা করবেন (5টি পদ্ধতি)
• VBA এক্সেলের সেল মানের উপর ভিত্তি করে সম্পূর্ণ সারি মুছে দেবে (3 পদ্ধতি)