एकाधिक कोशिकाओं पर रंग ग्रेडिएंट कैसे लागू करें?
एक्सेल में, हम आसानी से एक सेल या एकाधिक सेल में पृष्ठभूमि रंग भर सकते हैं, लेकिन, कभी-कभी, हमें रंग को ग्रेडिएंट से भरने की आवश्यकता होती है जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है, एक्सेल में एक सेल में या कई सेल में रंग ग्रेडिएंट कैसे प्राप्त किया जा सकता है?
एक सेल में रंग ढाल | एकाधिक कोशिकाओं में रंग ढाल |
फ़ॉर्मेट सेल सुविधा के साथ एक सेल पर ग्रेडिएंट रंग लागू करें
VBA कोड के साथ कई कक्षों में ग्रेडिएंट रंग लागू करें
फ़ॉर्मेट सेल सुविधा के साथ एक सेल पर ग्रेडिएंट रंग लागू करें
एक्सेल में, फ़ॉर्मेट सेल सुविधा आपको एक सेल में रंग ग्रेडिएंट भरने में मदद कर सकती है, कृपया निम्नानुसार करें:
1. एक सेल या एकाधिक सेल का चयन करें जिसे आप प्रत्येक सेल में रंग ग्रेडिएंट से भरना चाहते हैं, और फिर चुनने के लिए राइट क्लिक करें प्रारूप प्रकोष्ठों संदर्भ मेनू से, में प्रारूप प्रकोष्ठों डायलॉग बॉक्स, के अंतर्गत भरना टैब, कृपया क्लिक करें प्रभाव भरें बटन, स्क्रीनशॉट देखें:
2. में प्रभाव भरें संवाद, दो ड्रॉप डाउन सूचियों से उन दो रंगों का चयन करें जिनका आप उपयोग करना चाहते हैं रंग अनुभाग, और फिर अपनी पसंद के अनुसार एक छायांकन शैलियों का चयन करें, जैसे कि क्षैतिज, लंबवत, इत्यादि। स्क्रीनशॉट देखें:
3। तब दबायें OK > OK संवादों को बंद करने के लिए, और प्रत्येक सेल के लिए ग्रेडिएंट रंग निम्न स्क्रीनशॉट में दिखाए गए अनुसार भरा जाता है:
VBA कोड के साथ कई कक्षों में ग्रेडिएंट रंग लागू करें
उपरोक्त विधि हमें व्यक्तिगत सेल के भीतर रंग ग्रेडिएंट को शेड करने में मदद कर सकती है, यदि आपको कई कोशिकाओं में रंग ग्रेडिएंट को शेड करने की आवश्यकता है, तो आपको इसे हल करने के लिए एक वीबीए कोड लागू करना होगा।
1. सबसे पहले, कक्षों की श्रेणी में एक विशिष्ट पृष्ठभूमि रंग भरें।
2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: एकाधिक कक्षों पर ग्रेडिएंट रंग लागू करें:
Sub colorgradientmultiplecells()
'Updateby Extendoffcie
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xColor As Long
Dim I As Long
Dim K As Long
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the cells range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
xCount = xRg.Rows.Count
For K = 1 To xRg.Columns.Count
xColor = xRg.Cells(1, K).Interior.Color
For I = xCount To 1 Step -1
xRg.Cells(I, K).Interior.Color = xColor
xRg.Cells(I, K).Interior.TintAndShade = (xCount - (I - 1)) / xCount
Next
Next
End Sub
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उन रंगीन कोशिकाओं का चयन करने की याद दिलाने के लिए दिखाई देता है जिन्हें आप ग्रेडिएंट रंग भरना चाहते हैं, स्क्रीनशॉट देखें:
5। और फिर क्लिक करें OK बटन, एकाधिक कक्षों के भीतर का रंग ग्रेडिएंट रंग के रूप में प्रदर्शित हुआ है, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!