রঙের কোডটি ট্রিগার করতে আমি এক্সেলে একটি ফর্ম্যাট তৈরি করতে চাই

Question

বর্তমানে আমার কাছে নির্দিষ্ট কক্ষগুলিতে ড্রপ ডাউন তালিকা রয়েছে, এটি স্ট্যাটাসের তালিকার সাথে সংযুক্ত। 'সম্পূর্ণ' যা সবুজ হিসাবে চিহ্নিত, 'মুলতুবি' যা কমলা হিসাবে চিহ্নিত, 'আউটস্ট্যান্ডিং' যা লাল হিসাবে চিহ্নিত করে। আমি প্রতিটি ড্রপ ডাউন বিকল্পটি একটি সেল রঙের পরিবর্তনকেও ট্রিগার করতে চাই। উদাহরণস্বরূপ, যদি সেল H23 ড্রপ ডাউন বার থেকে 'সম্পূর্ণ' হিসাবে সেট করা থাকে, আমি চাই সেল H22 স্বয়ংক্রিয়ভাবে 'সম্পূর্ণ' এ পরিবর্তিত হোক। তবে যদি এইচ 23 সেলটি তাদের ড্রপ ডাউন মেনু থেকে 'সম্পূর্ণ' হিসাবে সেট করা থাকে এবং সেল 'এইচ 24' অসামান্য হিসাবে সেট করা থাকে, তবে আমি চাইলে এটি সেল এফ 23 এর পরিবর্তে রং এবং স্থিতিটি কমলাতে স্বয়ংক্রিয়ভাবে পরিবর্তিত হয়।

Comments

মাত্র 100% পরিষ্কার হতে, আপনি H22 এর H23 এর রঙ এবং মান প্রতিফলিত করতে চান (যা একটি ড্রপ ডাউন)। তবে, এইচ 24 যদি বকেয়া থাকে, আপনি কি H23 বকেয়া বলতে চান এবং কমলাতে পরিণত করতে চান? তবে শীর্ষে আপনি বলেছিলেন যে অসামান্য লাল। আপনার স্পষ্ট করা প্রয়োজন। আপনার ডেটা কি? এটা কি কলামে আছে? কয়টি কলাম? আর কত? এবং আপনি তাদের ঠিক কী করতে চান তা কেবল যথেষ্ট পরিষ্কার নয়।

— নট

আপনার প্রশ্ন থেকে - আমি অনুভব করি যে বর্তমান কক্ষের রঙ একটি প্রদত্ত কলামে তার ধারাবাহিক ঘরের রঙের উপর নির্ভর করে - আপনি কি এটি চান?

— প্রসন্ন

আপনি কি শর্তসাপেক্ষ বিন্যাস ব্যবহার করার চেষ্টা করেছেন?

— এক্সেলেল

Answer 1

আপনার প্রয়োজনীয়তাগুলি ভয়াবহভাবে পরিষ্কার নয়, যেমন অন্যান্য পোস্টারগুলি জানিয়েছে, তবে আমি ম্যাক্রোর সাথে একটি নমুনা ফাইল যুক্ত করেছি যা আমি মনে করি যে আপনার প্রয়োজনগুলি পূরণ করে।

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim PreviousRowStatus As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("H:H")

    Application.EnableEvents = False

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Did a change occur to the status column (other than the column header?
        If Range(Target.Address).Column = "8" And Range(Target.Address).Row <> 1 _
        And Range(Target.Address).Row <> 2 Then ' Column H is column 8

            ' If the values are already the same, there's no need to make an update.
            If Target.Offset(-1, 0).Value <> Target.Value Then

                ' Update the value of the previous row to match newly entered row
                Target.Offset(-1, 0).Value = Target.Value

                ' Display a message when one of the designated cells has changed.
                ' MsgBox "Cell " & Target.Offset(-1, 0).Address & " has changed to " & _
                Target.Value & " to match data in subsequent row."

            End If

        End If

    End If

    Application.EnableEvents = True

End Sub

শর্তসাপেক্ষ বিন্যাস ব্যবহার করে রঙগুলি স্বয়ংক্রিয়ভাবে সেট হয়। এটি কীভাবে কাজ করে সে সম্পর্কে আপনি যদি আরও জানতে চান তবে নীচের লিঙ্কগুলি দেখুন।

• ভিডিও সহ ওভারভিউ
• বিস্তারিত

Comments

আমি সুপারুজারের সাথে ফাইলগুলি কীভাবে সংযুক্ত করব তা আমি বুঝতে পারি না, তবে আমি ড্রপক্যানভাস . com/qkimj এ ধারণার একটি এক্সেল প্রমাণ একসাথে ফেলে দিয়েছি ।

— JongleurX

ফাইলগুলি কীভাবে সংযুক্ত করতে হয় তা আমি জানি না, তবে আমি ড্রপক্যানভাস . com / qkimj এ একটি কাজের নমুনা রেখেছি , যা তিন দিনের জন্য সক্রিয় থাকতে হবে। দয়া করে চেক করুন এবং আমাকে জানান যে এটি আপনার পক্ষে কাজ করে কিনা। অন্যান্য আরও উন্নত সুপারইউজার লোকেরা, আপনি কীভাবে আমি ফাইলগুলি সংযুক্ত করতে পারেন তা আমাকে বলতে পারেন? আমি সাহায্যটি অনুসন্ধান করার চেষ্টা করেছি, এবং কিছুই খুঁজে পেলাম না।

— জংলিউরএক্স