Как использовать диапазон с переменными строкой и столбцом в 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 и применить цвет шрифта ( Maroon ) в диапазоне. Для этого выполните следующие простые действия.

♠ Шаг 1: Создание модуля VBA

  • Прежде всего, нажмите Альт + 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 'Вводим цвет шрифта Maroon With Selection .Font.Color = RGB(128, 0, 0)End With End Sub

♠ Шаг 5: Введите номер строки

  • Тип a номер строки ( 10 ) в Поле ввода .
  • Нажмите OK .

  • Поэтому выбранный диапазон будет цветной как показано на рисунке ниже.

Читать далее: Как с помощью 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, 0) End With End Sub

♠ Шаг 4: Окончательный результат

  • Наконец-то, сохранить программа и запустить нажмите F5 .
  • В результате, диапазон с вашим последний использованный ряд форматируется цветом.

Читать далее: Excel VBA: копирование динамического диапазона в другую рабочую книгу

Похожие чтения

  • Как использовать VBA для каждой строки диапазона в Excel
  • VBA для циклического просмотра строк и столбцов диапазона в 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 'вводим цвет шрифта Maroon 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 'применяем переменную для выбора cuurent последнего столбца в диапазоне 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_Number, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Шаг 2: Вставьте номер строки

  • Тип любой номер строки .

♠ Шаг 3: Вставьте номер столбца

  • Тип любой номер столбца .

♠ Шаг 4: Получение окончательных результатов

  • Следовательно, при выборе ( Строка , Колонка ) = ( 8,5 ), вы получите конечный результат, как показано на рисунке ниже.

Заключение

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

Если у вас возникли вопросы, пожалуйста, обращайтесь к нам. Поделитесь своими мыслями в разделе комментариев ниже.

Сайт Exceldemy сотрудники свяжутся с вами как можно скорее.

Оставайтесь с нами и продолжайте учиться.

Предыдущий пост Как преобразовать Excel в текстовый файл с разделителем Pipe (2 способа)
Следующий пост Как применить несколько фильтров в Excel (6 подходящих методов)

Хью Уэст — опытный тренер и аналитик Excel с более чем 10-летним опытом работы в отрасли. Он имеет степень бакалавра в области бухгалтерского учета и финансов и степень магистра делового администрирования. Хью страстно любит преподавать и разработал уникальный подход к обучению, которому легко следовать и который легко понять. Его экспертные знания Excel помогли тысячам студентов и специалистов по всему миру улучшить свои навыки и преуспеть в своей карьере. В своем блоге Хью делится своими знаниями со всем миром, предлагая бесплатные учебные пособия по Excel и онлайн-обучение, чтобы помочь отдельным лицам и компаниям полностью раскрыть свой потенциал.