एक्सेल में रंग भरते समय ग्रिड लाइनों को कैसे सुरक्षित रखें?
जैसा कि हम सभी जानते हैं, जब हम कोशिकाओं में पृष्ठभूमि रंग भरते हैं, तो ग्रिडलाइनें भी कवर हो जाएंगी, इस मामले में, हम एक्सेल कोशिकाओं में पृष्ठभूमि रंग भरते समय ग्रिडलाइन्स को कैसे रख सकते हैं ताकि निम्नलिखित स्क्रीनशॉट दिखाया जा सके।
VBA कोड के साथ रंग भरते समय ग्रिडलाइन्स को सुरक्षित रखें
VBA कोड के साथ रंग भरते समय ग्रिडलाइन्स को सुरक्षित रखें
आम तौर पर, इस काम को हल करने का हमारे पास कोई सीधा तरीका नहीं है, लेकिन, यहां, मैं आपके लिए एक वीबीए कोड पेश कर सकता हूं। कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. बाएँ में परियोजना-वीबीएपरियोजना फलक, डबल क्लिक करें यह विस्तारित के तहत वीबीएप्रोजेक्ट, फिर निम्नलिखित VBA कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: रंग भरते समय ग्रिडलाइन्स को सुरक्षित रखें
Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not xRgPre Is Nothing Then DrawBorders xRgPre
Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
Dim xCell As Range
Application.ScreenUpdating = False
For Each xCell In Rg
If xCell.Interior.ColorIndex = xlNone Then
With xCell.Borders
If .ColorIndex = 15 Then
.LineStyle = xlNone
End If
End With
Else
With xCell.Borders
If .LineStyle = xlNone Then
.Weight = xlThin
.ColorIndex = 15
End If
End With
End If
Next
Application.ScreenUpdating = True
End Sub
3. और फिर कोड विंडो को सहेजें और बंद करें, अब, जब आप कोशिकाओं की एक श्रृंखला के लिए रंग भरते हैं, तो ग्रिडलाइनें स्वचालित रूप से दिखाई जाएंगी।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!