EXCEL में, IF / THEN फॉर्मूला के साथ संयुक्त रूप से एक सेल को दूसरे सेल से उसी रंग से कैसे भरें?

Question

मेरे टेम्पलेट में तीन सेल शामिल हैं, लेकिन केवल एक सेल को सहायता की आवश्यकता है (तीसरा)।

पहली सेल या तो $ 0 या अधिक से अधिक के बराबर होगी। दूसरी सेल 0 डॉलर से अधिक या रिक्त होगी। तीसरी सेल का मूल्य दूसरी सेल में तभी होना चाहिए जब पहली सेल $ 0 के बराबर न हो। यदि पहली सेल का मूल्य $ 0 के बराबर है, तो तीसरे सेल का मूल्य $ 0 के बराबर होना चाहिए।

पहला सेल उपयोगकर्ता से अन्य गैर-संबंधित इनपुट के आधार पर एक सरल सूत्र है। फ़ॉन्ट हमेशा लाल होता है।

दूसरा सेल एक साधारण उपयोगकर्ता इनपुट है। यहां फ़ॉन्ट हमेशा नीला होता है, लेकिन उपयोगकर्ता मैन्युअल रूप से सेल को पीले रंग से भर सकता है (इस आधार पर कि क्या मूल्य वास्तविक या अनुमानित है)।

तीसरा सेल बोल्ड ग्रीन फॉन्ट में होना चाहिए, अगर इसकी वैल्यू $ 0 से ज्यादा हो, और रेड फॉन्ट (बोल्ड नहीं) अगर इसकी वैल्यू $ 0 के बराबर हो। इसके अलावा, इस सेल को केवल पीले रंग से भरा जाना चाहिए, यदि दूसरा सेल पीले रंग से भरा हो और यदि पहली सेल वैल्यू $ 0 से अधिक हो।

मुझे लगता है कि समाधान में इन कार्यों का संयोजन शामिल है; जो मेरे EXCEL कौशल स्तर से परे है। 1) IF / THEN सूत्र 2) सशर्त स्वरूपण 3) VBA कोड

तीसरे सेल को मुझे क्या करना चाहिए ताकि मैं वह सब कुछ प्राप्त कर सकूं जो मैं स्वचालित रूप से चाहता हूं (उपयोगकर्ता को तीसरे सेल को छूने की आवश्यकता के बिना)?

अग्रिम में धन्यवाद!

Comments

यदि दूसरा क्षेत्र मनमाने ढंग से भरा जाता है, सशर्त स्वरूपण के साथ नहीं, तो एकमात्र तरीका vba है। तब भी इसे vba को मैन्युअल रूप से चलाने की आवश्यकता होगी, मुझे विश्वास नहीं है कि एक सेल के प्रारूप के आधार पर एक ट्रिगर इवेंट है जिसे बदला जा रहा है।

— स्कॉट क्रैनर

Answer 1

यहाँ मैं क्या लेकर आया हूँ। सुनिश्चित नहीं है कि आप VBA से कितने परिचित हैं, लेकिन यदि आप चाहें तो मैं इस कोड को समझा सकता हूं और आप इसे और अधिक विस्तार से कैसे लागू करेंगे।

मैंने शीट में दो बटन जोड़े, एक जो सेल के रंग / फ़ॉन्ट को प्रारूपित करता है, और दूसरा जो रंग / फ़ॉन्ट को साफ करता है।

Sub FormatColor3()

Set myWS = ThisWorkbook.Sheets("MySheet")
Set cell3 = myWS.Range("C2")

' Determining what color font is needed

If cell3.Value > 0 Then

    cell3.Font.Color = vbGreen
    cell3.Font.Bold = True

ElseIf cell3.Value = 0 Then

    cell3.Font.Color = vbRed

End If

' Determining what color cell is needed (6 refers to the yellow cell color)

If (myWS.Range("B2").Interior.ColorIndex = 6 And myWS.Range("A2").Value > 0) Then

    cell3.Interior.ColorIndex = 6

End If

End Sub

~

Sub Clear()

Set myWS = ThisWorkbook.Sheets("MySheet")

With myWS.Range("C2")
    .Font.Color = 0
    .Font.Bold = False
    .Interior.ColorIndex = 0
End With

End Sub