Barvanje presečišča

Veliko ljudi uporablja Excel le za kratke izračune, izdelavo računov, ipd. Vendar je program namenjen delu z veliko količino podatkov, kar privede do velike zmede na zaslonu. Velikokrat ne vemo kam določen podatek spada. V takem primeru je zelo uporabna naslednja kratka koda:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub


    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    
    With Target
        .EntireColumn.Interior.Color = vbCyan
        .EntireRow.Interior.Color = vbCyan
    End With
    
    Application.ScreenUpdating = True


End Sub


Kodo skopiramo (Ctrl+C), v delovnem zvezku kliknemo z desno miškino tipko na zavihek lista, v katerem jo želimo uporabiti in izberemo opcijo "Ogled kode". 

Odpre se urejevalnik VBA, kamor prilepimo zgornjo kodo (Ctrl+V) in okno zapremo (Alt+Q).

Ko sedaj kliknemo v celico, se na zaslonu obarva križ, katerega presečišče je izbrana celica.