ВБА АутоФилл (Водич корак по корак) - Примери за употребу аутоматског попуњавања у програму Екцел ВБА

Шта ради аутоматско попуњавање у програму Екцел ВБА?

Видели смо аутоматско попуњавање на радном листу где се ћелије аутоматски попуњавају на основу вредности у претходним ћелијама изнад њега, можемо да користимо ВБА тако да Екцел обавља задатак уместо нас, да бисмо то урадили користимо методу Селецтион.Аутофилл и пружамо одредиште, односно до којих ћелија треба попунити вредности.

Најбоља употреба ВБА аутоматског попуњавања долази када треба да испунимо формулу прве ћелије у ћелију колоне. Формулу обично примењујемо у првој ћелији. Или ћемо копирати и залепити у последњу ћелију или ћемо само аутоматски попунити двоструким кликом на тастер са стрелицом. Још један најбољи пример коришћења аутоматског попуњавања у Екцелу је када треба да убацимо серијске бројеве. Обично укуцамо прва три броја; затим вучемо надоле до потребне последње ћелије.

У ВБА можемо извршити задатак методе аутоматског попуњавања. У овом чланку ћемо вам показати како можемо да користимо методу аутоматског попуњавања и начине писања кода. Сада ћемо видети како можемо да користимо овај алат у ВБА кодирању.

Како се користи аутоматско попуњавање у ВБА?

Да бисмо користили аутоматско попуњавање у ВБА, морамо да разумемо синтаксу методе аутоматског попуњавања. Испод је синтакса аутоматског попуњавања.

  • Опсег („А1“): Које ћелије идентификују узорак серије попуњавања.
  • Одредиште: До које ћелије желите да наставите образац серије попуњавања. Овде треба споменути читав низ ћелија.
  • Укуцајте као клАутоФиллТипе: Овде можемо одабрати тип попуњавања серије. Испод је листа ставки у овом параметру - клФиллЦопи, клФиллДаис, клФиллДефаулт, клФиллФорматс, клФиллМонтхс, клФиллСериес, клФиллВалуес, клФиллВеекдаис, клФиллИеарс, клФласхФилл, клГровтхТрендре клГровтхТрендре крГровтхТрендре.

Примери аутоматског попуњавања у програму Екцел ВБА

Погледајмо неколико једноставних до напредних примера ВБА АутоФилл у Екцелу.

Пример # 1 - клФиллДефаулт

Прво у прве три ћелије унесите 3 серијска броја.

У ВБА потпоступку наведите опсег ВБА као опсег („А1: А3“)

Шифра:

Подопсег Аутоматско попуњавање_Пример1 () () „(А1: А3“). Енд Суб  

Сада приступите методи АутоФилл.

Унесите одредиште као опсег („А1: А10“)

Шифра:

Опсег ("А1: А3"). Одредиште за аутоматско попуњавање: = опсег ("А1: А10") 

Изаберите Тип као клФиллДефаулт .

Шифра:

Опсег ("А1: А3"). Одредиште за аутоматско попуњавање: = опсег ("А1: А10"), тип: = клФиллДефаулт 

Сада покрените код, добићемо серијске бројеве од 1 до 10.

Откад смо поменули крајњу одредишну ћелију као А10, она се ту зауставила и у одредишну ћелију можемо ући као последња ћелија екцела.

Пример # 2 - клФиллЦопи

За исте бројеве користићемо тип као клФиллЦопи.

Шифра:

Суб АутоФилл_Екампле1 () опсег ("А1: А3"). Одредиште аутоматског попуњавања: = опсег ("А1: А10"), тип: = клФиллЦопи Енд Суб

Имам копију прве три ћелије у преостале ћелије.

Пример # 3 - клФиллМонтхс

За овај пример сам ушао у прва три месеца у прве 3 ћелије.

Промените тип аутоматског попуњавања у клФиллМонтхс.

Шифра:

Подопсег АутоФилл_Екампле1 () опсег ("А1: А3"). Одредиште аутоматског попуњавања: = опсег ("А1: А10"), тип: = клФиллМонтхс Енд Суб  

Ово ће попунити месечну серију.

Пример # 4 - клФиллФорматс

За овај пример сам унео бројеве и применио обликовање на те ћелије.

Сада ћу променити тип у клФиллФорматс.

Шифра:

Подопсег АутоФилл_Екампле1 () опсег ("А1: А3"). Одредиште аутоматског попуњавања: = опсег ("А1: А10"), тип: = клФиллФорматс Крај под  

Покрените овај код и погледајте шта ће се догодити.

Попунио је формате прве три ћелије у следеће три ћелије и поново, следеће три ћелије и тако даље.

Пример # 5 - клФласхФилл

За овај пример унео сам неколико вредности од ћелије А1 до А10, као што је приказано на доњој слици.

Са ове листе желим да издвојим нумерички део. Да бих Екцелу рекао о обрасцу, у прву ћелију ћу ручно унети нумерички део прве ћелије.

Сада ћу написати код као и обично и променити тип у клФласхФилл. Овај пут ћемо користити опсег ступаца Б.

Шифра:

Суб АутоФилл_Екампле1 () опсег ("Б1"). Одредиште аутоматског попуњавања: = опсег ("Б1: Б10"), тип: = клФласхФилл Енд Суб  

Ако покренем овај код, добићемо резултат као доле.

Ово је преглед методе ВБА АутоФилл. Надам се да сте уживали.

Овај ВБА АутоФилл Екцел предложак можете преузети одавде - ВБА АутоФилл Екцел Темплате

Занимљиви Чланци...