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

Hugh West

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

Це трудомісткий процес, коли потрібно форматувати комірки виділенням і одночасно працювати з великими даними. Але за допомогою VBA ми можемо запрограмувати це досить легко. У цьому уроці ми покажемо вам, як використовувати змінний рядок і змінна колонка в діапазоні з Excel VBA .

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

Завантажте цей практичний посібник, щоб потренуватися, поки ви читаєте цю статтю.

Змінні Рядок і Стовпець з VBA.xlsm

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

У наступному розділі ми продемонструємо 5 шляхи створення змінні рядки і колонки Крім того, ми покажемо вам, як використовувати їх для форматування або застосування будь-яких налаштувань до діапазон зміни Зразок набору даних для виконання цього завдання наведено на малюнку нижче.

1. Форматування певного діапазону за допомогою змінної рядка за допомогою Excel VBA

Припустимо, ми хочемо вибрати діапазон зміни подавши заявку на отримання змінний номер рядка Виберемо асортимент B5:C10 і застосувати колір шрифту ( Бордовий Для цього необхідно виконати прості кроки, наведені нижче.

Крок 1: Створення модуля VBA

  • Перш за все, преса Alt + F11 щоб розпочати Макрос VBA .
  • Натисніть на Вставте.
  • Потім виберіть Модуль .

Крок 2: Написання коду на VBA

  • Напишіть наступне Коди VBA. 
 Sub Variable_row_Select() 'оголосити змінну для номера рядка Dim Row_Number As Integer 'Увести поле вводу, ввести 10 як номер рядка Row_Number = InputBox("Введіть номер рядка") 'Вставити змінну row_num для вибору перших 5 рядків з даними Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub

Крок 3: Запустіть програму

  • По-перше, заощаджувати програму і натисніть F5 бігти.
  • Тому, на думку експертів, в рамках проекту Поле введення і введіть 10 в якості номер рядка .

  • Наостанок, натисніть Увійдіть щоб переконатися в тому, що діапазон з ( Ряд 5 , Колонка 2 ) до ( Змінна Рядок 10 , Колонка 3 ) буде обраний .

Крок 4: Застосуйте колір шрифту до діапазону

  • Додати колір шрифту в обраному діапазон вставити наступне VBA коди . 
 Sub Variable_row_Font() 'оголосити змінну для номера рядка Dim Row_Number As Integer 'Увести поле вводу, ввести 10 як номер рядка Row_Number = InputBox("Введіть номер рядка") 'Вставити змінну row_num для виділення перших 6 рядків, що містять дані Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Ввести колір шрифту темно-бордовим кольором With Selection .Font.Color = RGB(128, 0, 0)End With End Sub

Крок 5: Введіть номер рядка

  • Тип a номер рядка ( 10 ) в Поле введення .
  • Натисніть ГАРАЗД. .

  • Тому, на думку експертів, в рамках проекту обраний діапазон буде кольоровий як показано на зображенні нижче.

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

2. Налаштування динамічного діапазону за допомогою змінного рядка за допомогою Excel VBA

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

Крок 1: Введіть код VBA

  • Виберіть новий Модуль від Вставка
  • У новому Модуль , писати наступне Програма на VBA . 
 Sub Variable_Dynamic_Row() 'оголосити змінну для номера рядка Dim Last_Used_Row As Integer 'визначити змінну для використаного діапазону Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'застосувати змінну для вибору поточного останнього рядка в діапазоні Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub

Крок 2: Отримайте вибір

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

Крок 3: Застосуйте колір шрифту

  • До знак в "Урядовому кур'єрі". обраний діапазон або до редагування , паста наступне VBA коди . 
 Sub Variable_Dynamic_Row() 'оголосити змінну для номера рядка Dim Last_Used_Row As Integer 'визначити змінну для використаного діапазону Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'застосувати змінну для вибору поточного останнього рядка в діапазоні Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

Крок 4: Кінцевий результат

  • Нарешті, заощаджувати програми та біг його, натиснувши на кнопку F5 .
  • Як наслідок, діапазон з вашими останній використаний рядок відформатовано кольором.

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

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

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

3. Форматування певного діапазону за допомогою змінного стовпця за допомогою Excel VBA

Подібно до змінні рядки Ви можете подати заявку змінні стовпці з Excel VBA . B5 ( Ряд 5 , Колонка 2 ) комірка - це перша клітина в діапазону, і Рядок 8 це останній ряд в діапазоні; останній стовпчик це змінна колонка Дотримуйтесь наведених нижче процедур, щоб застосувати змінна колонка .

Крок 1: Напишіть код на VBA

  • У новому Модуль , писати наступне VBA код . 
 Sub Variable_Column_Font() 'оголосити змінну для номера рядка Dim Column_num As Integer 'Увести поле вводу, ввести 5 для номера стовпця Column_num = InputBox("Введіть номер стовпця") 'Вставити змінну Column_num для виділення перших 5 стовпців даних, що містяться Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Ввести колір шрифту темно-бордового кольору With Selection .Font.Color =RGB(128, 0, 0) End With End Sub

Крок 2: Запустіть програму

  • До біг програму, натисніть F5 після економія .
  • Таким чином, ви побачите наступні результати в якості своїх виділені комірки це діапазон B5:E8 .

4. Налаштування динамічного діапазону за допомогою змінного стовпця за допомогою Excel VBA

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

Крок 1: Вставте код VBA

  • Паста наступне VBA кодів у новий Модуль . 
 Sub Variable_Dynamic_Column() 'оголосити змінну для номера стовпця Dim lastColumn As Integer 'визначити змінну для використовуваного діапазону lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'застосувати змінну для виділення останнього стовпця в діапазоні Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'пофарбувати шрифт виділених комірок в темно-бордовий колір With Selection .Font.Color = RGB(128, 0,0) End With End Sub

Крок 2: Запустіть програму

  • По-перше, заощаджувати програму і натисніть F5 бігти.
  • В результаті діапазон відібраний і відформатований до останній використаний стовпець на робочому аркуші.

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

5. створення діапазону зі змінним рядком і змінним стовпцем за допомогою Excel VBA

Важливо, що ви можете використовувати обидва варіанти змінні рядки і змінні стовпці Першою коміркою в нашому асортименті є B5 ( Ряд 5, Колонка 2 ), а останній діапазон буде залежати від нашого вибору. Для виконання завдання виконайте наведені нижче кроки.

Крок 1: Введіть код VBA

  • По-перше, створювати новий Модуль .
  • Тоді, писати наступне VBA коди . 
 Sub Variable_Column_Row() 'оголосити змінну для номера рядка Dim Row_Number As Integer 'оголосити змінну для номера стовпця Dim Column_num As Integer 'Описати змінні - тип 8 для номера рядка та 4 для стовпця Row_Number = InputBox("Введіть номер рядка") Column_num = InputBox("Введіть номер стовпця") 'Застосувати змінну для виділення рядків та стовпців у діапазоні Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_num, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

Крок 2: Вставте номер рядка

  • Тип будь-який номер рядка .

Крок 3: Вставте номер стовпця

  • Тип будь-який номер стовпчика .

Крок 4: Отримайте остаточні результати

  • Отже, при виборі ( Ряд , Колонка ) = ( 8,5 ), Ви отримаєте кінцевий результат, як показано на зображенні нижче.

Висновок

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

Якщо у Вас виникли запитання, будь ласка, звертайтеся до нас. Будь ласка, поділіться своїми думками у розділі коментарів нижче.

На сьогоднішній день, на жаль, це не так. Ексельдемія співробітники зв'яжуться з Вами якнайшвидше.

Залишайтеся з нами і продовжуйте вчитися.

Попередній пост Як перетворити Excel в текстовий файл з роздільником труб (2 способи)
Наступний пост Як застосувати кілька фільтрів в Excel (6 підходящих способів)

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