Как да използвате диапазон с променливи ред и колона с 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

  • Първо, натиснете 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)Край с Край 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) 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 "Въведете цвят на шрифта в кестеняво със 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_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 и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.