Gå til hovedindhold

Hvordan markerer du hurtigt krydshår med aktiv celle i Excel?

Hvis der er flere kolonner og rækkedata i et regneark, har du billedet, når du aktiverer en celle, dens relative kolonne og række fremhæves? Klik for eksempel på F11, og kolonnen F og række 11 fremhæves på samme tid som nedenstående skærmbillede vist. Her introducerer denne artikel de hurtige tricks, der kan hjælpe dig med at markere den aktive celle i Excel.
doc trådkors fremhævning 1

Kryds aktiv celle med VBA

Kryds fremhæv aktiv celle med Kutools til Excel god idé3


Kryds aktiv celle med VBA

I Excel er der ingen indbygget funktion, der kan hjælpe dig med at markere aktiv celle med hårkors, men her introducerer jeg en VBA kan hjælpe dig med at krydse fremhæve rækken og kolonnen i den aktive celle.

1. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. Derefter i Projekt dobbeltklik på det ark, du vil anvende denne VBA, og kopier og indsæt derefter VBA-koden under det rigtige script. Se skærmbillede:

Tip: Hvis projektruden er skjult, skal du klikke på Specifikation > Projekt Explorer in Microsoft Visual Basic til applikationer vindue for at vise det.

VBA: Korshår fremhæver aktiv celle.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice6/1/2016
    Application.ScreenUpdating = False
    With Target
        .Worksheet.Cells.Interior.ColorIndex = 0
        .EntireRow.Interior.Color = vbYellow
        .EntireColumn.Interior.Color = vbYellow
    End With
    Application.ScreenUpdating = True
End Sub
doc trådkors fremhævning 2

3. Gem og luk derefter VBA, og nu når du aktiverer en celle, fremhæves dens relative række og kolonne.
doc trådkors fremhævning 3

Hvis du kun vil fremhæve den aktive celle, kan du bruge følgende VBA.

VBA: Fremhæv den aktive celle, du vælger

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice6/1/2016
    Application.ScreenUpdating = False
    Target.Worksheet.Cells.Interior.ColorIndex = 0
    Target.Interior.Color = vbYellow
    Application.ScreenUpdating = True
End Sub

Bemærk: I ovenstående VBA-koder kan ColorIndex ændres, som du vil.


Kryds fremhæv aktiv celle med Kutools til Excel

Hvis du ikke er fortrolig med VBA, kan du prøve at ansøge Kutools til Excel's Læsning Layout værktøj til hurtigt at markere aktiv celle.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

Klik Kutools > Læsning Layout at aktivere Læsning Layout hjælpeprogram. Se skærmbillede:
doc trådkors fremhævning 4

Bemærk:

1. klik Kutools > Læsning Layout igen for at deaktivere dette værktøj.

2. klik Kutools > Læsning Layout > Indstillinger for læsning af layout for at specificere de former, stilarter og farver, som du har brug for i Indstillinger for læsning af layout dialog. Se skærmbillede:
doc trådkors fremhævning 5

Tip: Dette værktøj gælder for hele projektmappen.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. Can you please help with a VBA Code that doesn't remove the cell formatting or the previous colored cells.
This comment was minimized by the moderator on the site
Hi, the VBA code cannot satisfy your need, I suggest you try Kutools for Excel.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations