VBA यह जांचने के लिए कि क्या फ़ॉन्ट का रंग लाल है तो एक्सेल में परिणाम लौटाएं

VBA मैक्रो को कार्यान्वित करना एक्सेल में किसी भी ऑपरेशन को चलाने के लिए सबसे प्रभावी, तेज और सबसे सुरक्षित तरीका है। इस लेख में, हम आपको दिखाएंगे कि यदि आपके डेटासेट में फ़ॉन्ट का रंग लाल है तो VBA का उपयोग करके Excel में कुछ निश्चित परिणाम कैसे प्राप्त करें ।

कार्यपुस्तिका डाउनलोड करें

आप यहां से निःशुल्क अभ्यास एक्सेल वर्कबुक डाउनलोड कर सकते हैं।

यह जांचने के 6 तरीके कि क्या फ़ॉन्ट का रंग लाल है, फिर Excel में VBA का उपयोग करके कुछ परिणाम लौटाएं

निम्नलिखित डेटासेट को देखें जहां कुछ मान हैं जिनका फ़ॉन्ट रंग लाल है। इस खंड में, हम चरण-दर-चरण प्रक्रियाओं पर चर्चा करेंगे यदि फ़ॉन्ट का रंग लाल है तो एक्सेल में कुछ परिणाम कैसे प्राप्त करें।

1. यदि फ़ॉन्ट का रंग लाल है तो एक्सेल में कुछ शब्द लौटाएं

हम वापस लौटना चाहते हैं हां अगर फ़ॉन्ट का रंग लाल है और नहीं अगर फ़ॉन्ट का रंग लाल नहीं है। आइए देखें कि एक्सेल VBA के साथ ऐसा कैसे करें ।

चरण:

• प्रेस Alt + F11 अपने कीबोर्ड पर या टैब पर जाएं डेवलपर -> विजुअल बेसिक विजुअल बेसिक संपादक खोलने के लिए ।

• पॉप-अप कोड विंडो में, मेनू बार से, सम्मिलित करें -> मॉड्यूल क्लिक करें ।

• निम्न कोड को कॉपी करें और कोड विंडो में पेस्ट करें।

Function FontColorRed(target As Range)
    Application.Volatile
    If target.Font.Color = 255 Then
    FontColorRed = "Yes"
    Else
    FontColorRed = "No"
    End If
End Function

यह VBA . के लिए उप प्रक्रिया नहीं है प्रोग्राम चलाने के लिए, यह एक उपयोगकर्ता परिभाषित फ़ंक्शन (UDF) बना रहा है . इसलिए, कोड लिखने के बाद, रन बटन पर क्लिक करने के बजाय मेनू बार से, सहेजें . क्लिक करें ।

• अब रुचि के कार्यपत्रक पर वापस जाएं और VBA के साथ आपके द्वारा अभी-अभी बनाए गए फ़ंक्शन को लिखें कोड (फ़ंक्शन FontColorRed कोड की पहली पंक्ति में) और FontColorRed के कोष्ठकों के अंदर फ़ंक्शन, सेल संदर्भ संख्या . पास करें जिसे आप पत्र में बदलना चाहते हैं (हमारे मामले में, हम सेल C5 . पास करते हैं कोष्ठक के अंदर)।

तो हमारा अंतिम सूत्र संदर्भित करता है,

=FontColorRed(C5)

• दर्ज करें दबाएं ।

आपको हां मिलेगा यदि सेल C5 . में फ़ॉन्ट रंग लाल है, अन्यथा, आपको नहीं मिलेगा . हमारे मामले में, सेल C5 . के अंदर टेक्स्ट का फ़ॉन्ट रंग लाल नहीं था, इसलिए हमें मिला नहीं.

• अब हैंडल भरें . द्वारा पंक्ति को नीचे खींचें यूडीएफ . लागू करने के लिए बाकी कोशिकाओं के लिए और आपको हां . मिलेगा उन कक्षों के पास जिनमें लाल फ़ॉन्ट रंग वाला टेक्स्ट होता है।

2. अगर फ़ॉन्ट का रंग लाल है तो कलर कोड लौटाएं

यहां हम सीखेंगे कि एक्सेल में VBA . के साथ लाल रंग के फ़ॉन्ट के आधार पर रंग कोड कैसे निकाला जाए ।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

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

• अब, जैसा कि पहले दिखाया गया है, कॉल करें रंग कोड डेटासेट से UDF, सेल संदर्भ संख्या पास करें (उदा. C5 ) तर्क के रूप में, Enter दबाएं।

आपको संबंधित रंग कोड वापसी मूल्य के रूप में मिलेगा।

• अब हैंडल भरें . द्वारा पंक्ति को नीचे खींचें यूडीएफ . लागू करने के लिए लाल रंग का फ़ॉन्ट कोड प्राप्त करने के लिए शेष कक्षों में।

3. अगर फ़ॉन्ट का रंग लाल है तो एक्सेल में इंडेक्स लौटाएं

यहां हम सीखेंगे कि कैसे VBA . के साथ एक्सेल में लाल रंग के फ़ॉन्ट के आधार पर इंडेक्स नंबर वापस करना है ।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

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

• अब, जैसा कि पहले दिखाया गया है, कॉल करें इंडेक्सकलर डेटासेट से UDF, सेल संदर्भ संख्या पास करें (उदा. C5 ) तर्क के रूप में, Enter दबाएं।

आपको फ़ॉन्ट रंग की संबद्ध अनुक्रमणिका संख्या वापसी मान के रूप में मिलेगी।

• अब हैंडल भरें . द्वारा पंक्ति को नीचे खींचें यूडीएफ . लागू करने के लिए लाल रंग के फ़ॉन्ट रंग की अनुक्रमणिका संख्या प्राप्त करने के लिए शेष कक्षों में।

लाल रंग के फ़ॉन्ट वाले टेक्स्ट रखने वाले सेल 255 . वापस आ जाएंगे रंग की अनुक्रमणिका संख्या के रूप में लाल है 255 ।

4. यदि एक्सेल में फ़ॉन्ट का रंग लाल है तो RGB कोड लौटाएं

यहां हम सीखेंगे कि कैसे VBA . के साथ एक्सेल में लाल रंग के फ़ॉन्ट के आधार पर आरजीबी कोड प्राप्त करें ।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

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 कोड वापसी मान के रूप में मिलेगा।

• अब हैंडल भरें . द्वारा पंक्ति को नीचे खींचें यूडीएफ . लागू करने के लिए लाल रंग के फ़ॉन्ट रंग का RGB कोड प्राप्त करने के लिए शेष कक्षों में।

लाल रंग के फ़ॉन्ट वाले टेक्स्ट रखने वाले सेल 255,0,0 . वापस आ जाएंगे रंग के RGB कोड के रूप में लाल है 255,0,0 ।

5. अगर फॉन्ट का रंग लाल है तो सेल को हाईलाइट करें

यदि आप उन कक्षों को हाइलाइट करना चाहते हैं जो टेक्स्ट को लाल रंग के फ़ॉन्ट के साथ रखते हैं, तो यह जानने के लिए लेख पढ़ते रहें कि यह कैसे करना है।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

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. अगर फ़ॉन्ट का रंग लाल है तो फ़ॉन्ट रंग बदलें

यदि आप लाल रंग को वापस डिफ़ॉल्ट रंग में बदलना चाहते हैं, तो नीचे दिखाए गए चरणों का पालन करें।

चरण:

• पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
• कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।

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 मैक्रो मानदंड के आधार पर एक्सेल में पंक्ति डालने के लिए (4 तरीके)
• Excel में VBA के साथ पंक्तियों की गणना कैसे करें (5 दृष्टिकोण)
• VBA एक्सेल में सेल वैल्यू के आधार पर पूरी पंक्ति को हटाने के लिए (3 तरीके)