Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om die ry en kolom van aktiewe sel in Excel outomaties te verlig?

doc highlight row1

As jy 'n groot werkblad met talle data bekyk, kan jy die ry en kolom van die seleksie selekteer, sodat jy die data maklik en intuïtief kan lees om dit te mislees. Hier kan ek jou 'n paar interessante truuks voorstel om die ry en kolom van die huidige sel uit te lig. Wanneer die sel verander word, word die kolom en ry van die nuwe sel outomaties gemerk as volgende skermkiekies:


Outomaties verlig ry en kolom van geselekteerde sel met VBA-kode

Een kliek om die ry en kolom van geselekteerde sel te verlig


Een kliek om die ry en kolom van geselekteerde sel in Excel te verlig:

Kutools for Excel's Leesuitleg nut help jou om vinnig ry en kolom van geselekteerde sel in Excel uit te lig. Sien skermkiekie:

Kutools for Excel: met meer as 200 handige Excel invoegtoepassings, kan u sonder beperking in 60 dae probeer. Laai die gratis proeflopie nou af!


Outomaties verlig ry en kolom van geselekteerde sel met VBA-kode

Die volgende VBA-kode kan u help om die hele kolom en ry van die huidige sel outomaties in werkblad te verlig, doen asseblief met die volgende stappe:

1. Open die werkblad wat jy die ry en kolom van aktiewe sel outomaties sal merk, regs op die bladblad en kies Bekyk Kode uit die konteks kieslys.

2. Kopieer en plak dan die volgende VBA-kode in die oop kode-venster:

VBA-kode: outomaties verlig ry en kolom van geselekteerde sel

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-lees-layout3

3. Druk dan die alt + Q sleutels saam om terug te keer na die werkblad, nou as jy 'n sel selekteer, is die hele ry en kolom van hierdie sel uitgelig. En dit sal dinamies verskuif word as die geselekteerde sel verander.

doc-lees-layout4

Notas:

1. In bogenoemde kode kan u verander . KolomIndex = 6 kleur na ander kleur wat jy wil.

2. Hierdie VBA-kode is slegs van toepassing op die werkblad wat u in bogenoemde stap 2 kies.

3. As jy nie weer die kolom en ry van die geselekteerde sel wil uitlig nie, moet jy die bogenoemde VBA uitvee en geen vulling op die gekose ry en kolom plaas deur op te klik Tuis > Vul kleur > Geen vul.

4. As daar 'n paar gekleurde selle in jou werkkaart is, sal die kleur verlore raak as jy op die sel kliek en dan na 'n ander sel beweeg.


Outomaties verlig ry en kolom van geselekteerde sel met Kutools vir Excel

As u die hele rye en kolomme van 'n reeks selle wil beklemtoon, sal die kode nie beskikbaar wees nie, maar met die Kutools for Excel'N Leesuitleg Kyk, jy kan hierdie probleem vinnig oplos.

Kutools for Excel : met meer as 300 handige Excel invoegtoepassings, vry om sonder beperking in 60 dae te probeer.

1. Kies 'n sel of 'n reeks selle in jou werkblad. Klik Kutools > Leesuitleg om hierdie kenmerk te aktiveer. En die hele kolomme en rye van die geselekteerde selle word dadelik uitgelig. En dit sal dinamies verskuif word as die geselekteerde selle verander. Sien skermkiekies:

tip: Jy kan sekere attribusies hiervoor stel Leesuitleg funksie in die Lees uitleg instellings dialoog, kliek asseblief Kutools > Lees > Lees uitleg instellings om die Lees uitleg instellings dialoog boks.

doc highlight row1

Jy kan slegs ry van geselekteerde sel verlig deur die Reguit lyn opsie:

doc highlight row1

U kan slegs kolom van geselekteerde sel verlig deur die Vertikale lyn opsie:

doc highlight row1

Notas:

1. U kan hierdie nut kanselleer deur die Leesuitleg vir Lees drop down list.

2. Dit Leesuitleg-aansig funksie word toegepas op al die werkkaarte in jou werkboek.

3. Dit Leesuitleg-aansig funksie sal gedeaktiveer word wanneer jy die volgende keer die werkboek begin.


Office Tab - Tabbed navigeer, redigering en bestuur van werkboeke in Excel:

Office Tab bring die oortjie koppelvlak soos gesien in webblaaiers soos Google Chrome, Internet Explorer nuwe weergawes en Firefox na Microsoft Excel. Dit sal 'n tydbesparende hulpmiddel wees en onvervangbaar in jou werk. Sien onderstaande demo:

Kliek vir gratis toets van die Office Tab!

Office Tab vir Excel


Een kliek om die ry en kolom van geselekteerde sel te verlig

Kutools for Excel sluit meer as 300 handige Excel-gereedskap in. Gratis om sonder beperking in 60 dae te probeer. Laai nou die gratis proeflopie af!




Aanbevole Produktiviteitsinstrumente

Office Tab

goud star1 Bring handige oortjies na Excel en ander Office-sagteware, net soos Chrome, Firefox en nuwe Internet Explorer.

Kutools for Excel

goud star1 Amazing! Verhoog jou produktiwiteit in 5 minute. Geen spesiale vaardighede nodig nie, bespaar twee uur elke dag!

goud star1 300 Nuwe funksies vir Excel, maak Excel baie maklik en kragtig:

  • Voeg sel / Rye / Kolomme saam sonder om data te verloor.
  • Kombineer en konsolideer veelvuldige blaaie en werkboeke.
  • Vergelyk waardes, Kopieer verskeie reekse, skakel teks na datum, Eenheid en Geld Omskakeling.
  • Tel deur kleure, plasingsubtotale, gevorderde sorteer en superfilter,
  • Meer Kies / Invoeg / Skrap / Teks / Formaat / Skakel / Kommentaar / Werkboeke / Werkkaarte Gereedskap ...

Skermskoot van Kutools vir Excel

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.
    Suresh Singh · 4 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 · 1 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 · 2 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 · 3 years ago
        Oh! man, works like a charm!!! great