Excel में टिप्पणी सूचक रंग कैसे बदलें?
एक्सेल में, एक टिप्पणी डालने के बाद, सेल के ऊपरी दाएं कोने में एक छोटा लाल त्रिकोण संकेतक दिखाई देता है। कई एक्सेल उपयोगकर्ता आश्चर्यचकित हो सकते हैं कि क्या लाल संकेतक रंग को उनकी पसंद के अन्य रंगों में बदला जा सकता है। इस लेख में, मैं इस कार्य को पूरा करने के लिए एक समाधान के बारे में बात करूंगा।
VBA कोड के साथ टिप्पणी सूचक रंग बदलें
VBA कोड के साथ टिप्पणी सूचक रंग बदलें
हमारे लिए टिप्पणी संकेतकों का रंग जल्दी और आसानी से बदलने का कोई सीधा तरीका नहीं है, लेकिन, निम्नलिखित वीबीए कोड आपको सक्रिय शीट पर आवश्यक विशिष्ट रंग के साथ प्रत्येक टिप्पणी संकेतक को ओवरलैप करते हुए एक त्रिकोणीय आकार बनाने में मदद कर सकता है।
1. अपनी वर्कशीट सक्रिय करें जिसमें आप टिप्पणी संकेतक का रंग बदलना चाहते हैं।
2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: सक्रिय शीट में टिप्पणी संकेतक रंग बदलें
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. कोड पेस्ट करने के बाद प्रेस करें F5 कोड को निष्पादित करने के लिए कुंजी, और सभी लाल त्रिकोण संकेतक नीले त्रिकोण द्वारा कवर किए गए हैं जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है:
टिप्पणियाँ:
1. उपरोक्त कोड में, आप केवल स्क्रिप्ट में कलर इंडेक्स को बदलकर नीले रंग को अपनी पसंद के अनुसार बदल सकते हैं .Fill.ForeColor.SchemeColor = 12.
2. जब आप सेल का आकार बदलेंगे तो VBA के ऊपर आप जो त्रिकोण आकार जोड़ेंगे, उसका आकार बदल जाएगा।
3. यदि आप सभी रंगीन त्रिकोण आकृतियों को तुरंत हटाना चाहते हैं, तो निम्नलिखित VBA कोड आपके लिए उपयोगी होगा:
वीबीए कोड: टिप्पणी संकेतकों पर त्रिकोणीय आकृतियाँ हटाएँ
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
संबंधित आलेख:
Excel में टिप्पणियों के साथ सभी कक्षों को कैसे हाइलाइट करें?
एक्सेल में सभी टिप्पणियाँ और टिप्पणी संकेतक कैसे दिखाएँ या छिपाएँ?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!