Gå til hovedindhold

Hvordan vælges og fremhæves diagonale celler i Excel?

I Excel skal vi normalt vælge flere celler, men har du nogensinde prøvet at markere og fremhæve de diagonale celler i et område? I denne artikel vil jeg introducere en VBA-kode til hurtigt at vælge diagonale celler for dig.

Vælg og fremhæv diagonale celler


Vælg og fremhæv diagonale celler

For at vælge diagonale celler kan du bruge en makrokode.

1. Vælg den celle, du vil starte diagonalvalget, og tryk på Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler og indsæt nedenstående kode i scriptet.

VBA: Vælg diagonale celler

Sub selectDiag()
'UpdatebyExtendoffice20171128
    Dim I As Long
    Dim xCount As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = ActiveCell
    If xRg Is Nothing Then Exit Sub
    xCount = Val(InputBox("How many cells do you want to select diagonally?", "KuTools For Excel"))
    If xCount = 0 Then Exit Sub
    For I = 1 To (xCount - 1)
        Set xRg = Union(xRg, ActiveCell.Offset(I, I))
    Next I
    xRg.Select
End Sub

3. Trykke F5 tasten og en dialogboks dukker op for at minde dig om at vælge celler, skriv antallet af diagonale celler du vil markere i tekstboksen.
doc vælg diagonal 1

4. klik OK. De diagonale celler i markeringen er valgt.
doc vælg diagonal 2

Derefter kan du fremhæve cellerne med baggrundsfarven.
doc vælg diagonal 3



Relative artikler

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
Your comments are not working.
This comment was minimized by the moderator on the site
Oh well, looks like comments are working after all.

Thank you for this post. It works great. I have tried to tweak the code to allow me to select a certain number of cells down, and then across.

For example:

A1,
A2, B2,
A3, B3, C3,
       B4, C4,
             C5


Is there a way to accomplish this?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations