Як за допомогою VBA встановити змінну діапазону на виділення в Excel (5 способів)

Hugh West

16-10-2023 Макроси & Excel VBA
  • Поділитися Цим
Hugh West

У цій статті ми продемонструємо деякі ідеї щодо використання Excel VBA щоб встановити змінна діапазону Ми можемо виконати деякі загальні операції над виділеними комірками за допомогою VBA У наступному наборі даних Excel ми показуємо деякі західні назви гуртів та відповідні їм вокалісти .

Завантажити Практичний посібник

VBA для встановлення діапазону в Selection.xlsm

5 способів використання VBA для встановлення діапазонної змінної на вибірку в Excel

1. встановлення діапазонної змінної для вибору діапазону в Excel VBA

Ми можемо вибрати діапазон по діапазон налаштування в VBA Припустимо, що ми хочемо виділити клітинки B5:C8 Перейдемо до процедури нижче.

Сходинки:

  • Для написання коду в VBA, Для початку відкрийте Вкладка "Розробник а потім виберіть Visual Basic .

Після цього відкриється нове вікно Microsoft Visual Basic для додатків .

  • А тепер відкрийте Вставка вибрати Модуль

.

  • Введіть наступний код в поле Модуль VBA . 
 Sub RangeSelect() Dim Rng1 As Range Worksheets("selectRange").Activate Set Rng1 = Range("B5:C8") Rng1.Select End Sub

Тут ми набір в "Урядовому кур'єрі". діапазон B5:C8 як Rng1 Вибираємо його за допомогою Діапазонний метод з VBA Майте це на увазі, що нам потрібно активувати наші відмінні результати аркуш тому ми активували selectRange простирадло.

  • А тепер повернімося до аркуш і побігли. Макрос .

  • Після цього ви побачите діапазон B5:C8 вибирається автоматично.

Таким чином ви можете встановити бажані змінна діапазону до відбору за допомогою VBA .

Читати далі: Excel VBA: Отримання діапазону комірок зі значеннями (7 прикладів)

2 Використання VBA для форматування комірок за допомогою змінної діапазону

Припустимо, що наш набір даних має наступний вигляд.

Ми хочемо зробити так, щоб заголовок сміливі та AutoFit в "Урядовому кур'єрі". колонки Ми можемо зробити це через VBA Давайте подивимося, як ми можемо це зробити.

Сходинки:

  • По-перше, відкрити Visual Basic та введіть наступний код в поле Модуль VBA (щоб побачити, як відкрити Visual Basic і Модуль VBA будь ласка, перейдіть за посиланням Розділ 1 ). 
 Sub SetRange() Dim xyz As Range Set xyz = Range("B4:C4") xyz.Font.Bold = True xyz.Select Worksheets("autofit").Columns("B:C").AutoFit End Sub

Тут ми встановлюємо діапазон B4:C4 як xyz Потім ми використовували Bold метод, щоб зробити шрифти в камері B4 і C4 напівжирний Ми також встановили колонки В і C за допомогою AutoFit метод.

  • А тепер повернімося до аркуш і запустити Макрос який називається SetRange .

Після цього ви чітко побачите назви в колонки та заголовки ставати сміливий і вибрали.

Йдучи цим шляхом, ви зможете формат клітини та AutoFit налаштування колонок змінні діапазону в VBA .

Схожі читання

  • Як використовувати VBA для кожного рядка в діапазоні в Excel
  • Як за допомогою VBA виділити діапазон з активної комірки в Excel (3 способи)
  • Макрос Excel: сортування декількох стовпців за допомогою динамічного діапазону (4 способи)

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

Припустимо, ми хочемо скопіювати B6:C9 встановивши значення змінна діапазону до вибрати Розглянемо процедуру нижче.

Сходинки:

  • По-перше, відкрити Visual Basic та введіть наступний код в поле Модуль VBA (щоб побачити, як відкрити Visual Basic і Модуль VBA будь ласка, перейдіть за посиланням Розділ 1 ). 
 Sub CopyRange() Dim cpy As Range Set cpy = Range("B6:C9") cpy.Copy End Sub

Тут ми просто скопіювали діапазон B6:C9 за допомогою Прийом. метод VBA Ми встановили діапазон B6:C9 як cpy .

  • А тепер повертайтеся до своїх аркуш і побігли. Макроси Виберіть Діапазон копіювання оскільки це назва вашого поточного Макрос .

Ви побачите діапазон B6:C9 скопійовано.

Ви можете вставити це діапазон будь-де у вашому Excel аркуш натиснувши на кнопку CTRL + V Я вставив діапазон через B12 до C15 .

Використовуючи цей метод, ви зможете копія a діапазон встановивши значення змінна діапазону на вибірку в Excel VBA .

Читати далі: Excel VBA: копіювання динамічного діапазону в іншу книгу

4. форматування комірок кольором, встановивши змінну діапазону на виділення

Припустимо, що ми хочемо розфарбувати 8-й і 10-й рядки набору даних з зелений Давайте слідувати наведеному нижче опису.

Сходинки:

  • По-перше, відкрити Visual Basic і введіть наступний код в поле Модуль VBA (щоб побачити, як відкрити Visual Basic і Модуль VBA будь ласка, перейдіть за посиланням Розділ 1 ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

Тут ми визначаємо наші діапазон B8:C8 і B10:C10 як x1 і x2 Відповідно, ми зробили наш колір Excel Лист як ActiveSheet і розфарбовували бажане діапазони по Властивість ColorIndex .

  • А тепер повертайтеся до своїх аркуш і побігли. Макроси Виберіть Діапазон кольорів оскільки саме так називається течія Макрос .

Після цього ви побачите бажане діапазони наповнений зелений колір.

Таким чином, ви можете відформатувати комірки за допомогою колір встановивши значення змінна діапазону до відбору.

Читати далі: Як використовувати діапазон зі змінними рядком і стовпцем в Excel VBA

Схожі читання

  • Циклічний перебір рядків і стовпців у діапазоні в Excel (5 прикладів)
  • Циклічний перебір діапазону в Excel VBA до порожньої комірки (4 приклади)
  • Як перетворити діапазон в масив в Excel VBA (3 способи)

5 Видалення рядків за допомогою змінної діапазону в VBA

Припустимо, що ми хочемо видалити 8-й і 10-й рядки набору даних з зелений Давайте слідувати наведеному нижче опису.

Сходинки:

  • По-перше, відкрити Visual Basic та введіть наступний код в поле Модуль VBA (щоб побачити, як відкрити Visual Basic і Модуль VBA будь ласка, перейдіть за посиланням Розділ 1 ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

На сьогоднішній день, на жаль, це не так. діапазони які ми хочемо видалити, є B8:C8 і B10:C10 Ми назвали їх x1 і x2 Потім ми просто видалили їх за допомогою Видалити метод.

  • А тепер повертайтеся до своїх аркуш і побігли. Макроси Виберіть DeleteRange оскільки це назва вашого поточного Макрос .

Після цього ви побачите діапазони B8:C8 і B10:C10 зникли.

Дотримуючись такого підходу, можна видалити ряди встановивши значення змінні діапазону до відбору.

Практична секція

На наступному зображенні ви знайдете набір даних, над яким ми працювали в цій статті, щоб ви могли потренуватися самостійно.

Висновок

У двох словах, стаття повністю зосереджена на деяких додатках для встановлення змінна діапазону на вибірку в Excel VBA Ми описали досить базові методи. Якщо у вас є якісь інші ідеї або відгуки, будь ласка, залишайте їх у коментарях, це допоможе мені збагатити мої майбутні статті.

Попередній пост Як використовувати SUMIF, коли клітинки не дорівнюють декільком текстам
Наступний пост Як конвертувати число в дату в Excel (6 простих способів)

Г’ю Вест — досвідчений тренер і аналітик Excel із понад 10-річним досвідом роботи в галузі. Він має ступінь бакалавра з бухгалтерського обліку та фінансів і ступінь магістра з ділового адміністрування. Г’ю має пристрасть до викладання та розробив унікальний підхід до викладання, який легко зрозуміти та дотримуватися. Його експертне знання Excel допомогло тисячам студентів і професіоналів у всьому світі вдосконалити свої навички та досягти успіху в кар’єрі. У своєму блозі Г’ю ділиться своїми знаннями зі світом, пропонуючи безкоштовні навчальні посібники з Excel та онлайн-навчання, щоб допомогти окремим особам і компаніям повністю розкрити свій потенціал.