Ugrás a tartalomra

Hogyan lehet egyszerűen visszaváltani a kiválasztott tartományok kijelölését az Excelben?

Tételezzük fel, hogy kijelölt egy tartomány meghatározott celláját, és most meg kell fordítania a kijelölést: törölje a kijelölt cellák kijelölését, és jelölje ki a többi cellát. Lásd a következő képernyőképet:

Természetesen manuálisan megfordíthatja a választást. De ez a cikk néhány aranyos trükköt hoz a választások gyors visszafordításához:

Fordított választások az Excel-ben VBA-val

Fordított kiválasztás az Excelben a Kutools for Excel segítségével


nyíl kék jobb buborék Fordított választások az Excel-ben VBA-val

A VBA makró használata megkönnyíti a kijelölések megfordítását az aktív munkalap munkaterületén.

Step1: Jelölje ki azokat a cellákat, amelyeket meg akar fordítani.

Step2Tartsd le a más + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

Step3: Kattintson betétlap > Modulok, és illessze be a következő makrót a Modul ablakba.

VBA a kijelölések megfordításához

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: Megnyomni a F5 gomb a makró futtatásához. Ezután megjelenik egy párbeszédpanel, amelyben kiválaszthat néhány cellát, amelyekre nincs szükség kiválasztva az eredményben. Lásd a képernyőképet:




5 lépés: Kattintson OK, és egy másik felugró párbeszédpanelen válasszon ki egy tartományt, amelyet meg akar váltani. Lásd a képernyőképet:




6 lépés: Kattintson OK. láthatja, hogy a kijelölés megfordult.


Megjegyzések: Ez a VBA üres munkalapon is működik.


nyíl kék jobb buborék Fordított kijelölések az Excelben a Kutools for Excel segítségével

Érdemes gyorsan visszavonni minden választást az Excelben, a Válassza a Tartománysegítő lehetőséget eszközei Kutools az Excel számára segíthet az Excel gyors kiválasztásának visszafordításában. Ez a trükk megkönnyíti az egész munkafüzet bármelyik választásának megfordítását.

A Kutools for Excel több mint 300 praktikus Excel eszközt tartalmaz. Ingyenesen kipróbálható korlátozás nélkül 30 napon belül. Szerezd meg most.

Step1: Jelölje ki azokat a cellákat, amelyeket meg akar fordítani.

Step2: Kattints a Kutools > Válassza az Eszközök lehetőséget > Tartománysegítő kiválasztása….

Step3: Ban ben Válassza a Tartománysegítő lehetőséget párbeszédpanelen ellenőrizze a Fordított kiválasztás opciót.

Step4: Ezután húzza az egeret arra a tartományra, amelyre vissza akarja állítani a kijelöléseket. Amikor elengedi az egeret, a kijelölt cellák kijelölését megszüntették, és a kijelöletlen cellákat egyszerre választották ki a tartományból.

Step5: És akkor csukja be a Válassza a Tartománysegítő lehetőséget párbeszédablak.

Részletesebb információk a Válassza a Tartománysegítő lehetőséget, Kérjük, látogasson el a Válassza a Tartománysegítő szolgáltatás leírását.


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

 

 

 

 

 

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