Gå til hovedindhold

Hvordan kan jeg nemt vende valg af valgte områder i Excel?

Antag, at du har valgt nogle specifikke celler i et interval, og nu skal du invertere markeringen: fravælger de valgte celler, og vælg de andre celler. Se følgende skærmbillede:

Selvfølgelig kan du vende valget manuelt. Men denne artikel giver dig nogle søde tricks til hurtigt at vende valg:

Omvendte valg i Excel med VBA

Omvendt valg i Excel med Kutools til Excel


pil blå højre boble Omvendte valg i Excel med VBA

Brug af VBA-makro gør det nemt for dig at vende markeringer i arbejdsområdet i det aktive regneark.

Step1: Vælg de celler, du vil vende dem om.

Step2: Hold nede andre + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

Step3: Klik indsatte > Moduler, og indsæt følgende makro i modulvinduet.

VBA til inverterende valg

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: Tryk på F5 nøgle til at køre denne makro. Derefter vises en dialogboks, hvor du kan vælge nogle celler, som du ikke behøver valgt i resultatet. Se skærmbillede:




Trin 5: Klik OK, og vælg et område, som du vil vende om til markeringen i en anden pop op-dialogboks. Se skærmbillede:




Trin 6: Klik OK. du kan se, at valget er vendt.


Bemærkninger: Denne VBA arbejder også i et tomt regneark.


pil blå højre boble Omvendte valg i Excel med Kutools til Excel

Du vil måske hurtigt vende ethvert valg i Excel, det Vælg Range Helper værktøjer til Kutools til Excel kan hjælpe dig med hurtigt at vende om i Excel. Dette trick gør det nemt for dig at vende om valg i hele projektmappen.

Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu.

Step1: Vælg de celler, du vil vende dem om.

Step2: Klik på Kutools > Vælg Værktøjer > Vælg Range Helper ....

Step3: I Vælg Range Helper dialogboksen, skal du kontrollere Omvendt valg valgmulighed.

Step4: Træk derefter musen for at vælge det område, du vil vende valgene til. Når du slipper musen, er de valgte celler fravalgt, og de ikke-valgte celler er valgt inden for området på én gang.

Step5: Og luk derefter Vælg Range Helper dialog boks.

For mere detaljeret information om Vælg Range Helper, Kan du besøge Vælg beskrivelse af Range Helper-funktion.


Relaterede 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations