Excel में किसी सूत्र द्वारा संदर्भित सभी कक्षों को कैसे हाइलाइट करें?
यह आलेख उन सभी कक्षों को हाइलाइट करने के बारे में बात कर रहा है जिन्हें एक्सेल में एक सूत्र द्वारा संदर्भित किया गया था। कृपया इसे पूरा करने के लिए नीचे दिए गए दो तरीकों का पालन करें।
शॉर्टकट कुंजी के साथ सूत्र द्वारा संदर्भित सभी कोशिकाओं को हाइलाइट करें
VBA कोड वाले सूत्र द्वारा संदर्भित सभी कक्षों को हाइलाइट करें
शॉर्टकट कुंजी के साथ सूत्र द्वारा संदर्भित सभी कोशिकाओं को हाइलाइट करें
यह अनुभाग आपको सूत्र द्वारा संदर्भित सभी कक्षों का चयन करने के लिए शॉर्टकट कुंजी का उपयोग करने की अनुशंसा करेगा, और फिर मैन्युअल रूप से उनमें रंग भरें।
1. मान लीजिए कि E1 एक फॉर्मूला सेल है, और आपको इसके द्वारा संदर्भित सभी सेल को हाइलाइट करना होगा। कृपया सूत्र सेल E1 चुनें, फिर दबाएँ कंट्रोल + [ (ओपन-स्क्वायर-ब्रैकेट) कुंजियाँ एक साथ।
2. अब इस सूत्र द्वारा संदर्भित सेल चयनित हैं, कृपया उन्हें हाइलाइट करने के लिए एक भरण रंग निर्दिष्ट करें। स्क्रीनशॉट देखें:
VBA कोड वाले सूत्र द्वारा संदर्भित सभी कक्षों को हाइलाइट करें
आप एक्सेल में एक सूत्र द्वारा संदर्भित सभी कोशिकाओं को हाइलाइट करने के लिए वीबीए कोड भी चला सकते हैं।
1। दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करके मॉड्यूल विंडो में पेस्ट करें।
वीबीए कोड: एक्सेल में एक सूत्र द्वारा संदर्भित सभी कोशिकाओं को हाइलाइट करें
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. पॉप अप में एक्सेल के लिए कुटूल संवाद बॉक्स में, कृपया एक सूत्र कक्ष या एकाधिक सूत्र कक्ष चुनें जिसके आधार पर आपको संदर्भित कक्षों को हाइलाइट करना है, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
अब चयनित फॉर्मूला सेल के आधार पर सभी संदर्भित सेल तुरंत नीचे स्क्रीनशॉट में दिखाए अनुसार लाल रंग में हाइलाइट हो जाते हैं।
संबंधित लेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!