Salt la conținutul principal

Cum se inversează cu ușurință selecțiile intervalelor selectate în Excel?

Presupunând că ați selectat unele celule specifice dintr-un interval și acum trebuie să inversați selecția: deselectați celulele selectate și selectați celelalte celule. Vedeți următoarea captură de ecran:

Desigur, puteți inversa selecția manual. Dar acest articol vă va aduce câteva trucuri drăguțe pentru a inversa rapid selecțiile:

Inversați selecțiile în Excel cu VBA

Selecție inversă în Excel cu Kutools pentru Excel


săgeată albastru dreapta balon Inversați selecțiile în Excel cu VBA

Utilizarea macrocomenzii VBA vă va face să lucrați cu ușurință pentru a inversa selecțiile din zona de lucru a foii de lucru active.

Step1: Selectați celulele pe care doriți să le inversați.

Step2: Țineți apăsat butonul Alt + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

Step3: Faceți clic pe Insera > Moduleși lipiți următoarea macro în fereastra modulului.

VBA pentru inversarea selecțiilor

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: Apasă pe F5 tasta pentru a rula această macro. Apoi se afișează un dialog pentru a selecta câteva celule de care nu aveți nevoie selectate în rezultat. Vedeți captura de ecran:




Etapa 5: Faceți clic pe OK, și selectați o gamă pe care doriți să o inversați în altă fereastră de dialog. Vedeți captura de ecran:




Etapa 6: Faceți clic pe OK. puteți vedea că selecția a fost inversată.


note: Acest VBA funcționează și în foaia de lucru goală.


săgeată albastru dreapta balon Inversați selecțiile în Excel cu Kutools pentru Excel

Poate doriți să inversați rapid orice selecție din Excel, Selectați Range Helper instrumente de Kutools pentru Excel vă poate ajuta să inversați rapid selecția în Excel. Acest truc vă ajută să inversați cu ușurință orice selecție din întregul registru de lucru.

Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum.

Step1: Selectați celulele pe care doriți să le inversați.

Step2: Apasă pe Kutools > Selectați Instrumente > Selectați Range Helper ....

Step3: În Selectați Range Helper caseta de dialog, verificați Selecție inversă opțiune.

Step4: Apoi trageți mouse-ul pentru a selecta intervalul pe care doriți să îl inversați. Când eliberați mouse-ul, celulele selectate au fost deselectate, iar celulele neselectate au fost selectate dintr-o singură dată.

Step5: Și apoi închideți Selectați Range Helper căsuță de dialog.

Pentru informații mai detaliate despre Selectați Range Helper, Vă rugăm să vizitați Selectați descrierea funcției Range Helper.


Articole pe aceeași temă:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

 

 

 

 

 

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