Hoppa till huvudinnehåll

Hur kan jag enkelt vända val av valda intervall i Excel?

Anta att du har valt några specifika celler i ett intervall och nu måste du invertera markeringen: avmarkerade de markerade cellerna och välj de andra cellerna. Se följande skärmdump:

Naturligtvis kan du vända valet manuellt. Men den här artikeln kommer att ge dig några söta knep för att vända val snabbt:

Omvänd val i Excel med VBA

Omvänd val i Excel med Kutools för Excel


pil blå höger bubbla Omvänd val i Excel med VBA

Genom att använda VBA-makro kommer du att arbeta lätt för att vända val i arbetsområdet för det aktiva kalkylbladet.

Step1: Markera de celler som du vill vända på dem.

Step2: Håll ner andra + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

Step3: Klicka på Insert > Modulernaoch klistra in följande makro i modulfönstret.

VBA för invertering av val

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: Tryck på F5 för att köra detta makro. Sedan visas en dialogruta där du kan välja några celler som du inte behöver markera i resultatet. Se skärmdump:




steg 5: Klicka på OK, och välj ett intervall som du vill vända på valet i en annan popup-dialogruta. Se skärmdump:




steg 6: Klicka på OK. du kan se att valet har ändrats.


Anmärkningar: Denna VBA fungerar också i ett tomt kalkylblad.


pil blå höger bubbla Omvända val i Excel med Kutools för Excel

Du kanske snabbt vill vända valet i Excel, den Välj Range Helper verktyg för Kutools för Excel kan hjälpa dig att snabbt vända urvalet i Excel. Det här tricket gör det enkelt för dig att vända alla val i hela arbetsboken.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu.

Step1: Markera de celler som du vill vända på dem.

Step2: Klicka på Kutools > Välj Verktyg > Välj Range Helper ....

Step3: I Välj Range Helper dialogrutan, kolla på Omvändt val alternativ.

Step4: Dra sedan musen för att välja det område som du vill vända på valen. När du släpper musen har de markerade cellerna avmarkerats och de omarkerade cellerna har markerats från intervallet på en gång.

Step5: Och stäng sedan Välj Range Helper dialog ruta.

För mer detaljerad information om Välj Range Helper, besök Välj Funktionsbeskrivning för Range Helper.


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje 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