Екцел ВБА за следећу петљу
ВБА за наредну петљу је петља која се користи међу свим програмским језицима, у овој петљи постоји критериј након израза фор за који се код петље у петљи док се критерији не достигну и када се достигну критеријуми следећа изјава усмерава поступак до следећег корака кода.
Петља „За даље“ је једна од оних петљи која се користи врло често од осталих петљи у ВБА кодирању. Петље ће нам помоћи да поновимо исту врсту задатка за одређене ћелије све док услов не буде ИСТИНА.
ФОР ЛООП петља кроз опсег ћелија и извршава одређени задатак док услов не буде ИСТИНА. На пример, ако желите да прођете кроз првих 10 ћелија и убаците серијске бројеве увећане за 1, можете да користите ФОР НЕКСТ петљу.
Овој петљи је потребна променљива за покретање петље. Користећи ову променљиву, можемо динамички да референцирамо ћелије.
Садржи три параметра.
За изјаву = Почетна тачка до крајња тачка (Извршите неки задатак) Следећа изјава
Од почетне тачке петља ће започети и извршити неки задатак након завршетка задатка, прећи ће на следећу петљу и поново извршити исти задатак у другој ћелији. Овако, док не достигне крајњу тачку, наставља да извршава наведени задатак.
Како се користи ВБА за следећу петљу?
Претпоставимо да желите да уметнете серијске бројеве од 1 до 10 до А1 до А10 ћелија. Наравно, можемо уметнути попут писања десет редова кода.
Шифра:
Суб Фор_Нект_Лооп_Екампле1 () опсег ("А1"). Вредност = 1 опсег ("А2"). Вредност = 2 опсег ("А3"). Вредност = 3 опсег ("А4"). Вредност = 4 опсег ("А5") .Валуе = 5 Ранге ("А6"). Валуе = 6 Ранге ("А7"). Валуе = 7 Ранге ("А8"). Валуе = 8 Ранге ("А9"). Валуе = 9 Ранге ("А10") .Вредност = 10 Крај Суб
Али шта ако желим да убацим 100 серијских бројева? Наравно, не могу да напишем 100 редова кода само да бих уметнуо серијске бројеве. Ту долази до лепоте петље „ФОР НЕКСТ“ . Следите кораке у наставку да бисте умањили код.
Корак 1: Прво, морамо да дефинишемо променљиву. Прогласио сам име променљиве названо „Сериал_Нумбер“ као целобројни тип података.
Шифра:
Суб Фор_Нект_Лооп_Екампле2 () Дим Сериал_Нумбер Ас Интегер Енд Суб
Корак 2: Сада налажем да се пријавим ФОР НЕКСТ лооп, наш циљ је да убацимо серијске бројеве од 1 до 10, тако да то значи да наша петља мора да се изврши десет пута. Дакле, изјава ФОР ЛООП треба да буде оваква.
За серијски број = 1 до 10
Следећи серијски број
Шифра:
Суб Фор_Нект_Лооп_Екампле2 () Затамни серијски број као цео број за серијски број = 1 до 10 Следећи серијски број Крај Суб
Корак 3: Применили смо петљу. Сада када се петља примени, морамо да одредимо шта морамо да урадимо унутар петље. Наш циљ овде је да убацимо серијске бројеве од 1 до 10. Дакле, напишите код као Ћелије (серијски број, 1). Вредност = серијски број.
Шифра:
Суб Фор_Нект_Лооп_Екампле2 () Дим Сериал_Нумбер Ас Интегер Дим Сериал_Нумбер = 1 То 10 Целлс (Сериал_Нумбер, 1) .Валуе = Сериал_Нумбер Дим Сериал_Нумбер Енд Суб
Корак 4: Разлог зашто смо дали Сериал_Нумбер у својству ЦЕЛЛС јер овде не можемо одредити хардцоре број за референцу реда. Сваки пут када се петља покрене, желим да убацим нови серијски број у нову ћелију, а не у исту ћелију.
Корак 5: Покрените линију кода редом притиском на тастер Ф8.
Корак 6: Поставите курсор на променљиву Сериал_Нумбер; приказује тренутну вредност Сериал_Нумбер.
У овом тренутку, вредност Сериал_Нумбер је нула.
Корак 7: Притисните још једном тастер Ф8, жута боја ће се преместити у следећи ред кода у ВБА. Сада поставите курсор на Сериал_Нумбер.
Сада је вредност Сериал_Нумбер једнака јединици, јер је сада петља покренута, а наша петља почиње од 1, па је променљива Сериал_Нумбер вредност једнака јединици.
Још једна занимљива ствар је овде где год се налази променљива Сериал_Нумбер, која је такође једнака 1.
Тако смо у својству ћелије споменули код као:
Ћелије (серијски број, 1). Вредност = серијски број
То значи Ћелије (1, 1). Вредност = 1. (Ћелије (1,1) значе Ред1 и Колона1.
Дакле, у реду број 1 и ступцу број 1 вредност треба да буде 1.
Корак 8: Сада притисните још једном Ф8 и погледајте шта се дешава у Ров1 & Цолумн1, тј. Ћелији А1.
Тако смо добили 1 као вредност, тј. Вредност Сериал_Нумбер.
Корак 9: Сада притисните још једном тастер Ф8. Типично треба покренути следећи код, тј. Крај поднајаве. Али овде ће се вратити на „горњу линију“.
Корак 10: Сетите се петље која је већ обавила прво покретање. Сада се враћа по други пут. Сада поставите курсор на променљиву Сериал_Нумбер и погледајте колика је вредност.
Сада је променљива Сериал_Нумбер једнака 2, јер се петља већ вратила други пут.
Сад, где год да је Сериал_Нумбер, једнака је вредности 2. Дакле, код линије:
Ћелије (серијски број, 1). Вредност = серијски број је једнако:
Ћелије (2, 1). Вредност = 2. (Ћелије (2,1) значе Ред 2 и Колона 1, односно А2 ћелија).
11. корак: Покрените овај код и погледајте вредност у ћелији А2.
Дакле, добили смо другу вредност серијског броја.
Корак 12: Сада притисните тастер Ф8. Поново ће се вратити на горњи ред за понављање кода. Овај пут ће серијски број бити 3.
Корак 13: Дакле, где год да је Сериал_Нумбер, једнако је 3.
Дакле, код линије: Целлс (Сериал_Нумбер, 1) .Валуе = Сериал_Нумбер је једнак:
Ћелије (3, 1). Вредност = 3. (Ћелије (3,1) означавају ред 3 и колону 1, односно А3 ћелију).
Корак 14: Притисните Ф8 да бисте извршили истакнуту линију и видели вредност у ћелији А3.
Корак 15: Сада наставите да притискате Ф8. Наставиће да убацује серијске бројеве. Тренутна вредност променљиве Сериал_Нумбер је 10, она ће зауставити петљу и изаћи из петље.
