VBA Виберіть діапазон / комірки

VBA дозволяє вибрати клітинку, діапазони клітинок або всі клітинки на аркуші. Ви можете маніпулювати виділеною коміркою або діапазоном за допомогою об’єкта виділення.

Виберіть одну клітинку за допомогою VBA

Ви можете виділити клітинку на робочому аркуші за допомогою методу Select. Наступний код виділить клітинку А2 на аркуші ActiveWorks:

1	Діапазон ("A2"). Виберіть

Або

1	Клітинки (2, 1) Виберіть

Результат такий:

Виберіть діапазон комірок за допомогою VBA

Ви можете вибрати групу клітинок на робочому аркуші за допомогою методу Select та об'єкта Range. Наступний код вибере A1: C5:

1	Діапазон ("A1: C5"). Виберіть

Виберіть діапазон несуміжних клітин за допомогою VBA

Ви можете вибрати клітинки або діапазони, які не знаходяться поруч, розділивши клітинки або діапазони за допомогою коми у VBA. Наступний код дозволить вам вибрати клітинки A1, C1 та E1:

1	Діапазон ("A1, C1, E1"). Виберіть

Ви також можете вибрати набори несуміжних діапазонів у VBA. Наступний код вибере A1: A9 та B11: B18:

1	Діапазон ("A1: A9, B11: B18"). Виберіть

Виберіть усі клітинки на робочому аркуші

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

1	Клітинки. Виберіть

Виберіть рядок

Ви можете вибрати певний рядок на робочому аркуші за допомогою об’єкта Row та номера індексу рядка, який потрібно вибрати. Наступний код виділить перший рядок на вашому аркуші:

1	Рядки (1). Виберіть

Виберіть стовпець

Ви можете вибрати певний стовпець на аркуші за допомогою об’єкта Column та номера індексу стовпця, який потрібно вибрати. Наступний код вибере стовпець С на вашому аркуші:

1	Стовпці (3) Виберіть

Виберіть останню непусту клітинку у стовпці

Припустимо, у вас є дані у клітинках A1, A2, A3 та A4, і ви хотіли б вибрати останню непусту клітинку, якою буде комірка A4 у стовпці. Для цього можна використовувати VBA та метод Range.End.

The Метод Range.End можна взяти чотири аргументи, а саме: xlToLeft, xlToRight, xlUp та xlDown.

Наступний код вибере останню непусту клітинку, яка в цьому випадку буде А4, якщо А1-активна комірка:

1	Діапазон ("A1"). Кінець (xlDown) .Виберіть

Виберіть останню непусту клітинку в рядку

Припустимо, у вас є дані у клітинках A1, B1, C1, D1 та E1, і ви хотіли б вибрати останню непусту клітинку, яка буде осередком E1 у рядку. Для цього можна використовувати VBA та метод Range.End.

Наступний код вибере останню непусту клітинку, яка в цьому випадку буде E1, якщо A1-активна комірка:

1	Діапазон ("A1"). Кінець (xlToRight) .Виберіть

Виберіть поточний регіон у VBA

Ви можете використовувати Властивість CurrentRegion об'єкта "Діапазон", щоб вибрати прямокутний діапазон порожніх і непорожніх клітинок навколо певної заданої комірки введення. Якщо у вас є дані у клітинках A1, B1 та C1, такий код виділить цю область навколо комірки A1:

1	Діапазон ("A1"). CurrentRegion. Виберіть

Отже, буде вибрано діапазон A1: C1.

Виберіть комірку відносно іншої клітини

Ви можете використовувати Офсетне майно щоб вибрати клітинку, яка є відносно іншої клітинки. Наступний код показує, як вибрати клітинку B2, яка складає 1 рядок і 1 стовпець щодо клітинки A1:

1	Діапазон ("A1"). Зсув (1, 1). Виберіть

Виберіть іменований діапазон у Excel

Ви можете вибрати Іменовані діапазони також. Припустимо, ви назвали клітини А1: А4 Фрукт. Для вибору цього іменованого діапазону можна використовувати такий код:

1	Діапазон ("Фрукти"). Виберіть

Вибір клітинки на іншому аркуші

Щоб вибрати клітинку на іншому аркуші, спочатку потрібно активувати аркуш за допомогою методу Worksheets.Activate. Наступний код дозволить вам вибрати клітинку A7 на аркуші з назвою Sheet5:

12	Робочі аркуші ("Аркуш5"). АктивуйтеДіапазон ("A1"). Виберіть

Маніпулювання об’єктом виділення у VBA

Після того як ви вибрали клітинку або діапазон клітинок, ви можете звернутися до об’єкта виділення, щоб маніпулювати цими клітинами. Наступний код виділяє клітинки A1: C1 і встановлює шрифт цих клітинок на Arial, ваговий шрифт - напівжирний, стиль шрифту - курсивом, а колір заливки - зеленим.

123456789

ПідформатSelection ()Діапазон ("A1: C1"). ВиберітьSelection.Font.Name = "Arial"Selection.Font.Bold = ПравдаSelection.Font.Italic = ПравдаSelection.Interior.Color = vbGreenEnd Sub

Результат такий:

Використання З… Закінчити з Construct

Ми можемо повторити наведений вище приклад, використовуючи оператор With / End With для посилання на об’єкт виділення лише один раз. Це економить набір тексту і зазвичай полегшує читання коду.

1234567891011

Додаткове використанняWithEndWithSelection ()Діапазон ("A1: C1"). ВиберітьЗ виділенням.Font.Name = "Arial".Font.Bold = Правда.Font.Italic = Правда.Interior.Color = vbGreenЗакінчити зEnd Sub