मैं माफी माँगता हूँ अगर यह पहले भी उत्तर दिया जा चुका है, लेकिन मुझे अपनी विचित्रता का व्यवहार्य समाधान खोजने का कोई सौभाग्य नहीं है।
मैं एक उपकरण को ठीक करने / बढ़ाने का प्रयास कर रहा हूंहम अलग-अलग रंगों को अलग-अलग रंगों में इस्तेमाल करते हैं लेकिन केवल उन पंक्तियों का उपयोग किया जाता है जो डेटा द्वारा पॉप्युलेट की जाती हैं। मैं एक समाधान खोजने में सक्षम रहा हूं जो काम करता है लेकिन किसी कारण से यह कई और पंक्तियों को रंग रहा है जितना मैं चाहता हूं। अगर मैं "केवल कुछ पंक्तियों को 80 पंक्तियों में रंगता हूं, तो मैं जितनी पंक्तियों का उपयोग करता हूं, वे उतने अधिक रंगों का उपयोग करते हैं और मुझे यह पता नहीं है कि क्यों।
टूल ए-एएस कॉलम को पॉप्युलेट करता है और पंक्ति 9 पर शुरू होता है। यह एक अलग टैब से डेटा के साथ पॉपुलेटेड है। मेरे परीक्षण कम से कम कहने में असफल रहे हैं। यहाँ उपकरण क्या दिखता है:
उद्धरण बिल्डर:
यहाँ कोड I का मी स्निपेट दिया गया है:
" Color used range of cells
Sheet1.Range("A9:G9" & LastRowNo).Interior.Color = RGB(255, 242, 204)
Sheet2.Range("A9:G9" & LastRowNo).Interior.Color = RGB(255, 242, 204)
Sheet1.Range("H9:M9" & LastRowNo).Interior.Color = RGB(252, 228, 214)
Sheet2.Range("H9:M9" & LastRowNo).Interior.Color = RGB(252, 228, 214)
Sheet1.Range("N9:AI9" & LastRowNo).Interior.Color = RGB(226, 239, 218)
Sheet2.Range("N9:AI9" & LastRowNo).Interior.Color = RGB(226, 239, 218)
Sheet1.Range("AJ9:AS9" & LastRowNo).Interior.ColorIndex = 17
Sheet2.Range("AJ9:AS9" & LastRowNo).Interior.ColorIndex = 17
कृपया मुझे बताएं कि क्या आपको अधिक जानकारी की आवश्यकता है, मैंने जितना संभव हो उतना विशिष्ट बनने की कोशिश की।
उन सभी को स्पष्ट करने के लिए जो मदद करने की कोशिश कर रहे हैंइस मुद्दे। उपरोक्त कोड काम करता है सिवाय इसके कि यह अधिक पंक्तियों को रंगीन कर रहा है, जिसकी मुझे एक महत्वपूर्ण राशि से आवश्यकता है। मुझे केवल यह उपयोग करने की पंक्तियों को रंगने की आवश्यकता है जो कि पंक्ति 9 से शुरू होकर नीचे तक जा रही है कि कितनी बार उपयोगकर्ता पॉप्युलेट करता है। यह 200 रेखाओं पर 1 पंक्ति से कुछ तक हो सकती है। मूल रूप से, हालांकि उपयोगकर्ता द्वारा कई लाइनों की आवश्यकता होती है। सभी को अग्रिम धन्यवाद।
यहाँ मैं जो परिवर्तन कर रहा हूँ, वह एक बहुत करीब है जो मुझे चाहिए, लेकिन अभी भी वहाँ बिलकुल नहीं है:
" Color used range of cells
Sheet1.Range("A9:G1" & LastRowNo).Interior.Color = RGB(255, 242, 204)
Sheet2.Range("A9:G1" & LastRowNo).Interior.Color = RGB(255, 242, 204)
Sheet1.Range("H9:M1" & LastRowNo).Interior.Color = RGB(252, 228, 214)
Sheet2.Range("H9:M1" & LastRowNo).Interior.Color = RGB(252, 228, 214)
Sheet1.Range("N9:AI1" & LastRowNo).Interior.Color = RGB(226, 239, 218)
Sheet2.Range("N9:AI1" & LastRowNo).Interior.Color = RGB(226, 239, 218)
Sheet1.Range("AJ9:AS1" & LastRowNo).Interior.ColorIndex = 17
Sheet2.Range("AJ9:AS1" & LastRowNo).Interior.ColorIndex = 17
उत्तर:
जवाब के लिए 0 № 1ठीक है, मैं एक समाधान के साथ आने में सक्षम था किमेरी स्थिति के लिए काम करता है। मुझे एक इफ़ेक्ट जोड़ना था क्योंकि यह पहली पंक्ति को रंग नहीं देता यदि केवल डेटा की एक पंक्ति होती।
यहां इस्तेमाल किया गया कोड है:
" Color used range of cells
If LastRowNo = 2 Then
Sheet1.Range("A9:G9").Interior.Color = RGB(255, 242, 204)
Sheet2.Range("A9:G9").Interior.Color = RGB(255, 242, 204)
Sheet1.Range("H9:M9").Interior.Color = RGB(252, 228, 214)
Sheet2.Range("H9:M9").Interior.Color = RGB(252, 228, 214)
Sheet1.Range("N9:AI9").Interior.Color = RGB(226, 239, 218)
Sheet2.Range("N9:AI9").Interior.Color = RGB(226, 239, 218)
Sheet1.Range("AJ9:AS9").Interior.ColorIndex = 17
Sheet2.Range("AJ9:AS9").Interior.ColorIndex = 17
Else
Sheet1.Range("A9:G" & LastRowNo + 7).Interior.Color = RGB(255, 242, 204)
Sheet2.Range("A9:G" & LastRowNo + 7).Interior.Color = RGB(255, 242, 204)
Sheet1.Range("H9:M" & LastRowNo + 7).Interior.Color = RGB(252, 228, 214)
Sheet2.Range("H9:M" & LastRowNo + 7).Interior.Color = RGB(252, 228, 214)
Sheet1.Range("N9:AI" & LastRowNo + 7).Interior.Color = RGB(226, 239, 218)
Sheet2.Range("N9:AI" & LastRowNo + 7).Interior.Color = RGB(226, 239, 218)
Sheet1.Range("AJ9:AS" & LastRowNo + 7).Interior.ColorIndex = 17
Sheet2.Range("AJ9:AS" & LastRowNo + 7).Interior.ColorIndex = 17
End If
यदि यह किसी और की मदद करता है तो यह इसके लायक थाप्रयास है। यदि अन्य उपाय या ऐसा करने का एक बेहतर तरीका है तो कृपया अपनी जानकारी जोड़ें। मैं इस साइट पर अक्सर मुद्दों के समाधान खोजने के लिए आता हूं और इसे सबसे अधिक लाभकारी साइटों में से एक होने के लिए खोजता हूं। उन लोगों के लिए धन्यवाद जिन्होंने इसमें अपना इनपुट पेश किया, यह मददगार था।