Ga naar hoofdinhoud

Actieve rij en kolom automatisch markeren in Excel (volledige gids)

Navigeren door uitgebreide Excel-werkbladen boordevol gegevens kan een uitdaging zijn, en het is gemakkelijk om uw plaats uit het oog te verliezen of waarden verkeerd te lezen. Om uw data-analyse te verbeteren en de kans op fouten te verkleinen, introduceren we 3 verschillende manieren om de rij en kolom van een geselecteerde cel in Excel dynamisch te markeren. Terwijl u van cel naar cel gaat, verschuift de markering dynamisch, waardoor u een duidelijk en intuïtief visueel signaal krijgt om u op de juiste gegevens te concentreren, zoals in de onderstaande demo:

Markeer actieve rij en kolom automatisch in Excel

Video: Actieve rij en kolom automatisch markeren in Excel

Markeer actieve rij en kolom automatisch met VBA-code

Om automatisch de volledige kolom en rij van de geselecteerde cel in het huidige werkblad te markeren, kan de volgende VBA-code u helpen deze taak te volbrengen.

Stap 1: Open het werkblad waarop u de actieve rij en kolom automatisch wilt markeren

Stap 2: Open de VBA-bladmodule-editor en kopieer de code

  1. Klik met de rechtermuisknop op de bladnaam en kies Bekijk code zie screenshot vanuit het contextmenu:
  2. Kopieer en plak de volgende code in de geopende VBA-werkbladmodule-editor in de lege module. Zie schermafbeelding:
    VBA-code: markeer rij en kolom van geselecteerde cel automatisch 
    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
    Tips: Pas de code aan
    • Om de markeringskleur te wijzigen, hoeft u alleen maar de RGB-waarde in de volgende scripts te wijzigen:
      rowRange.Interior.Color = RGB(248, 150, 171)
      colRange.Interior.Color = RGB(173, 233, 249)
    • Om alleen de hele rij met geselecteerde cellen te markeren, verwijdert u deze regel of voegt u er een apostrof aan toe:
      colRange.Interior.Color = RGB(173, 233, 249)
    • Om alleen de hele kolom van de geselecteerde cel te markeren, verwijdert u deze regel of voegt u er een apostrof aan toe:
      rowRange.Interior.Color = RGB(248, 150, 171)

  3. Sluit vervolgens het VBA-editorvenster om terug te keren naar het werkblad.

Resultaat:

Wanneer u nu een cel selecteert, worden de volledige rij en kolom van die cel automatisch gemarkeerd en verschuift de markering dynamisch naarmate de geselecteerde cel verandert, zoals hieronder weergegeven demo:

Opmerkingen:
  • Met deze code worden de achtergrondkleuren van alle cellen in het werkblad gewist. Gebruik deze oplossing dus niet als u cellen met aangepaste kleuren heeft.
  • Als u deze code uitvoert, wordt de ongedaan maken functie in het blad, wat betekent dat u fouten niet ongedaan kunt maken door op de knop te drukken Ctrl + Z snelkoppeling.
  • Deze code werkt niet in een beveiligd werkblad.
  • Als u wilt stoppen met het markeren van de rij en kolom van de geselecteerde cel, moet u de eerder toegevoegde VBA-code verwijderen. Daarna kunt u de markering opnieuw instellen door op te klikken Home > Opvulkleur > Geen vulling.

Markeer actieve rij en kolom automatisch met slechts één klik van Kutools

Geconfronteerd met de beperkingen van VBA-code in Excel? Kutools voor Excel's Raster focus functie is uw ideale oplossing! Het is ontworpen om de tekortkomingen van VBA aan te pakken en biedt een breed scala aan accentueringsstijlen om uw bladervaring te verbeteren. Dankzij de mogelijkheid om deze stijlen toe te passen op alle geopende werkmappen, Kutools zorgt voor een consistent efficiënt en visueel aantrekkelijk datamanagementproces.

Note: Als u dit wilt gebruiken Raster focus functie, alstublieft download en installeer Kutools voor Excel kopen.

Na het installeren van Kutools for Excel, Klik dan Kutools > Raster focus om deze functie in te schakelen. Nu kunt u zien dat de rij en kolom met de actieve cel onmiddellijk worden gemarkeerd. Deze markering verschuift dynamisch en volgt wanneer u uw celselectie wijzigt. Zie de demo hieronder:

⭐ Belangrijkste voordelen van de Grid Focus-functie:
  • Behoudt de originele celachtergrondkleuren:
    In tegenstelling tot de VBA-code respecteert deze functie de bestaande opmaak van uw werkblad.
  • Bruikbaar in beveiligde bladen:
    Deze functie werkt naadloos binnen beveiligde werkbladen, waardoor het ideaal is voor het beheren van gevoelige of gedeelde documenten zonder de veiligheid in gevaar te brengen.
  • Heeft geen invloed op de functie Ongedaan maken:
    Met deze functie behoudt u volledige toegang tot de functionaliteit voor ongedaan maken van Excel. Dit zorgt ervoor dat u wijzigingen gemakkelijk kunt terugdraaien, waardoor uw gegevensmanipulatie een extra veiligheidslaag krijgt.
  • Stabiele prestaties met grote data:
    Deze functie is ontworpen om grote datasets efficiënt te verwerken en stabiele prestaties te garanderen, zelfs in complexe en gegevensintensieve spreadsheets.
  • Meerdere markeringsstijlen:
    Deze functie biedt een verscheidenheid aan accentueringsopties, zodat u kunt kiezen uit verschillende stijlen en kleuren om uw actieve cel van rij, kolom of rij en kolom te laten opvallen op een manier die het beste bij uw voorkeuren en behoeften past.
Tips:

Markeer actieve rij en kolom automatisch met voorwaardelijke opmaak

In Excel kunt u ook Voorwaardelijke opmaak instellen om de actieve rij en kolom automatisch te markeren. Volg deze stappen om deze functie in te stellen:

Stap 1: Selecteer het gegevensbereik

Selecteer eerst het celbereik waarop u deze functie wilt toepassen. Dit kan het hele werkblad zijn of een specifieke gegevensset. Hier selecteer ik het hele werkblad.

Stap 2: Toegang tot voorwaardelijke opmaak

Klik Home > Conditionele opmaak > Nieuwe regel, zie screenshot:

Stap 3: Stel de bewerkingen in de nieuwe opmaakregel in

  1. In het Nieuwe opmaakregel dialoogvenster, kies Gebruik een formule om te bepalen welke cellen moeten worden opgemaakt van het Selecteer een regeltype keuzelijst.
  2. In het Formatteer waarden waar deze formule waar is Voer in het vak een van deze formules in. In dit voorbeeld zal ik de derde formule toepassen om de actieve rij en kolom te markeren.
    Actieve rij markeren: 
    =CELL("row")=ROW()
    Om de actieve kolom te markeren: 
    =CELL("col")=COLUMN()
    Actieve rij en kolom markeren: 
    =OR(CELL("row")=ROW(), CELL("col")= COLUMN())
  3. Dan klikken Formaat knop.
  4. In de volgende Cellen opmaken dialoogvenster onder het Vulling tabblad, kies een kleur om de actieve rij en kolom te markeren zoals je nodig hebt, zie screenshot:
  5. Dan klikken OK > OK om de dialoogvensters te sluiten.

Resultaat:

Nu kunt u zien dat de hele kolom en rij van cel A1 in één keer zijn gemarkeerd. Om deze markering op een andere cel toe te passen, klikt u eenvoudigweg op de gewenste cel en drukt u op de F9 -toets om het blad te vernieuwen, waardoor vervolgens de hele kolom en rij van de nieuw geselecteerde cel worden gemarkeerd.

Tips: 
  • Hoewel de Conditionele Opmaak-aanpak voor markeren in Excel een oplossing biedt, is deze niet zo naadloos als het gebruik ervan VBA en Raster focus functie. Deze methode vereist een handmatige herberekening van het blad (bewerkstelligd door op de knop te drukken F9 sleutel).
    Om automatische herberekening van uw werkblad mogelijk te maken, kunt u een eenvoudige VBA-code opnemen in de codemodule van uw doelblad. Dit automatiseert het vernieuwingsproces, waardoor de markering onmiddellijk wordt bijgewerkt wanneer u verschillende cellen selecteert zonder op de knop te drukken F9 sleutel. Klik met de rechtermuisknop op de bladnaam en kies vervolgens Bekijk code vanuit het contextmenu. Kopieer en plak vervolgens de volgende code in de bladmodule: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Target.Calculate
End Sub
  • De Voorwaardelijke Opmaak behoudt de bestaande opmaak die u handmatig op uw werkblad hebt toegepast.
  • Het is bekend dat voorwaardelijke opmaak vluchtig is, vooral wanneer het wordt toegepast op zeer grote datasets. Het uitgebreide gebruik ervan kan mogelijk de prestaties van uw werkmap vertragen, waardoor de efficiëntie van de gegevensverwerking en navigatie wordt beïnvloed.
  • De CEL-functie is alleen beschikbaar in Excel-versies 2007 en hoger, deze methode is niet compatibel met eerdere versies van Excel.

Vergelijking van de bovenstaande methoden

Kenmerk VBA-code Conditionele opmaak Kutools for Excel
Behoud de achtergrondkleur van de cel Nee Ja Ja
Ondersteunt ongedaan maken Nee Ja Ja
Stabiel in grote datasets Nee Nee Ja
Bruikbaar in beveiligde bladen Nee Ja Ja
Geldt voor alle geopende werkmappen Alleen huidig ​​blad Alleen huidig ​​blad Alle geopende werkmappen
Vereist handmatige vernieuwing (F9) Nee Ja Nee

Daarmee is onze gids afgesloten over hoe u de kolom en rij van een geselecteerde cel in Excel kunt markeren. Als u geïnteresseerd bent in meer Excel-tips en -trucs, biedt onze website duizenden tutorials aan klik hier om ze te openen. Bedankt voor het lezen en we kijken ernaar uit u in de toekomst van meer nuttige informatie te voorzien!

Gerelateerde artikelen:

  • Markeer automatisch rij en kolom van actieve cel
  • Wanneer u een groot werkblad met talloze gegevens bekijkt, wilt u misschien de rij en kolom van de geselecteerde cel markeren, zodat u de gegevens gemakkelijk en intuïtief kunt lezen om te voorkomen dat u ze verkeerd leest. Hier kan ik u enkele interessante trucs voorstellen om de rij en kolom van de huidige cel te markeren, wanneer de cel wordt gewijzigd, worden de kolom en rij van de nieuwe cel automatisch gemarkeerd.
  • Markeer elke andere rij of kolom in Excel
  • In een groot werkblad verbetert het markeren of vullen van elke andere of elke zoveelste rij of kolom de zichtbaarheid en leesbaarheid van de gegevens. Het zorgt er niet alleen voor dat het werkblad er netter uitziet, maar helpt u ook de gegevens sneller te begrijpen. In dit artikel begeleiden we u bij verschillende methoden om elke andere of zoveelste rij of kolom te arceren, zodat u uw gegevens op een aantrekkelijkere en eenvoudigere manier kunt presenteren.
  • Markeer de hele/hele rij tijdens het scrollen
  • Als u een groot werkblad met meerdere kolommen heeft, is het moeilijk voor u om de gegevens in die rij te onderscheiden. In dit geval kunt u de hele rij met actieve cellen markeren, zodat u snel en gemakkelijk de gegevens in die rij kunt bekijken wanneer u naar beneden scrolt door de horizontale schuifbalk. In dit artikel zal ik het hebben over enkele trucs om dit probleem op te lossen .
  • Markeer rijen op basis van de vervolgkeuzelijst
  • In dit artikel wordt besproken hoe rijen kunnen worden gemarkeerd op basis van de vervolgkeuzelijst, neem bijvoorbeeld de volgende schermafbeelding, wanneer ik 'In uitvoering' selecteer in de vervolgkeuzelijst in kolom E, moet ik deze rij met een rode kleur markeren, als ik selecteer "Voltooid" in de vervolgkeuzelijst. Ik moet deze rij met een blauwe kleur markeren, en wanneer ik "Niet gestart" selecteer, wordt een groene kleur gebruikt om de rij te markeren.
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