Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як легко змінити вибір виділених діапазонів в Excel?

Припустимо, що ви вибрали деякі конкретні комірки діапазону, і тепер вам потрібно змінити виділення: скасував вибір виділених комірок та виділив інші комірки. Дивіться наступний знімок екрана:

Звичайно, ви можете змінити вибір вручну. Але ця стаття запропонує вам декілька приємних прийомів, щоб швидко змінити вибір:

Змінити виділення в Excel за допомогою VBA

Зворотний вибір в Excel за допомогою Kutools для Excel

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2019 та 365; Підтримує всі мови; Простота розгортання на вашому підприємстві чи в організації.

стрілка синя права міхур Змінити виділення в Excel за допомогою VBA


Використання макросу VBA полегшить вам роботу зі зворотним вибором у робочій області активного аркуша.

Step1: Виділіть клітинки, які потрібно повернути назад.

Step2: Утримуйте клавішу інший + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

Step3: Натисніть Insert > Модуліта вставте наступний макрос у вікно модуля.

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 для Excel

Можливо, ви захочете швидко змінити будь-який вибір у програмі Excel, Виберіть Помічник дальності інструменти з Kutools для Excel може допомогти вам швидко змінити вибір у Excel. Цей фокус полегшує вам скасування будь-якого виділення в цілій книзі.

Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз.

Step1: Виділіть клітинки, які потрібно повернути назад.

Step2: Натисніть кнопку Кутулс > Виберіть Інструменти > Виберіть помічника дальності ....

Step3: У Виберіть Помічник дальності діалогове вікно, перевірте Зворотний вибір варіант.

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

Step5: А потім закрийте Виберіть Помічник дальності діалогове вікно.

Для отримання більш детальної інформації про Виберіть Помічник дальності, Будь ласка, відвідайте Виберіть опис функції «Помічник діапазону».


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці

 

 

 

 

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Peter · 4 years ago
    Reverse Selections In Excel With VBA - confirmed not working.

    Please fix.
    • To post as a guest, your comment is unpublished.
      piino · 3 years ago
      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
  • To post as a guest, your comment is unpublished.
    Puneet · 7 years ago
    invert selection vba not working