বড় সংখ্যক পাঠ্য কক্ষগুলিতে শর্তযুক্ত বিন্যাস প্রয়োগ করুন

Question

আমার কাছে একটি টেবিল রয়েছে যা প্রায় 100 টি ভিন্ন ভিন্ন পাঠ্য মানের রয়েছে এবং আমি পাঠ্য অনুসারে তাদের রঙ করতে চাই যাতে আপনি দেখতে পারেন যে কোষগুলির কী একই পাঠ্য রয়েছে (টেবিল! B2: DB100)।

আমার একটি আলাদা শীট রয়েছে যা টেবিলের মানগুলি তালিকাভুক্ত করে (গতিশীলভাবে) (তালিকা! A1: A100)।

একটি সম্ভাব্য সমাধান একটি শর্তসাপেক্ষ বিন্যাস প্রয়োগ করা হবে যা টেবিলের একটি কোষ কিনা তা পরিসংখ্যান করে! B2: DB100 তালিকার সমান! A1। যদি রঙ 1 দিয়ে রঙ হয় তবে টেবিলের একটি কোষ বললে আরেকটি শর্তযুক্ত বিন্যাস যুক্ত করুন! B2: DB100 তালিকার সমান! A2 তারপর রঙটি রঙের সাথে ২। এবং আরও।

100 টি সম্ভাব্য পাঠ্য মান রয়েছে কারণ এটি নিজে নিজে করা বেদনাদায়ক হবে।

আমি বিশ্বাস করি আমি একটি ম্যাক্রোর সাথে এটি করতে পারি যার মধ্যে অতিরিক্ত সুবিধা রয়েছে যা আপনি RGB মানগুলিকে একটি সুষ্ঠু ভাবে প্রয়োগ করতে পারেন।

একটি ম্যাক্রো, আসলে, এটা করার সর্বোত্তম উপায়? স্প্রেডশীটটি 100 ~ শর্তযুক্ত বিন্যাস প্রয়োগ করার জন্য কি এটি বন্ধ করবে? একই প্রভাব অর্জন করার জন্য একটি সহজ উপায় আছে?

Answer 1

এটা কি মূল্য জন্য, আমি কিছু ভালভাবে ভাল কাজ আছে। আমি শর্তসাপেক্ষ বিন্যাস প্রয়োগ করার জন্য একটি ম্যাক্রো লিখেছি।

Sub conditional()
'
' conditional Macro

i = 1
station = 1
colorscheme = 1
Do Until Sheets("Data").Cells(i + 3, 3) = ""
    a = "=Data!" + Sheets("Data").Cells(i + 3, 3).Address
    c1 = 255
    c2 = 147 + 17 * station
    Select Case colorscheme
        Case 1 'red
            mycolor = RGB(c1, c2, c2)
        Case 2 'yellow
            mycolor = RGB(c1, c1, c2)
        Case 3 'green
            mycolor = RGB(c2, c1, c2)
        Case 4 'cyan
            mycolor = RGB(c2, c1, c1)
        Case 5 'blue
            mycolor = RGB(c2, c2, c1)
        Case 6 'purple
            mycolor = RGB(c1, c2, c1)
    End Select
    Range("H4:BE48").FormatConditions.Add Type:=xlTextString, String:=a, _
        TextOperator:=xlContains
    With Range("H4:BE48").FormatConditions(Range("H4:BE48").FormatConditions.Count)
        .Interior.Color = mycolor
        .StopIfTrue = True
    End With
    i = i + 1
    station = station + 1
    If station = 5 Then
        station = 1
        colorscheme = colorscheme + 1
    End If
    If colorscheme = 7 Then
        colorscheme = 1
    End If
Loop

End Sub

এবং এখানে এটি একটি উদাহরণ দেখায় কিভাবে:

আমি কোন মন্তব্য, পরামর্শ, বা উন্নতি স্বাগত জানাই।