photosdematures.com

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

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

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

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

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

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

• Опсег („А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"), тип: = кЛФласхФилл Енд Суб 

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

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

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