Шта је ВБА ТектБок у Екцелу?

ВБА ТектБок је једна од многих контрола УсерФорм контрола у Екцелу. ВБА ТектБок може вам бити користан када желите да имате унос од корисника као што су његово име, старост, адреса, плата итд. Коришћењем ТектБок контроле, можете омогућити корисницима да уносе ове врсте информација и уштеде много времена, као и грешке у куцању. . ВБА ТектБок може да се састоји од статичких или динамичких података.

Сам УсерФорм је врло користан алат који има различите опције контроле попут ТектБок-а, МсгБок-а и ИнпутБок-а итд. Који пружају практичнији начин прибављања података од корисника тако да можете функционално обрадити те податке и сазнати неке корисне увиде из њих. .

У овом чланку ћете добити практично искуство у програму Екцел ВБА ТектБок.

Примери Екцел ВБА ТектБок-а

Испод су различити примери ВБА ТектБок-а у Екцелу.

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

Пример # 1 - Како убацити ТектБок у ВБА?

Испод су кораци за уметање ТектБока у Екцел ВБА.

1. корак: Отворите екцел датотеку и притисните Алт + Ф11 да бисте се пребацили на окно ВБА.

Корак 2: Као што смо већ расправљали, ТектБок је опција доступна у УсерФорм-у. Дакле, морамо уметнути УсерФорм у ВБЕ. Идите на Уметни мени > Кликните Корисничка форма .

Корак 3: Чим уметнете УсерФорм у ВБА можете видети опцију Тоолбок која је повезана с њом и имати различите опције повезане са УсерФорм.

Корак 4: У овом оквиру изаберите ТектБок .

Корак 5: Повуците овај ТектБок на корисничком обрасцу.

Корак 6: Притисните Ф4 да бисте видели својства УсерФорм-а (или то можете учинити десним кликом на уметнут УсерФорм). Ова својства вам омогућавају да унесете неке неопходне измене, попут промене имена УсерФорм-а како бисте му могли лако приступити.

Неке друге основне промене које можете да урадите са окном својстава УсерФорм-а су попут промене фонта, промене величине итд.

Корак 7: Унесите текст као „ Добродошли у ВБА ТектБок! ”У ТектБок-у под УсерФорм-ом.

Овако можете да направите ВБА ТектБок.

Пример # 2 - Подешавање вредности на ВБА ТектБок

Да видимо како можемо да поставимо вредности за ТектБок. Понекад је обавезно подесити вредности на неки други начин, корисник ће унети било шта што је заинтересовано.

1. корак: У ВБЕ убаците нову корисничку форму. Идите на мени Уметање > кликните на УсерФорм.

2. корак: Из алата за УсерФорм одаберите ТектБок и превуците га у УсерФорм.

Корак 3: Уметните ЦоммандБуттон под УсерФорм на исти начин на који сте додали ТектБок.

Корак 4: Промените наслов наредбеног дугмета на „ Пошаљи “ у својствима. Можете се кретати до својстава командног дугмета десним кликом на командно дугме> кликните Својства .

Корак 5: Двапут кликните на дугме за слање или Десним кликом на њега и одаберите Прикажи код .

Корак 6: У код убаците линију новог кода у под-процедуру као ниже.

Шифра:

 Привате Суб ЦоммандБуттон1_Цлицк () ТектБок1.Валуе = "Моје име је Лалит!" Енд Суб

Овај истакнути код омогућава да доделите ТектБок-у вредност са десне стране која је затворена у двоструким наводницима. Такође можете да употребите својство ТектБок.Тект уместо ТектБок.Валуес да поставите вредност за ТектБок.

Корак 7: Притисните типку Ф5 или Покрени под ВБЕ да бисте покренули овај код, видјет ћете УсерФорм са празним ТектБоком. Чим притиснете дугме за слање, у њему ће се појавити текст додељен ТектБок-у.

Пример # 3 - Ограничите унос ТектБок-а да прихвата само нумеричке вредности

Следите следеће кораке:

1. корак: Убаците нову корисничку форму у свој ВБА и додајте ТектБок у њу.

Корак 2: Промените име ТектБока у одељку Својства у „ Ми_Аге “.

Корак 3: Двапут кликните на ТектБок или десним кликом на њега и изаберите Виев Цоде .

Почетни под-поступак моћи ћете да видите на следећи начин:

Шифра:

 Привате Суб Ми_Аге_Цханге () Крај Суб

Корак 4: Сада покушајте да додате Иф ако услов започиње са Иф Нот.

Шифра:

 Привате Суб Ми_Аге_Цханге () Ако се не заврши Суб

Корак 5: Затражите од преводиоца да провери да ли је вредност ТектБок-а „Ми_Аге“ нумеричка или не употребљава ИсНумериц кључне речи испред ако није услов.

Шифра:

 Привате Суб Ми_Аге_Цханге () Ако није ИсНумериц (Ми_Аге.Валуе) Енд Суб

Корак 6: Као што сваки услов ИФ захтева, додајте кључну реч затим .

Шифра:

 Привате Суб Ми_Аге_Цханге () Ако није ИсНумериц (Ми_Аге.Валуе), тада Енд Суб

У овом делу кода, од компајлера тражите да провери да ли је вредност коју је корисник унео под ТектБок нумеричка или не. Ако није нумерички, шта онда учинити? Следите следећи корак.

Корак 7: Употребом МсгБок-а додајте коментар попут „Извините! Дозвољени су само бројеви. “Приказује се ако, вредност у ТектБок-у није нумеричка.

Шифра:

 Привате Суб Ми_Аге_Цханге () Ако није ИсНумериц (Ми_Аге.Валуе), онда МсгБок "Извини! Дозвољени су само бројеви." Енд Суб

Корак 8: Затворите ову изјаву ИФ користећи кључну реч Енд ИФ.

Шифра:

 Привате Суб Ми_Аге_Цханге () Ако није ИсНумериц (Ми_Аге.Валуе), онда МсгБок "Извини! Дозвољени су само бројеви." Енд Иф Енд Суб

Корак 9: Сада покрените овај код притиском на Ф5 тастер са тастатуре или дугме Рун из ВБЕ и погледајте излаз. Добићете ТектБок као што је приказано у наставку:

Сада покушавам да унесем Интегер вредност у њу и видим да ли ми заправо омогућава да унесем исту или не.

Бинго, омогућава ми да чувам вредност целог броја.

Сада покушајмо да додамо мало флоат-а (Вредност са децималним бројевима) у овај текстни оквир и да видимо да ли нам дозвољава да унесемо исти.

Провјеримо да ли нам овај текстни оквир омогућава да под њега похранимо неке негативне вриједности или не. Ја ћу уписати неки негативан број и проверити.

Добро! Добро!! Па !!!, снима ме порука у којој је речено да су дозвољени само бројеви. Догодило се зато што је овај код написан у почетку са условом ИФ, нема никаквог решења шта да предузме ако број није позитиван. Штавише, старост не може бити негативна. Јел тако? Стога добијам поруку упозорења као што видите горе. Међутим, ако у пољу за поруке кликнете на У реду и покушате да унесете број, то ће вам омогућити. Али нећу препоручити кршење правила тамо.

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

Као што сам с правом очекивао, чим сам унео прво слово, систем ме спречио да то учиним бацањем поруке. То је зато што смо у нашем коду споменули стање које каже да ако вриједност није нумеричка, молим баците поруку кориснику у којој је наведено да су дозвољене само нумеричке вриједности.

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

  • ВБА ТектБок је посебна опција под УсерФорм-ом. Који је дизајниран да узме улаз од самог корисника.
  • Постоје две методе за подешавање вредности за ТектБок: коришћењем ТектБок.Тект-а и коришћењем ТектБок.Валуе-а.
  • Понекад је обавезно ограничити кориснички унос да бисмо добили праву врсту података.

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

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

  1. Како се користи ВБА ИсНумериц Фунцтион?
  2. Прављење Цомбо Бок-а у Екцелу
  3. Уметните ЦхецкБок у Екцел
  4. ВБА УЦАСЕ функција у Екцелу
  5. Како затворити корисничку форму у ВБА?

Категорија:

ВБА