VBA AutoFill (Ръководство стъпка по стъпка) - Примери за използване на автоматично попълване в Excel VBA

Какво прави автоматичното попълване в Excel VBA?

Видяхме автоматично попълване в работен лист, където клетките се попълват автоматично въз основа на стойностите в предишните клетки над него, можем да използваме VBA, така че Excel да изпълнява задачата вместо нас, за да използваме метода Selection.Autofill и ние предоставяме дестинация, т.е. до кои клетки трябва да се попълнят стойностите.

Най-доброто използване на автоматично попълване на VBA идва, когато трябва да попълним формулата на първата клетка в клетката на колоната. Обикновено прилагаме формулата в първата клетка. Или копираме и поставяме в последната клетка, или просто просто попълваме, като щракнем двукратно върху малкия клавиш със стрелка. Друг най-добър пример за използване на автоматично попълване в Excel е, когато трябва да вмъкнем серийни номера. Обикновено въвеждаме първите три числа; след това плъзгаме надолу до необходимата последна клетка.

Във VBA можем да изпълним задачата на метода AutoFill. В тази статия ще ви покажем как можем да използваме метода за автоматично попълване и начините за писане на кода. Сега ще видим как можем да използваме този инструмент при VBA кодиране.

Как да използвам автоматично попълване във VBA?

За да използваме автоматичното попълване във VBA, трябва да разберем синтаксиса на метода за автоматично попълване. По-долу е синтаксисът на автоматичното попълване.

  • Обхват (“A1”): Кои са клетките, за да идентифицират модела на серията запълване.
  • Дестинация: До коя клетка искате да продължите модела за попълване на поредицата. Тук трябва да споменем пълния набор от клетки.
  • Въведете като xlAutoFillType: Тук можем да изберем типа попълване на серията. По-долу е списъкът на елементите в този параметър - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillValues, xlFillWeekdays, xlFillYears, xlFlashFill, xlGrowthLinendrendTendrendTendrendTrendrexTrendrendTrendrendTrendrendTrendrendTrendrendrendTrendrendTrendrendTrendrendTrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendrendtrendrehrendrendrendtrendre of them of them of the value of this parameter.

Примери за автоматично попълване в Excel VBA

Нека да видим няколко прости до разширени примера за VBA AutoFill в Excel.

Пример # 1 - xlFillDefault

Първо въведете 3 серийни номера в първите три клетки.

В подпроцедурата на VBA посочете обхвата на VBA като диапазон („A1: A3“)

Код:

Sub AutoFill_Example1 () Диапазон ("A1: A3"). Крайна под

Сега отворете метода за автоматично попълване.

Въведете дестинацията като диапазон (“A1: A10”)

Код:

Обхват ("A1: A3"). Дестинация за автоматично попълване: = обхват ("A1: A10")

Изберете Type като xlFillDefault .

Код:

Обхват ("A1: A3"). Дестинация за автоматично попълване: = Обхват ("A1: A10"), Тип: = xlFillDefault

Сега стартирайте кода, ще получим серийните номера от 1 до 10.

Тъй като споменахме крайната клетка за местоназначение като A10, тя се спря там и можем да влезем в клетката за местоназначение като последната клетка на Excel.

Пример # 2 - xlFillCopy

За същите числа ще използваме типа като xlFillCopy.

Код:

Sub AutoFill_Example1 () Обхват ("A1: A3"). Дестинация за автоматично попълване: = Обхват ("A1: A10"), Тип: = xlFillCopy End Sub

Имам копие на първите три клетки към останалите клетки.

Пример # 3 - xlFillMonths

За този пример въведох първите три месеца в първите 3 клетки.

Променете типа на автоматично попълване на xlFillMonths.

Код:

Sub AutoFill_Example1 () Обхват ("A1: A3"). Дестинация за автоматично попълване: = Обхват ("A1: A10"), Тип: = xlFillMonths End Sub

Това ще запълни месечната поредица.

Пример # 4 - xlFillFormats

За този пример въведох числа и приложих форматирането към тези клетки.

Сега ще сменя типа на xlFillFormats.

Код:

Sub AutoFill_Example1 () Обхват ("A1: A3"). Дестинация за автоматично попълване: = Обхват ("A1: A10"), Тип: = xlFillFormats End Sub

Изпълнете този код и вижте какво ще се случи.

Той е запълнил формати на първите три клетки до следващите три клетки и отново, следващите три клетки и така нататък.

Пример # 5 - xlFlashFill

За този пример въведох няколко стойности от клетка А1 до А10, както е показано на изображението по-долу.

От този списък искам да извлека числовата част. За да кажа на Excel за модела, в първата клетка ще въведа ръчно числовата част на първата клетка.

Сега ще напиша кода както обикновено и ще сменя типа на xlFlashFill. Този път ще използваме обхвата на колоните B.

Код:

Sub AutoFill_Example1 () Обхват ("B1"). Дестинация за автоматично попълване: = Обхват ("B1: B10"), Тип: = xlFlashFill End Sub

Ако стартирам този код, ще получим резултата по-долу.

Това е прегледът на метода на VBA AutoFill. Надявам се да ви е харесало.

Можете да изтеглите този шаблон за автоматично попълване на Excel от тук - VBA AutoFill Excel Template

Интересни статии...