Dynamisk markering av
aktiv rad och kolumn

Om vi arbetar med större datatabeller kan det vara svårt att visuellt positionera sig i tabellerna. Ett sätt är att färglägga den aktiva raden och kolumnen men endast när markören är inom tabellområdet och inom tabellområdet.

Följande bild visar hur det kan se när exempelkoden är infogad i ett arbetsblad modul:

(Som framgår av bilden så markeras rad- och kolumnhuvud i den senaste versionen av Excel)

Namnet Data i koden nedan refererar till cellområdet B2:F16.

Option Explicit  Private Sub Worksheet_SelectionChange(ByVal Target As Range)    '© 2002 Alla rättigheter XL-Dennis     Set Target = Range("Data")     'Återställer cellområdet till ingen färg.    Target.Interior.ColorIndex = xlNone      If Intersect(Target, ActiveCell) Is Nothing Then Exit Sub      'Med start från den aktiva cellen så markeras den aktiva raden t o m till B-kolumnen.    Range(Cells(ActiveCell.Row, "B"), Cells(ActiveCell.Row, _          ActiveCell.Column)).Interior.ColorIndex = 40      'Med start från den aktiva cellen så markeras den aktiva kolumnen t o m till rad 2.    Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(2, _          ActiveCell.Column)).Interior.ColorIndex = 40 End Sub