Екцел ВБА за сваку петљу

„Свака“ кључна реч користи се у ВБА заједно са функцијом „Фор“. Означава да за сваки ентитет у низу или распону понављамо поступак за петљу. У основи, нећемо уносити распон корака, тј. Од 1 до 5 или 1 до 10, већ ћемо је само ставити као што је приказано у синтакси испод.

Синтакса:

За сваки назив објекта у распону

Напомена: На радном листу Екцела морате имати картицу за програмере.

Ако не видите картицу „Програмер“ у екцелу, погледајте следеће кораке.

1. корак: Кликните на опцију датотеке .

2. корак: Појави се падајући мени, кликните на картицу Опције .

Корак 3: Једном када кликнете на „Опције“, појавиће се дијалошки оквир као што је приказано у наставку и кликните на опцију Прилагоди врпцу .

Корак 4: Када повучемо доле у ​​опцијама прилагодљиве врпце наћи ћемо опцију за програмере, треба да потврдимо тај оквир који ће нам омогућити да користимо ВБА у екцелу.

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

Испод су различити примери за употребу за сваку петљу у Екцелу помоћу ВБА кода.

Овде можете преузети овај ВБА предложак за сваку петљу Екцел предлошка овде - ВБА за сваки предложени програм Екцел предложак

Екцел ВБА за сваку петљу - пример бр. 1

Узећемо једноставан пример за сваку петљу у ВБА. Претпоставимо да је у наставку наведени скуп података у ВБА.

Следите доле наведене кораке за употребу за сваку петљу у Екцелу ВБА.

1. корак: Кликните на картицу „Девелопер“, а затим кликните на опцију „Висуал Басиц“ са леве стране (прва опција) као што је приказано у наставку.

Једном када кликнете на њега, појављује се нови прозор као што је приказано у наставку.

Примјетићете да садржи двије картице на лијевој страни, „Схеет1 (Схеет1)“ и „ТхисВоркбоок“. Једина разлика је „Схеет1“ када желите извршити код само за овај одређени лист, а у „ТхисВоркбоок“ можемо написати код и извршити који се могу применити за читаву екцел радну књигу.

Корак 2: Двапут кликните на "Схеет1 (Схеет1)" и видећете празан екран где морамо написати код. Дајте име креираној подскупини. Овде смо дали име „Суб Фор_Еацх_Ек1 ()“ као што је приказано на слици испод.

Шифра:

 Суб Фор_Еацх_Ек1 () Крај Суб 

На овај начин креирамо подскуп и аутоматски се појављује „Крај под“. Ово је подразумевана функција екцела. Ако се не појави „Крај суб“, код се неће извршити и бацити грешку.

Корак 3: Навешћемо променљиве као опсег.

Шифра:

 Суб Фор_Еацх_Ек1 () Дим Еарн, Ранге1 Ас Ранге Енд Суб 

Овде смо прогласили две променљиве, „Зарадите“ које ћемо користити за сваку и „Ранге1“ као опсег скупа података.

Корак 4: Сада ћемо поправити распон тј. Распон података на којима требамо радити помоћу кључне речи „Сет“ као што је приказано у наставку.

Шифра:

 Суб Фор_Еацх_Ек1 () Дим Еарн, Ранге1 Ас Ранге Сет Ранге1 = Опсег ("А1: А10") Крај Суб 

Овде смо фиксирали „Ранге1“ од ћелија распона А1 до А10, што је наш скуп података.

Корак 5: Сада ћемо извршити за петљу користећи сваку кључну реч.

Шифра:

 Суб Фор_Еацх_Ек1 () Дим Еарн, Ранге1 Ас Ранге Сет Ранге1 = Опсег ("А1: А10") за сваку зараду у крају1 Енд Суб 

Овде ће за сваку вредност у распону Еарн добити вредност додељену као што се петља извршава корак по корак.

Корак 6: Сада ћемо користити кључну реч „Мсгбок“ да бисмо приказали сваки унос реда у додељеном распону.

Шифра:

 Суб Фор_Еацх_Ек1 () Дим Еарн, Ранге1 Ас Ранге Сет Ранге1 = Распон ("А1: А10") за сваку зараду у распону1 МсгБок Еарн.Валуе Енд Суб 

Овде ће „Еарн.валуе“ приказати вредност у ћелији тј. Почевши од прве ћелије у распону.

Корак 7: Сада желимо извршити следећу вредност у датом распону ћелија, према томе, у коду морамо да користимо кључну реч „Следеће“. Ово ће вам помоћи да наставите даље у распону и прикажете сваки ентитет у распону ћелија, једну по једну.

Шифра:

 Суб Фор_Еацх_Ек1 () Дим Еарн, Ранге1 Ас Ранге Сет Ранге1 = Распон ("А1: А10") за сваку зараду у распону1 МсгБок Еарн.Валуе Нект Еарн Енд Суб 

Корак 8: Покрените код притиском на Ф5 или Рун дугме и погледајте излаз.

Оног тренутка када се изврши линија „Нект Еарн“, „Еарн.валуе“ ће бити додељена следећа вредност ћелије у распону. Један по један клик на „ОК“ и наставиће приказивати сваку вредност у распону све док се не заврши распон вредности.

Екцел ВБА за сваку петљу - пример бр. 2

Узећемо још један пример у коме ћемо приказати име сваког листа у екцел датотеци. Претпоставимо да у датотеци екцела имамо називе који су наведени у наставку:

Као што приметимо да у Екцеловој датотеци има око 5 листова и морамо приказати име сваког по једног.

Код ћемо написати и извршити у одељку „ТхисВоркбоок“ како је означено у црвеном пољу испод:

Двапут кликните на њу и док се појави прозор за прозор и почните да пишете код у њему. Следите доле наведене кораке за употребу за сваку петљу у Екцелу ВБА:

Корак 1: Код ћемо написати додељивањем назива подскупине као што је приказано у наставку.

Шифра:

 Назив подстранице () Крај Суб 

Корак 2: Такође, директно можемо почети писати изјаву петље “Фор” без декларирања променљиве као што је приказано у наставку.

Шифра:

 Назив подстранице () За сваки схт у Апплицатион.Схеетс Енд Суб 

Овде је „схт“ наша варијабла1 која се подразумевано декларише, а „Апплицатион.схеетс“ означава да у датотеци узимају у обзир све листове. Апплицатион.фуцнтион одређује да можемо додати било коју функцију или функцију или екцел алат који ћемо узети у обзир током извршења кода.

Корак 3: Сада ћемо унијети синтаксу оквира поруке и уз њу ћемо додати синтаксу за приказ назива листа као што је приказано у наставку:

Шифра:

 Назив подстранице () За сваки схт у Апплицатион.Схеетс МсгБок "Име листа је:" & схт.Наме Енд Суб 

Овде је изјава коју желимо да прикажемо „Име листа је:“, а затим упишемо амперсанд (&) који повезује линију кода и затим упишемо „схт.Наме“, тј. Одабире листу почевши од првог лист и прикажите име.

Корак 4: Сада морамо поновити поступак приказивања имена сваког листа. Дакле, користили бисмо „Нект схт“ као што је приказано у наставку:

Шифра:

 Име подстранице () За сваки схт у Апплицатион.Схеетс МсгБок "Име листа је:" & схт.Наме Нект схт Енд Суб 

„Нект схт“ ће систему дати до знања да размотри следећи лист и прикаже његово име за даље извршавање.

Корак 6: Покрените код притиском на Ф5 или Рун дугме и погледајте излаз.

Једном када кликнете на „ОК“ и код се изврши даље, приказаће се назив следећег листа. Код ће се извршавати све док на екрану нема додатних листова.

Екцел ВБА за сваку петљу - пример бр. 3

Сада ћемо узети пример где морамо да збројимо све вредности у датом скупу података или низу. Претпоставимо у наставку скуп података:.

Следите доле наведене кораке за употребу за сваку петљу у Екцелу ВБА:

Корак 1: Прво декларишите име подскупине као "еацхадд ()" као што је приказано у наставку.

Шифра:

 Суб еацхадд () Крај Суб 

Корак 2: Сада ћемо прогласити потребне променљиве, једна као цео број под називом "укупно", у којој стално сабирамо вредности ћелија једну по једну и поправимо распон ћелија који садржи вредности које морамо да додамо.

Шифра:

 Потпуну () Дим. Укупну вредност као цео број Дим. Распон1 Као опсег Крај Под 

Корак 3: Након што прогласимо променљиву и распон, морамо да поправимо распон који ћемо користити за петљу. Овај опсег ћемо поправити од А1 до А10 ћелија помоћу кључне речи „Сет“ као што је приказано у наставку:

Шифра:

 Потпуну () Дим. Укупну вредност као цели број Дим. Опсег1 Ас распон постављен Распон1 = Опсег ("А1: А10") Крај Под 

Корак 4: Сада можемо директно почети користити функцију Фор петље и директно декларирати променљиву. Овде користимо „адд1“ као променљиву и систем ће је подразумевано прогласити.

Шифра:

 Потпуно подешена () Дим. Укупно као цео Дим. Опсег 1 Ас распон је распон 

Корак 5: Додавање сваког ентитета у опсег један по један и у променљиву која је декларирана „укупно“. Подразумевано је вредност „укупно“ у почетку једнака нули. И требамо додати једну по једну вредност ћелија и опет тај зброј морамо поново додати „укупно“.

Шифра:

 Подјељени () Дим укупни као цели Дим Распон1 Као распон Подручје распона1 = домет ("А1: А10") За сваки додатак1 У распону1 укупно = укупно + додатак1. Крајњи крај Под 

Горња изјава извршава се с десна на лијево, тј. „Адд1.валуе“ је прва вриједност ћелије и додајте је „тотал“ која је нула. Дакле, зброј би био 0 + 1 што је 1. А тај зброј као 1 прешао би у "укупно" прије знака "=". То је предност јер се формула извршава с лева на десно.

Корак 6: Сада додајте „Сљедећи додатак1“ који ће сада помоћи да се размотри сљедећа вриједност ћелије у распону података и додајте ту вриједност у „укупну“ варијаблу као што је приказано у наставку.

Шифра:

 Подјељени () Дим укупни као цели Дим Распон1 Као распон Подручје распона1 = Опсег ("А1: А10") За сваки додатак1 У распону1 укупно = укупно + додатак1.Валуе Следећи адд1 Енд Суб 

Корак 6: Притисните “Ф8” да бисте покренули код по сваком ретку. Такође, на слици екрана испод можемо видети вредност „укупно“.

Слично томе, све док опсег ћелија не пређе, петља ће наставити да извршава ову суму матрице.

Корак 7: Сада ћемо користити кључну реч „Мсгбок“.

Шифра:

 Подједини () Дим укупно као цели Дим Распон1 Као распон Подручје распона1 = домет ("А1: А10") За сваки додатак1 У распону1 укупно = укупно + додатак1. 

Корак 8: Покрените код притиском на Ф5 или Рун дугме и погледајте излаз.

Ствари које треба запамтити

  • "Свака" кључна реч користи се већином времена само у случају када се користи ВБА Фор Лооп функција. Иначе, ограничена је употреба у ВБА.
  • Предност за „сваку“ кључну реч је само у томе што у изјави „Фор“ немамо деклариране кораке попут 1 до к .

Препоручени чланци

Ово је водич за ВБА за сваку петљу. Овдје смо расправљали о томе како за сваку петљу у програму Екцел користити ВБА код заједно са практичним примјерима и довнлоад-ом Екцел предлошка. Испод је неколико корисних екцел чланака везаних за ВБА -

  1. ВБА ради док се петља
  2. Пребацивање колона у Екцелу
  3. ВБА одмор за петљу
  4. Бројање имена у Екцелу
  5. Како покренути ВБА код?

Категорија: