Прескочи на основното съдържание

Как лесно да обърнете селекции на избрани диапазони в Excel?

Автор: Кели Последна промяна: 2014-03-17

Да предположим, че сте избрали някои конкретни клетки от диапазон и сега трябва да обърнете селекцията: премахнете селекцията от избраните клетки и изберете другите клетки. Вижте следната екранна снимка:

Разбира се, можете да обърнете избора ръчно. Но тази статия ще ви предостави някои сладки трикове за бързо обръщане на селекциите:

Обратни селекции в Excel с VBA

Обърнете селекцията в Excel с Kutools за Excel


стрелка син десен балон Обратни селекции в Excel с VBA

Използването на макрос VBA ще ви улесни при обръщане на селекции в работната област на активния работен лист.

Step1: Изберете клетките, които искате да ги обърнете.

Step2: Задръжте натиснат Друг + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.

Step3: Щракнете Поставете > Модулии поставете следния макрос в прозореца на модула.

VBA за обръщане на селекции

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: Натисни F5 ключ за изпълнение на този макрос. След това се показва диалогов прозорец, за да изберете някои клетки, които не трябва да бъдат избрани в резултата. Вижте екранна снимка:




Стъпка : Щракнете OKи изберете диапазон, който искате да обърнете селекцията в друг изскачащ диалогов прозорец. Вижте екранна снимка:




Стъпка : Щракнете OK. можете да видите, че изборът е обърнат.


Забележки: Този VBA също работи в празен работен лист.


стрелка син десен балон Обърнете селекциите в Excel с Kutools за Excel

Може да искате бързо да обърнете всяка селекция в Excel, the Изберете Range Helper инструменти на Kutools за Excel може да ви помогне бързо да обърнете селекцията в Excel. Този трик ви улеснява да обърнете всички селекции в цялата работна книга.

Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.

Step1: Изберете клетките, които искате да ги обърнете.

Step2: Кликнете върху Kutools > Изберете Инструменти > Изберете Range Helper....

Step3В Изберете Range Helper диалоговия прозорец, проверете Обратна селекция опция.

Step4: След това плъзнете мишката, за да изберете диапазона, който искате да обърнете селекциите. Когато пуснете мишката, избраните клетки са премахнати и неизбраните клетки са избрани от диапазона наведнъж.

Step5: И след това затворете Изберете Range Helper диалогов прозорец.

За по - подробна информация за Изберете Range Helper, Моля, посетете Изберете описание на функцията Range Helper.


Свързани статии:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

 

 

 

 

 

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