Виділення діапазонів за допомогою Visual Basic for Applications (приклади новачків)

Приклади виділення клітинок вручну

Щоб виділити всі дані в стовпці вручну, виділіть першу клітинку та натисніть клавіші Ctrl + Shift + стрілка вниз.

Так само, щоб вручну виділити рядок і всі стовпці, прикріплені до рядка, натисніть клавіші Ctrl + Shift + стрілка вниз + стрілка вправо. Проте всі дані мають бути несуміжні (тобто у вас не може бути пустих рядків або стовпців). Крім того, можна виділити поточну область даних (без пустих рядків або стовпців), виконавши такі дії:

1. У меню Edit (Редагування) виберіть Go To (Перейти).

2. У діалоговому вікні Перехід натисніть кнопку Спеціальний.

3. У діалоговому вікні Перейти до особливого виберіть поточну область, а потім натисніть кнопкуOK
   .

Ви також можете виділити цей діапазон, використовуючи простий Visual Basic for Applications код.

Примітка. Якщо ви спробуєте записати цю процедуру за допомогою засобу записування макросів, результати не з'являться.

Приклади використання коду Visual Basic для виділення клітинок у діапазоні

Корпорація Майкрософт надає приклади програмування лише для ілюстрації без жодних підзавдання або вираження неявних гарантій. Це стосується непрямих гарантій придатності до продавців або придатності для певної мети. У цій статті припускається, що ви знайомі з мовою програмування, яка демонструється, а також інструментами, які використовуються для створення та налагодження процедур. Інженери служби підтримки Корпорації Майкрософт можуть допомогти пояснити функціональність певної процедури, але вони не змінюють ці приклади, щоб надати додаткові функції або конструктивні процедури відповідно до ваших вимог. Нижче наведено Visual Basic зразків коду, указівки з вибору різного діапазону.

Якщо вам відома початкова клітинка (у цьому прикладі перша клітинка – це клітинка C1) і потрібно виділити вниз до останньої клітинки (у тому ж стовпці), яка містить дані, але не знаючи цієї адреси, використайте такий код:

   Sub SelectRangeDown()
      Range("c1", Range("c1").End(xlDown)).Select
   End Sub

Примітка. Макрос SelectRangeDown припускає, що дані несуміжні. Інакше, якщо виділено стовпець із пустими клітинками, цей макрос може не виділити всі клітинки в стовпці.

Якщо дані починаються в клітинці C1, але несуміжні з ним, використовуйте наведений нижче макрос у версії Microsoft Office Excel 2003 та попередніх версіях Excel:

   Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c65536").End(xlUp)).Select
   End Sub

Оскільки Microsoft Office Excel 2007 підтримує 1 048 576 рядків, використовуйте у програмі Excel 2007 такий макрос:

 Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c1048576").End(xlUp)).Select
   End Sub

Якщо потрібно виділити всі стовпці з активної клітинки вниз і праворуч (припустивши несуміжні дані в усіх рядках і стовпцях), використовуйте такий код:

   Sub myrangearea()
      Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select
   End Sub

Якщо вам відома початкова клітинка (у цьому зразку коду, початкова клітинка – D1) і потрібно виділити стовпець униз і праворуч, використайте такий код:

   Sub RangeFromStart()
      Range("d1", Range("d1").End(xlDown).End(xlToRight)).Select
   End Sub

Щоб виділити всі дані в поточній області, скористайтеся таким кодом:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

У прикладах, наведених у цій статті, показано, як вибрати різний діапазон на активному аркуші поточної книги.

Щоб отримати додаткові відомості про те, як вибрати діапазони з Visual Basic for Applications (і для більш складних прикладів), клацніть номер статті в базі знань Microsoft:

291308 Виділення клітинок і діапазонів за допомогою Visual Basic процедур у Excel