Перейти к основному содержанию

Как легко отменить выбор выбранных диапазонов в Excel?

Предположим, вы выбрали некоторые определенные ячейки диапазона, и теперь вам нужно инвертировать выделение: отменить выбор выбранных ячеек и выбрать другие ячейки. См. Следующий снимок экрана:

Конечно, вы можете отменить выбор вручную. Но в этой статье вы найдете несколько забавных приемов, позволяющих быстро отменить выбор:

Обратный выбор в Excel с VBA

Обратный выбор в Excel с помощью Kutools for 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 ключ для запуска этого макроса. Затем отображается диалоговое окно, в котором вы можете выбрать некоторые ячейки, которые вам не нужно выбирать в результате. Смотрите скриншот:




Шаг 5: Нажмите OK, и выберите диапазон, в котором вы хотите отменить выбор, в другом всплывающем диалоговом окне. Смотрите скриншот:




Шаг 6: Нажмите OK. вы можете видеть, что выбор был отменен.


Ноты: Этот VBA также работает с пустым листом.


стрелка синий правый пузырь Обратный выбор в Excel с помощью Kutools for Excel

Вы можете быстро отменить любой выбор в Excel, Выбрать помощника по диапазону инструменты Kutools for Excel может помочь вам быстро отменить выбор в Excel. Этот трюк позволяет легко отменить любой выбор во всей книге.

Kutools for Excel включает в себя более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

Step1: Выберите ячейки, которые вы хотите перевернуть.

Step2: Нажмите Кутулс > Выберите Инструменты > Выбрать помощника по диапазону….

Step3В Выбрать помощника по диапазону диалоговое окно, проверьте Обратный выбор опцию.

Step4: Затем перетащите мышь, чтобы выбрать диапазон, в котором вы хотите отменить выбор. Когда вы отпустите кнопку мыши, выделенные ячейки будут отменены, а невыделенные ячейки будут сразу выбраны из диапазона.

Step5: А затем закройте Выбрать помощника по диапазону диалоговое окно.

Для получения более подробной информации о Выбрать помощника по диапазону, Пожалуйста, посетите Описание функции Select Range Helper.


Статьи по теме:

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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