VBA Excel - Set row background depends on cell value -

मेरे पास Excel में ऐसी पंक्तियां हैं:

  विषय वैरिएबलनाम व्हेरिएबल वेल्यू रंग vColor_Chart1 आरजीबी (217,217,217) रंग vColor_Chart2 RGB (210,110,42)  

मैं वैरिएबल वेल्यू कॉलम में सेल मूल्य पर पंक्ति पृष्ठभूमि को बदलाने के लिए मैक्रो बनाना चाहता हूं।

मेरे पास ऐसा कोड है अब: रेंज मंद rngRow के रूप में रेंज मंद rgbell रेंज सेट के रूप में rngRange = Range ("A2: K13") प्रत्येक rngRow के लिए rngRange.Rows में सेट करें rgbCell = Range (" ई "और आरएनजीआरओ.रो) 'ई यह मेरी शीट आरएनजीआरओ में वैरिएबल वेल्यू का कॉलम है। इंटरअरीयर। कॉलर = आरजीबीसीएल.वैल' यहां यह काम करता है अगला एंड उप <पी> और I पता नहीं कैसे 'रन' को आरजीबी फ़ंक्शन से cell.value।

rngRow.Interior.Color = rgbCell पंक्ति से त्रुटि:

< P> रन-टाइम एरर '13':
प्रकार बेमेल लिखें

आपको एक वास्तविक रंग ऑब्जेक्ट में rngRow.Interior.Color सेट करना है, लेकिन आप वर्तमान में इसे किसी स्ट्रिंग में सेट कर रहे हैं। यदि आप इस कोड को अपने कोड में बदलते हैं:

  rngRow.Interior.Color = rgbCell.Value 'यहां यह काम नहीं करता है  

इसे करने के लिए: < / P>

  यदि वाम (rgbCell.Value, 4) = "आरजीबी (" फिर आरजीबीएवल्यूज़ = स्प्लिट (मिड (आरजीबीसीएल.वैल्यू, 5, लेन (आरजीबीसीएल.वैल्यू) - 5), ",") RngRow.Interior.Color = RGB (rgbValues ​​(0), rgbValues ​​(1), rgbValues ​​(2)) अंत अगर  

फिर वह तार ऑब्जेक्ट को स्ट्रिंग में नंबरों से बनायेगा।