Ga naar hoofdinhoud

Hoe selecties van geselecteerde bereiken in Excel eenvoudig omkeren?

Stel dat je een aantal specifieke cellen van een bereik hebt geselecteerd, en nu moet je de selectie omkeren: de selectie van de geselecteerde cellen ongedaan maken en de andere cellen selecteren. Zie de volgende schermafbeelding:

U kunt de selectie natuurlijk handmatig ongedaan maken. Maar dit artikel zal je enkele leuke trucs geven om selecties snel om te keren:

Omgekeerde selecties in Excel met VBA

Omgekeerde selectie in Excel met Kutools voor Excel


pijl blauw rechts bel Omgekeerde selecties in Excel met VBA

Door VBA-macro te gebruiken, kunt u gemakkelijk werken om selecties in het werkgebied van een actief werkblad om te keren.

Step1: Selecteer de cellen waarvan u ze wilt omkeren.

Step2: Houd de toets ingedrukt anders + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

Step3: Klik Invoegen > Moduleen plak de volgende macro in het modulevenster.

VBA voor het omkeren van selecties

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: Druk de F5 toets om deze macro uit te voeren. Vervolgens wordt een dialoogvenster weergegeven waarin u enkele cellen kunt selecteren die u niet in het resultaat hoeft te selecteren. Zie screenshot:




Stap 5: Klik OKen selecteer een bereik waarvan u de selectie wilt omkeren in een ander pop-upvenster. Zie screenshot:




Stap 6: Klik OK. je kunt zien dat de selectie is omgekeerd.


Opmerkingen: Deze VBA werkt ook in een leeg werkblad.


pijl blauw rechts bel Keer selecties in Excel om met Kutools voor Excel

Misschien wilt u een selectie in Excel snel ongedaan maken, de Selecteer Range Helper tools van Kutools for Excel kan u helpen bij het snel omkeren van selectie in Excel. Deze truc maakt het gemakkelijk voor u om selecties in de hele werkmap ongedaan te maken.

Kutools voor Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now.

Step1: Selecteer de cellen waarvan u ze wilt omkeren.

Step2: Klik op de Kutools > Selecteer Tools > Selecteer Range Helper ....

Step3: In Selecteer Range Helper dialoogvenster, controleer de Inverse selectie optie.

Step4: Sleep vervolgens de muis om het bereik te selecteren waarvan u de selecties wilt omkeren. Wanneer u de muis loslaat, zijn de geselecteerde cellen gedeselecteerd en zijn de niet-geselecteerde cellen in 茅茅n keer uit het bereik geselecteerd.

Step5: En sluit vervolgens het Selecteer Range Helper dialoog venster.

Voor meer gedetailleerde informatie over Selecteer Range HelperKunt u terecht op Selecteer de functiebeschrijving van de Range Helper.


Gerelateerde artikelen:

Beste Office-productiviteitstools

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke 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