Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe rij en kolom van actieve cellen automatisch in Excel te markeren?

doc markeer row1

Wanneer u een groot werkblad met veel gegevens bekijkt, wilt u misschien de rij en kolom van de geselecteerde cel markeren, zodat u de gegevens eenvoudig en intuïtief kunt lezen om te voorkomen dat ze verkeerd worden gelezen. Hier kan ik enkele interessante trucs introduceren 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 als volgende screenshots:


Markeer rij en kolom automatisch van geselecteerde cel met VBA-code

Eén klik om rij en kolom van geselecteerde cel te markeren


Eén klik om de rij en kolom van de geselecteerde cel in Excel te markeren:

Kutools for Excel's Lay-out lezen hulpprogramma helpt u snel de rij en kolom van de geselecteerde cel in Excel te markeren. Zie screenshot:

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download de gratis proefversie nu!

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

Markeer rij en kolom automatisch van geselecteerde cel met VBA-code

Met de volgende VBA-code kunt u automatisch de volledige kolom en rij van de huidige cel in een werkblad markeren. Dit kunt u doen met de volgende stappen:

1. Open het werkblad dat u automatisch de rij en kolom van de actieve cel markeert, klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het contextmenu.

2. Kopieer en plak vervolgens de volgende VBA-code in het lege codevenster:

VBA-code: rij en kolom automatisch markeren van geselecteerde cel

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Static xRow
Static xColumn
If xColumn <> "" Then
    With Columns(xColumn).Interior
        .ColorIndex = xlNone
    End With
    With Rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

doc-reading-layout3

3. Druk vervolgens op anders + Q toetsen samen om terug te keren naar het werkblad, nu wanneer u een cel selecteert, is de hele rij en kolom van deze cel gemarkeerd. En het zal dynamisch worden verplaatst als de geselecteerde cel verandert.

doc-reading-layout4

Opmerkingen:

1. In de bovenstaande code kunt u wijzigen .ColorIndex = 6 kleur naar andere kleuren die je leuk vindt.

2. Deze VBA-code is alleen van toepassing op het werkblad dat u kiest in de bovenstaande stap 2.

3. Als u de kolom en rij van de geselecteerde cel niet opnieuw wilt markeren, moet u de bovenstaande VBA verwijderen en geen vulling instellen voor de geselecteerde rij en kolom door te klikken op Home > Opvulkleur > Geen vulling.

4. Als er enkele gekleurde cellen in uw werkblad staan, gaat de kleur verloren wanneer u op de cel klikt en vervolgens naar een andere cel gaat.


Markeer de rij en kolom van de geselecteerde cel automatisch met Kutools voor Excel

Als u volledige rijen en kolommen van een celbereik wilt markeren, is de code niet beschikbaar, maar met de Kutools for Excel's Lay-out lezen Kijk, je kunt dit probleem snel oplossen.

Kutools for Excel : met meer dan 300 handige Excel invoegtoepassingen, gratis om te proberen zonder beperking in 60-dagen.

1. Selecteer een cel of een bereik van cellen in uw werkblad. Klik op Kutools > Lay-out lezen om deze functie te activeren. En de volledige kolommen en rijen van de geselecteerde cellen worden onmiddellijk gemarkeerd. En het zal dynamisch worden verplaatst als de geselecteerde cellen veranderen. Zie screenshots:

Tip: U kunt hiervoor een aantal attributen instellen Lay-out lezen functie in de Lay-outinstellingen lezen dialoogvenster, klik alstublieft Kutools > lezing > Lay-outinstellingen lezen om de te openen Lay-outinstellingen lezen dialoog venster.

doc markeer row1

U kunt rij van geselecteerde cel alleen markeren door de. Te selecteren Rechte lijn optie:

doc markeer row1

U kunt alleen de kolom van de geselecteerde cel markeren door de Verticale lijn optie:

doc markeer row1

Opmerkingen:

1. U kunt dit hulpprogramma annuleren door het vinkje te verwijderen Lay-out lezen voor lezing keuzelijst.

2. Dit Lay-outweergave lezen functie wordt toegepast op alle werkbladen in uw werkmap.

3. Dit Lay-outweergave lezen functie wordt uitgeschakeld wanneer u de werkmap de volgende keer start.


Office Tab - Browsen met tabbladen, bewerken en beheren van werkmappen in Excel:

Office-tabblad brengt de interface met tabbladen zoals te zien in webbrowsers zoals Google Chrome, nieuwe versies van Internet Explorer en Firefox naar Microsoft Excel. Het zal een tijdbesparende tool zijn en onherroepelijk in uw werk. Zie onderstaande demo:

Klik voor gratis proefversie van Office Tab!

Office-tabblad voor Excel


Eén klik om rij en kolom van geselecteerde cel te markeren

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 60-dagen. Download de gratis proefversie nu!



Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Shaikh Wasim · 6 months ago
    When i try the above code to highlight row & column, its nt working, also i tried another code which worked as i found it in below comments which is

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 22
    Target.EntireColumn.Interior.ColorIndex = 22

    it worked but cleared all my cell colors to white & highlight the active cell, Please help me on this @crystal
    • To post as a guest, your comment is unpublished.
      crystal · 6 months ago
      Hi Shaikh Wasim,
      The VBA code in the post works well in my case. Which Excel version do you use? As the "color cleared" problem you memtioned, I can't help to solve it yet. Way not try the Reading Layout utility of Kutools for Excel? It won't make any changes to your worksheet. Thanks for commenting.
  • To post as a guest, your comment is unpublished.
    Alok Ghosh · 8 months ago
    After pasting the VBA code I saved as Add-In but not working. I want to change the color of the intersection cell also...
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Good Day,
      You can change the highlight color by changing the .ColorIndex value. But the color of the intersection cell can't be changed alone.
  • To post as a guest, your comment is unpublished.
    Urska · 1 years ago
    Above VBA code did not work. I've tried the below code for highlighting both the selected column and row. It's shorter and easier



    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 22
    Target.EntireColumn.Interior.ColorIndex = 22


    End Sub
  • To post as a guest, your comment is unpublished.
    D · 1 years ago
    How can I change the VBA so the text color changes when the row is highlighted?



    Also, if you want to just highlight a row without the column.. Here is the code changes.



    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    'Update 20140318 'Updated By dlsodders for
    'Select Just Row
    Static xRow

    If xRow <> "" Then
    With Rows(xRow).Interior
    .ColorIndex = xlNone
    End With
    End If
    pRow = Selection.Row

    xRow = pRow

    With Rows(pRow).Interior
    .ColorIndex = 10
    .Pattern = xlSolid
    End With
    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      The following code can help you change the text color when the row is highlighted.

      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      Static xRow
      Static xCol
      Dim pRow As Long
      Dim pCol As Long
      If Target.Count = 1 Then
      If xRow <> "" Then
      With Rows(xRow)
      .Interior.ColorIndex = xlNone
      .Font.ColorIndex = xlAutomatic
      End With
      End If
      pRow = Selection.Row
      pCol = Selection.Font.ColorIndex
      xRow = pRow
      xCol = pCol
      With Rows(pRow)
      .Interior.ColorIndex = 10
      .Interior.Pattern = xlSolid
      .Font.Color = -16776961
      End With
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    David · 1 years ago
    Thank you for posting this! It's very useful in check reconciliation via spreadsheet.
  • To post as a guest, your comment is unpublished.
    Jay · 1 years ago
    The VBA to highlight a single cell works but this one does not.
  • To post as a guest, your comment is unpublished.
    nolan · 1 years ago
    how do you prevent the undo & redo buttons from being deleted with this macro not using the Kutools
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Sorry about that. The undo & redo problem in the macro can't be solved.
  • To post as a guest, your comment is unpublished.
    David · 2 years ago
    I changed your code from highlighting the interior to making red borders.
    .BorderAround Weight:=xlThick, Color:=vbRed
    I select a cell, the borders turns red. Great. I copy, select another cell, those borders turn red, but the clipboard clears. I cannot figure out how to use borders, and keep the copy/paste functionality.
    Any suggestions?
  • To post as a guest, your comment is unpublished.
    Chienph · 2 years ago
    Hi. How can i high light entire row if one of cell is merge. I see kutool can make a line across a merge cell. Pl help me this solution
  • To post as a guest, your comment is unpublished.
    Vicente · 3 years ago
    Great article!. Life saver for me.
    And if you want the actual cell to be highlighted in yellow and row/cells in grey, this is the code:

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    'Update 20151216
    Static xRow
    Static xColumn
    If xColumn "" Then
    With Columns(xColumn).Interior
    .ColorIndex = xlNone
    End With
    With Rows(xRow).Interior
    .ColorIndex = xlNone
    End With
    End If
    pRow = Selection.Row
    pColumn = Selection.Column
    xRow = pRow
    xColumn = pColumn
    With Columns(pColumn).Interior
    .ColorIndex = 15
    .Pattern = xlSolid
    End With
    With Rows(pRow).Interior
    .ColorIndex = 15
    .Pattern = xlSolid
    End With
    Selection.Interior.ColorIndex = 6
    End Sub
    • To post as a guest, your comment is unpublished.
      Kamran · 3 years ago
      Correct code as follows:

      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      'Update 20151216
      Static xRow
      Static xColumn
      If xColumn "" Then
      With Columns(xColumn).Interior
      .ColorIndex = xlNone
      End With
      With Rows(xRow).Interior
      .ColorIndex = xlNone
      End With
      End If
      pRow = Selection.Row
      pColumn = Selection.Column
      xRow = pRow
      xColumn = pColumn
      With Columns(pColumn).Interior
      .ColorIndex = 15
      .Pattern = xlSolid
      End With
      With Rows(pRow).Interior
      .ColorIndex = 15
      .Pattern = xlSolid
      End With
      Selection.Interior.ColorIndex = 6
      End Sub


      [quote name="Vicente"]Great article!. Life saver for me.
      And if you want the actual cell to be highlighted in yellow and row/cells in grey, this is the code:

      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      'Update 20151216
      Static xRow
      Static xColumn
      If xColumn "" Then
      With Columns(xColumn).Interior
      .ColorIndex = xlNone
      End With
      With Rows(xRow).Interior
      .ColorIndex = xlNone
      End With
      End If
      pRow = Selection.Row
      pColumn = Selection.Column
      xRow = pRow
      xColumn = pColumn
      With Columns(pColumn).Interior
      .ColorIndex = 15
      .Pattern = xlSolid
      End With
      With Rows(pRow).Interior
      .ColorIndex = 15
      .Pattern = xlSolid
      End With
      Selection.Interior.ColorIndex = 6
      End Sub[/quote]
  • To post as a guest, your comment is unpublished.
    KSV · 4 years ago
    HOW CAN I MAKE IT POSSIBLE IF HAVE SHEET THAT IS ALREADY COLORED.
  • To post as a guest, your comment is unpublished.
    mike_thomas · 4 years ago
    This works if you don't have colors not in conditional formatting. Just add two more with loops.

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    'Update 20140318
    Static xRow
    Static xColumn
    If xColumn "" Then
    With Rows(xRow).Interior
    .ColorIndex = xlNone
    End With
    End If
    pRow = Selection.Row
    xRow = pRow
    With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    With Rows(pRow - 1).Interior
    .ColorIndex = 0
    .Pattern = x1Solid
    End With
    With Rows(pRow + 1).Interior
    .ColorIndex = 0
    .Pattern = x1Solid
    End With
    End Sub
  • To post as a guest, your comment is unpublished.
    SaltWater · 4 years ago
    When I reopen my workbook highlighted column from the prior session remains - and does change as I move around the worksheet in a new session. Is there a way to "clear" the prior session each time the workbook is opened?
  • To post as a guest, your comment is unpublished.
    Aditya · 4 years ago
    Bravo..exactly what I was looking for.....thanks a lot!!
  • To post as a guest, your comment is unpublished.
    listermoss · 4 years ago
    This is the code I used for just the row (grey highlight):

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    'Update 20140318
    Static xRow
    If xRow "" Then
    With Rows(xRow).Interior
    .ColorIndex = xlNone
    End With
    End If
    pRow = Selection.Row
    xRow = pRow
    With Rows(pRow).Interior
    .ColorIndex = 15
    .Pattern = xlSolid
    End With


    End Sub
    • To post as a guest, your comment is unpublished.
      Christina · 2 years ago
      Copying and pasting your code did not work properly, but after fixing the syntax errors it worked amazingly! Thank you.
      Here is the working code for highlighting (yellow) the row only:

      Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

      'Update 20140318
      Static xRow
      If xRow "" Then
      With Rows(xRow).Interior
      .ColorIndex = xlNone
      End With
      End If
      pRow = Selection.Row
      xRow = pRow
      With Rows(pRow).Interior
      .ColorIndex = 6
      .Pattern = xlSolid
      End With
      End Sub
  • To post as a guest, your comment is unpublished.
    betakos · 4 years ago
    how can i stop it if i want it to stop??
  • To post as a guest, your comment is unpublished.
    Ton Hermes · 4 years ago
    How can I change the colors of the bars?
    Thnaks for this great solution.

    Regards, Ton
  • To post as a guest, your comment is unpublished.
    Mac · 4 years ago
    Any plans to add Mac functionality for Kutools?
  • To post as a guest, your comment is unpublished.
    Charles · 4 years ago
    To keep your cell color you will have to create a Conditional Formatting for the cells.
  • To post as a guest, your comment is unpublished.
    Will · 4 years ago
    Just what I was looking for. Thank you!
  • To post as a guest, your comment is unpublished.
    vipe · 5 years ago
    This works brilliantly. Is there a way of making it not show up on printing?
  • To post as a guest, your comment is unpublished.
    Matthewwwww · 5 years ago
    Hi! I really like this code but like Suresh said, it removes original cell colors! How can I keep my original cell colors?? Please respond, thanks!
  • To post as a guest, your comment is unpublished.
    felix · 5 years ago
    Hi, after putting in the code, the "undo" function no longer works. Can someone help?
  • To post as a guest, your comment is unpublished.
    Suresh Singh · 5 years ago
    Hi,

    the given code works fine for highlighting the row and coloumn of active cell. but the original cell colour along with coloumn and rows colour settings are lost. How to overcome this?
    • To post as a guest, your comment is unpublished.
      Janet D · 3 years ago
      This option is now available to non-coders in 2010 as long as you have the Developer tab.

      Under Developer, click Properties.

      Set EnableOutlining to True.

      Limitation:
      This appears to only apply to one worksheet at a time, although easy to set for other worksheets by clicking on tabs at bottom (while leaving the Properties dialog box open).

      Why Excel does not make this available under Options, well, it is Microsoft.
    • To post as a guest, your comment is unpublished.
      betakos · 4 years ago
      i use insert table to my data and it does not change original colouring
    • To post as a guest, your comment is unpublished.
      RaveFromDave · 4 years ago
      Here's my version for highlighting the current row (from A to AK). To avoid wiping out cell colouring I use a red border instead...plus it restores my preferred border to the row just left.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)

      Dim lRow As Long, lCol As Long
      Static lPrevRow As Long

      'Restore previous active row to...light blue dotted line
      If lPrevRow > 0 Then
      Range("A" & lPrevRow, "AK" & lPrevRow).BorderAround Weight:=xlHairline, Color:=RGB(162, 200, 255)
      End If

      'Highlight current row with a red border
      lRow = Target.Row
      Range("A" & lRow, "AK" & lRow).BorderAround Weight:=xlThin, Color:=RGB(255, 0, 0)
      lPrevRow = lRow

      End Sub
      • To post as a guest, your comment is unpublished.
        Randy · 2 years ago
        Could not get this to work - please help, thanks :-)
        • To post as a guest, your comment is unpublished.
          Bozo · 2 years ago
          "Please help" - do you expect an answer with such a vague request, and no effort to explain the problem?
      • To post as a guest, your comment is unpublished.
        MARIO · 3 years ago
        HI I HAVE THE SAME PROBLEM WITH SURESH
        CAN YOU PLEASE PROVIDE ME WITH THE WHOLE AMENDED CODE FOR NOT WIPING THE ORIGINAL CELL COLOUR

        I'M USING THIS:

        Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        'Update 20140318
        Static xRow
        Static xColumn
        If xColumn "" Then
        With Columns(xColumn).Interior
        .ColorIndex = xlNone
        End With
        With Rows(xRow).Interior
        .ColorIndex = xlNone
        End With
        End If
        pRow = Selection.Row
        pColumn = Selection.Column
        xRow = pRow
        xColumn = pColumn
        With Columns(pColumn).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        End With
        With Rows(pRow).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        End With
        End Sub
      • To post as a guest, your comment is unpublished.
        calixco · 3 years ago
        you are a geniuos

        now, how abot rows and columsn?
      • To post as a guest, your comment is unpublished.
        farfan · 4 years ago
        Oh! man, works like a charm!!! great