मुख्य सामग्री पर जाएं

एक्सेल में सक्रिय पंक्ति और कॉलम को ऑटो-हाइलाइट करें (पूर्ण गाइड)

लेखक: ज़ियाओयांग अंतिम संशोधित: 2023-12-01

डेटा से भरे व्यापक एक्सेल वर्कशीट के माध्यम से नेविगेट करना चुनौतीपूर्ण हो सकता है, और अपनी जगह का ट्रैक खोना या मूल्यों को गलत तरीके से पढ़ना आसान है। आपके डेटा विश्लेषण को बढ़ाने और त्रुटियों की संभावना को कम करने के लिए, हम एक्सेल में चयनित सेल की पंक्ति और कॉलम को गतिशील रूप से हाइलाइट करने के 3 अलग-अलग तरीके पेश करेंगे। जैसे ही आप एक सेल से दूसरे सेल में जाते हैं, हाइलाइटिंग गतिशील रूप से बदलती है, जिससे आपको सही डेटा पर ध्यान केंद्रित रखने के लिए एक स्पष्ट और सहज दृश्य संकेत मिलता है, जैसा कि निम्नलिखित डेमो में दिखाया गया है:

Excel में सक्रिय पंक्ति और स्तंभ को स्वतः हाइलाइट करें

वीडियो: एक्सेल में सक्रिय पंक्ति और कॉलम को ऑटो-हाइलाइट करें

VBA कोड के साथ सक्रिय पंक्ति और स्तंभ को स्वतः हाइलाइट करें

वर्तमान वर्कशीट में चयनित सेल के संपूर्ण कॉलम और पंक्ति को स्वचालित रूप से हाइलाइट करने के लिए, निम्नलिखित VBA कोड आपको इस कार्य को प्राप्त करने में मदद कर सकता है।

चरण 1: वर्कशीट खोलें जहां आप सक्रिय पंक्ति और कॉलम को ऑटो-हाइलाइट करना चाहते हैं

चरण 2: वीबीए शीट मॉड्यूल संपादक खोलें और कोड कॉपी करें

  1. शीट नाम पर राइट क्लिक करें और चुनें कोड देखें संदर्भ मेनू से, स्क्रीनशॉट देखें:
  2. खुले हुए वीबीए शीट मॉड्यूल संपादक में, निम्नलिखित कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें। स्क्रीनशॉट देखें:
    वीबीए कोड: चयनित सेल की पंक्ति और कॉलम को ऑटो-हाइलाइट करें 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
     Cells.Interior.ColorIndex = xlNone
    rowRange.Interior.Color = RGB(248, 150, 171)
    colRange.Interior.Color = RGB(173, 233, 249)
End Sub
    युक्तियाँ: कोड को अनुकूलित करें
    • हाइलाइट रंग बदलने के लिए, आपको बस निम्नलिखित स्क्रिप्ट में RGB मान को संशोधित करना होगा:
      rowRange.इंटीरियर.रंग = RGB(248, 150, 171)
      colRange.इंटीरियर.रंग = RGB(173, 233, 249)
    • केवल चयनित सेल की संपूर्ण पंक्ति को हाइलाइट करने के लिए, इस पंक्ति को हटा दें या टिप्पणी करें (सामने एक एपॉस्ट्रॉफ़ी जोड़ें):
      colRange.इंटीरियर.रंग = RGB(173, 233, 249)
    • केवल चयनित सेल के संपूर्ण कॉलम को हाइलाइट करने के लिए, इस पंक्ति को हटा दें या टिप्पणी करें (सामने एक एपॉस्ट्रॉफ़ी जोड़ें):
      रोरेंज.इंटीरियर.रंग = आरजीबी(248, 150, 171)

  3. फिर, वर्कशीट पर लौटने के लिए VBA संपादक विंडो बंद करें।

रिजल्ट:

अब, जब आप किसी सेल का चयन करते हैं, तो उस सेल की पूरी पंक्ति और कॉलम स्वचालित रूप से हाइलाइट हो जाते हैं, और नीचे दिखाए गए डेमो के अनुसार चयनित सेल में परिवर्तन होने पर हाइलाइट गतिशील रूप से बदल जाता है:

टिप्पणियाँ:
  • यह कोड वर्कशीट में सभी सेल से पृष्ठभूमि के रंगों को साफ़ कर देगा, इसलिए, यदि आपके पास कस्टम रंग वाले सेल हैं तो इस समाधान का उपयोग करने से बचें।
  • इस कोड को चलाने से यह अक्षम हो जाएगा पूर्ववत करें शीट में सुविधा, जिसका अर्थ है कि आप दबाकर किसी भी गलती को उलट नहीं सकते Ctrl + Z शॉर्टकट।
  • यह कोड संरक्षित वर्कशीट में काम नहीं करेगा.
  • चयनित सेल की पंक्ति और कॉलम को हाइलाइट करना बंद करने के लिए, आपको पहले जोड़े गए VBA कोड को हटाना होगा। उसके बाद हाइलाइटिंग को क्लिक करके रीसेट करना है होम > रंग भरना > भरना नहीं.

कुटूल के केवल एक क्लिक से सक्रिय पंक्ति और स्तंभ को स्वतः हाइलाइट करें

Excel में VBA कोड की सीमाओं का सामना करना पड़ रहा है? कुटूल एक्सेल के लिए's ग्रिड फोकस सुविधा आपका आदर्श समाधान है! वीबीए की कमियों को दूर करने के लिए डिज़ाइन किया गया, यह आपके शीट अनुभव को बढ़ाने के लिए हाइलाइटिंग शैलियों की एक विविध श्रृंखला प्रदान करता है। इन शैलियों को सभी खुली कार्यपुस्तिकाओं में लागू करने की अपनी क्षमता के साथ, कुटूल लगातार कुशल और आकर्षक डेटा प्रबंधन प्रक्रिया सुनिश्चित करता है।

नोट: अगर आप इसका इस्तेमाल करना चाहते हैं ग्रिड फोकस सुविधा, कृपया एक्सेल के लिए कुटूल डाउनलोड और इंस्टॉल करें पहले।

स्थापित करने के बाद एक्सेल के लिए कुटूल, फिर से लॉगिन करने के लिए कुटूल > ग्रिड फोकस इस सुविधा को सक्षम करने के लिए. अब, आप देख सकते हैं कि सक्रिय सेल की पंक्ति और कॉलम तुरंत हाइलाइट हो गए हैं। जैसे ही आप अपना सेल चयन बदलते हैं, यह हाइलाइट गतिशील रूप से अनुसरण करने के लिए स्थानांतरित हो जाता है। नीचे डेमो देखें:

⭐ ग्रिड फोकस सुविधा के मुख्य लाभ:
  • मूल सेल पृष्ठभूमि रंगों को सुरक्षित रखता है:
    वीबीए कोड के विपरीत, यह सुविधा आपके वर्कशीट के मौजूदा स्वरूपण का सम्मान करती है।
  • संरक्षित शीट में प्रयोग करने योग्य:
    यह सुविधा संरक्षित वर्कशीट के भीतर निर्बाध रूप से काम करती है, जो इसे सुरक्षा से समझौता किए बिना संवेदनशील या साझा दस्तावेज़ों को प्रबंधित करने के लिए आदर्श बनाती है।
  • पूर्ववत कार्य को प्रभावित नहीं करता:
    इस सुविधा के साथ, आप एक्सेल की पूर्ववत कार्यक्षमता तक पूर्ण पहुंच बनाए रखते हैं। यह सुनिश्चित करता है कि आप अपने डेटा हेरफेर में सुरक्षा की एक परत जोड़कर, परिवर्तनों को आसानी से पूर्ववत कर सकते हैं।
  • बड़े डेटा के साथ स्थिर प्रदर्शन:
    यह सुविधा बड़े डेटासेट को कुशलतापूर्वक संभालने के लिए डिज़ाइन की गई है, जो जटिल और डेटा-गहन स्प्रेडशीट में भी स्थिर प्रदर्शन सुनिश्चित करती है।
  • एकाधिक हाइलाइटिंग शैलियाँ:
    यह सुविधा विभिन्न प्रकार के हाइलाइटिंग विकल्प प्रदान करती है, जो आपको पंक्ति, स्तंभ या पंक्ति और स्तंभ के अपने सक्रिय सेल को इस तरह से अलग दिखाने के लिए विभिन्न शैलियों और रंगों में से चयन करने की अनुमति देती है, जो आपकी प्राथमिकताओं और आवश्यकताओं के लिए सबसे उपयुक्त है।
सुझाव:

सशर्त स्वरूपण के साथ सक्रिय पंक्ति और स्तंभ को स्वतः हाइलाइट करें

एक्सेल में, आप सक्रिय पंक्ति और कॉलम को ऑटो-हाइलाइट करने के लिए सशर्त स्वरूपण भी सेट कर सकते हैं। इस सुविधा को स्थापित करने के लिए, कृपया इन चरणों का पालन करें:

चरण 1: डेटा श्रेणी का चयन करें

सबसे पहले, उन कक्षों की श्रेणी का चयन करें जिन पर आप यह सुविधा लागू करना चाहते हैं। यह संपूर्ण वर्कशीट या एक विशिष्ट डेटा सेट हो सकता है। यहां, मैं संपूर्ण वर्कशीट का चयन करूंगा।

चरण 2: सशर्त स्वरूपण तक पहुंचें

क्लिक करें होम > सशर्त फॉर्मेटिंग > नए नियम, स्क्रीनशॉट देखें:

चरण 3: संचालन को नए फ़ॉर्मेटिंग नियम में सेट करें

  1. में नया प्रारूपण नियम संवाद बॉक्स, चुनें यह निर्धारित करने के लिए कि कौन-से कक्ष स्वरूपित करने के लिए सूत्र का उपयोग करें से एक नियम प्रकार चुनें सूची बाक्स।
  2. में उन मानों को प्रारूपित करें जहां यह सूत्र सत्य है बॉक्स में, इनमें से एक सूत्र दर्ज करें, इस उदाहरण में, मैं सक्रिय पंक्ति और स्तंभ को हाइलाइट करने के लिए तीसरा सूत्र लागू करूंगा।
    सक्रिय पंक्ति को हाइलाइट करने के लिए: 
    =CELL("row")=ROW()
    सक्रिय कॉलम को हाइलाइट करने के लिए: 
    =CELL("col")=COLUMN()
    सक्रिय पंक्ति और स्तंभ को हाइलाइट करने के लिए: 
    =OR(CELL("row")=ROW(), CELL("col")= COLUMN())
  3. तब दबायें का गठन बटन.
  4. निम्नलिखित में प्रारूप प्रकोष्ठों डायलॉग बॉक्स, के अंतर्गत भरना टैब, सक्रिय पंक्ति और कॉलम को आवश्यकतानुसार हाइलाइट करने के लिए एक रंग चुनें, स्क्रीनशॉट देखें:
  5. तब दबायें OK > OK संवाद बंद करने के लिए.

रिजल्ट:

अब, आप देख सकते हैं कि सेल A1 का पूरा कॉलम और पंक्ति एक साथ हाइलाइट हो गई है। इस हाइलाइटिंग को किसी अन्य सेल पर लागू करने के लिए, बस अपने इच्छित सेल पर क्लिक करें और दबाएं F9 शीट को ताज़ा करने के लिए कुंजी, जो फिर नए चयनित सेल के पूरे कॉलम और पंक्ति को हाइलाइट करेगी।

सुझाव: 
  • वास्तव में, जबकि एक्सेल में हाइलाइटिंग के लिए सशर्त स्वरूपण दृष्टिकोण एक समाधान प्रदान करता है, यह उपयोग करने जितना सहज नहीं है VBA और ग्रिड फोकस विशेषता। इस विधि के लिए शीट की मैन्युअल पुनर्गणना की आवश्यकता होती है (दबाकर प्राप्त किया जाता है)। F9 कुंजी)।
    अपनी वर्कशीट की स्वचालित पुनर्गणना को सक्षम करने के लिए, आप अपनी लक्ष्य शीट के कोड मॉड्यूल में एक सरल वीबीए कोड शामिल कर सकते हैं। यह रिफ्रेश प्रक्रिया को स्वचालित कर देगा, जैसे ही आप बिना दबाए अलग-अलग सेल का चयन करेंगे, हाइलाइटिंग अपडेट तुरंत सुनिश्चित हो जाएगा F9 चाबी। कृपया शीट नाम पर राइट क्लिक करें और फिर चुनें कोड देखें संदर्भ मेनू से. फिर निम्नलिखित कोड को कॉपी करके शीट मॉड्यूल में पेस्ट करें: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Target.Calculate
End Sub
  • सशर्त स्वरूपण मौजूदा स्वरूपण को सुरक्षित रखता है जिसे आपने मैन्युअल रूप से अपनी वर्कशीट पर लागू किया है।
  • सशर्त स्वरूपण को अस्थिर माना जाता है, खासकर जब इसे बहुत बड़े डेटासेट पर लागू किया जाता है। इसका व्यापक उपयोग संभावित रूप से आपकी कार्यपुस्तिका के प्रदर्शन को धीमा कर सकता है, जिससे डेटा प्रोसेसिंग और नेविगेशन की दक्षता प्रभावित हो सकती है।
  • सेल फ़ंक्शन केवल एक्सेल संस्करण 2007 और बाद में उपलब्ध है, यह विधि एक्सेल के पुराने संस्करणों के साथ संगत नहीं है।

उपरोक्त विधियों की तुलना

Feature वीबीए कोड सशर्त फॉर्मेटिंग एक्सेल के लिए कुटूल
सेल पृष्ठभूमि रंग सुरक्षित रखें नहीं हाँ हाँ
पूर्ववत करने का समर्थन करता है नहीं हाँ हाँ
बड़े डेटासेट में स्थिर नहीं नहीं हाँ
संरक्षित शीटों में प्रयोग करने योग्य नहीं हाँ हाँ
सभी खुली कार्यपुस्तिकाओं पर लागू होता है केवल वर्तमान शीट केवल वर्तमान शीट सभी खुली कार्यपुस्तिकाएँ
मैन्युअल रिफ्रेश की आवश्यकता है (F9) नहीं हाँ नहीं

यह एक्सेल में चयनित सेल के कॉलम और पंक्ति को हाइलाइट करने के तरीके पर हमारी मार्गदर्शिका का समापन करता है। यदि आप अधिक एक्सेल टिप्स और ट्रिक्स तलाशने में रुचि रखते हैं, तो कृपया हमारी वेबसाइट हजारों ट्यूटोरियल प्रदान करती है उन तक पहुंचने के लिए यहां क्लिक करें. पढ़ने के लिए धन्यवाद, और हम भविष्य में आपको और अधिक उपयोगी जानकारी प्रदान करने के लिए तत्पर हैं!

संबंधित आलेख:

  • सक्रिय सेल की पंक्ति और स्तंभ को स्वतः हाइलाइट करें
  • जब आप असंख्य डेटा वाली एक बड़ी वर्कशीट देखते हैं, तो आप चयनित सेल की पंक्ति और कॉलम को हाइलाइट करना चाह सकते हैं ताकि आप डेटा को गलत तरीके से पढ़ने से बचने के लिए आसानी से और सहजता से पढ़ सकें। यहां, मैं आपको वर्तमान सेल की पंक्ति और कॉलम को हाइलाइट करने के लिए कुछ दिलचस्प ट्रिक्स पेश कर सकता हूं, जब सेल बदल जाता है, तो नए सेल का कॉलम और पंक्ति स्वचालित रूप से हाइलाइट हो जाती है।
  • एक्सेल में हर दूसरी पंक्ति या कॉलम को हाइलाइट करें
  • एक बड़ी वर्कशीट में, प्रत्येक दूसरी या प्रत्येक nवीं पंक्ति या कॉलम को हाइलाइट करने या भरने से डेटा दृश्यता और पठनीयता में सुधार होता है। यह न केवल वर्कशीट को साफ-सुथरा बनाता है बल्कि आपको डेटा को तेजी से समझने में भी मदद करता है। इस लेख में, हम आपको हर दूसरी या नौवीं पंक्ति या कॉलम को शेड करने के विभिन्न तरीकों के माध्यम से मार्गदर्शन करेंगे, जिससे आपको अपना डेटा अधिक आकर्षक और सरल तरीके से प्रस्तुत करने में मदद मिलेगी।
  • स्क्रॉल करते समय संपूर्ण / संपूर्ण पंक्ति को हाइलाइट करें
  • यदि आपके पास एकाधिक कॉलम वाली बड़ी वर्कशीट है, तो आपके लिए उस पंक्ति के डेटा को अलग करना मुश्किल होगा। इस मामले में, आप सक्रिय सेल की पूरी पंक्ति को हाइलाइट कर सकते हैं ताकि जब आप क्षैतिज स्क्रॉल बार को नीचे स्क्रॉल करें तो आप उस पंक्ति में डेटा को जल्दी और आसानी से देख सकें। इस लेख में, मैं इस समस्या को हल करने के लिए आपके लिए कुछ ट्रिक्स के बारे में बात करूंगा। .
  • ड्रॉप डाउन सूची के आधार पर पंक्तियों को हाइलाइट करें
  • यह आलेख ड्रॉप डाउन सूची के आधार पर पंक्तियों को हाइलाइट करने के तरीके के बारे में बात करेगा, उदाहरण के लिए निम्नलिखित स्क्रीनशॉट लें, जब मैं कॉलम ई में ड्रॉप डाउन सूची से "प्रगति में" का चयन करता हूं, तो मुझे इस पंक्ति को लाल रंग से हाइलाइट करने की आवश्यकता होती है, जब मैं ड्रॉप डाउन सूची से "पूर्ण" चुनें, मुझे इस पंक्ति को नीले रंग से हाइलाइट करने की आवश्यकता है, और जब मैं "शुरू नहीं हुआ" का चयन करता हूं, तो पंक्ति को हाइलाइट करने के लिए हरे रंग का उपयोग किया जाएगा।
Comments (61)
Rated 5 out of 5 · 1 ratings
dreams knight
dreams knight
This comment was minimized by the moderator on the site
And please reply to an email
Reply
0
0
dreams knight
dreams knight
This comment was minimized by the moderator on the site
Great job . But in the first task at the top of the browser page, when I did it, it was working correctly, but when I made protection for the sheet, it stopped working correctly, you see, what's the solution. Thank you
Reply
0
0
skyyang
skyyang     dreams knight
This comment was minimized by the moderator on the site
Hello,
To solve your problem, please apply the followign code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Me.Unprotect
    Cells.Interior.ColorIndex = xlNone
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
    rowRange.Interior.Color = RGB(173, 233, 249)
    colRange.Interior.Color = RGB(173, 233, 249)
    Me.Protect
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
sahudewa@gmail.com
This comment was minimized by the moderator on the site 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    
    ' Clear previous highlighting
    Me.Cells.FormatConditions.Delete
    
    ' Check if Checkbox1 is checked
    ' If CheckBox1.Value = True Then
        ' Check if a single cell or a range of cells is selected
        If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
            Dim selectedRange As Range
            Dim selectedRows As Range
            Dim selectedColumns As Range
            
            Set selectedRange = Target
            Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
            Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)
            
            ' Add conditional formatting to highlight the selected rows
            With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
            
            ' Add conditional formatting to highlight the selected columns
            With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
        End If
    ' End If
    
    On Error GoTo 0
End Sub
Reply
Report
0
0
sahudewa@gmail.com
This comment was minimized by the moderator on the site
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

' Clear previous highlighting
Me.Cells.FormatConditions.Delete

' Check if a single cell or a range of cells is selected
If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
Dim selectedRange As Range
Dim selectedRows As Range
Dim selectedColumns As Range

Set selectedRange = Target
Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)

' Add conditional formatting to highlight the selected rows
With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With

' Add conditional formatting to highlight the selected columns
With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With
End If

On Error GoTo 0
End Sub
Reply
Report
0
0
Disgruntled Researcher
Disgruntled Researcher
This comment was minimized by the moderator on the site
can you please post code in VBA format? trying to figure out what your code looks like from what you posted in a jumble is frustrating.
Reply
0
0
A. Patel
A. Patel
This comment was minimized by the moderator on the site
Hi,

The above code is brilliant. But i have two questions and if you can help then will be much appreciated. Let me know if there is cost associated with it.

1. The above code is removing my previous formatting of the cells. Eg. if i have got the cells filld with blue then above code clears that fill.
2. Is there a code that i can use when i am extracting values from another sheet and that row in the that sheet gets highlighted as well. Eg. I want to extract vale from another cell, so when i press = sign in sheet 1 and then when i move to sheet 2 to bring the value the row in the sheet doesn't get highlighted.

Regards,
Reply
0
0
skyyang
skyyang     A. Patel
This comment was minimized by the moderator on the site
Hello, Patel
For the first question:
It may be difficult to modify the VBA code, so, I recommend you to apply the Conditional Formatting feature for solving this problem, the following article may help you:
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html

Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

For the second question:
Sorry, I can't solve this problem at present,😜
Reply
Report
0
0
2Took
2Took
This comment was minimized by the moderator on the site
How do you modify the code so that:
1. It does not permanently strip existing colors of cells. Currently, after another cell is selected, it leaves colorless previous row. I'd like to keep the colors of the worksheet, as they were before row was highlighted by this code.
2. Limit the highlight width to only Columns A thru K, not the entire row.
Reply
0
0
skyyang
skyyang     2Took
This comment was minimized by the moderator on the site
Hello,
It may be difficult to modify the VBA code, so, here, I recommend you to apply the Conditional Formatting feature for solving this problem, please view the below article: (Note: if you need to highlight the column A to column K, you just need to select the range you need, and then apply the conditional formatting.)
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html


Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

Please try, hope it can help you!
Reply
Report
0
0
Jerry
Jerry
This comment was minimized by the moderator on the site
Thank you so much for this tip!!!
Reply
0
0
Rated 5 out of 5
Rodney
Rodney
This comment was minimized by the moderator on the site
Another easy way to highlight your rows: https://youtu.be/iOF06mZDGIk
Reply
0
0
Gues
Gues
This comment was minimized by the moderator on the site
FAIL. Wiped out all my other cell formatting irreversibly. And doesn't work if the sheet is protected. FAIL.
Reply
0
0
crystal
crystal     Gues
This comment was minimized by the moderator on the site
Hi Gues,The code does not work in a protected worksheet. If you want to keep the original cell formatting, please try the below code.The Reading Layout feature of Kutools is stable and handy, maybe you can download a free trial to have a try.
<div data-tag="code">Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 202001106
Static xRow
Static xColumn

Dim xWs As Worksheet
Dim xCRg, xCRg1, xRRg, xRRg1, xOHRg As Range
Dim xAHRORg, xAHRORg1 As Range
Dim xAWs As Worksheet
Dim xFNum As Integer
Dim xCll As Range

On Error Resume Next

Application.ScreenUpdating = False
pRow = Selection.Row
pColumn = Selection.Column

Set xWs = ActiveWorkbook.Worksheets.Item("AutoHighlightRAndC")
Set xAWs = Target.Worksheet
If xWs Is Nothing Then
Set xWs = ActiveWorkbook.Worksheets.Add
xWs.Name = "AutoHighlightRAndC"
xWs.Visible = xlSheetHidden
xAWs.Activate
End If

If xColumn <> "" Then
Set xCRg = Columns(xColumn)
xCRg.Interior.ColorIndex = xlNone
Set xCRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg.Count
Set xAHRORg1 = xAWs.Cells(xFNum, xColumn)
Set xAHRORg = xWs.Cells(xFNum, xColumn)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xCRg.Item(xFNum).Interior.ColorIndex = xWs.Columns(xColumn).Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(xRow)
xRRg.Interior.ColorIndex = xlNone
Set xRRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xRRg.Count
Set xAHRORg1 = xAWs.Cells(xRow, xFNum)
Set xAHRORg = xWs.Cells(xRow, xFNum)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xRRg.Item(xFNum).Interior.ColorIndex = xWs.Rows(xRow).Item(xFNum).Interior.ColorIndex
Next

End If

xRow = pRow
xColumn = pColumn

Set xCRg = Columns(pColumn)
Set xCRg1 = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg1.Count
Set xOHRg = xWs.Cells(xFNum, pColumn)
xOHRg.Interior.ColorIndex = xCRg1.Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(pRow)
Set xRRg1 = Intersect(xRRg.Worksheet.UsedRange, xRRg)

For xFNum = 1 To xRRg1.Count
Set xCll = xWs.Cells(pRow, xFNum)
xCll.Interior.ColorIndex = xRRg1.Item(xFNum).Interior.ColorIndex
Next
xCRg.Interior.ColorIndex = 34
xRRg.Interior.ColorIndex = 34
Application.ScreenUpdating = True
End Sub
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations