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