VBA TextBox - Примери за създаване на TextBox в Excel VBA (Excel шаблон)

Съдържание:

Anonim

Какво представлява VBA TextBox в Excel?

VBA TextBox е един от многото контроли от контрола на UserForm в Excel. VBA TextBox може да ви бъде полезен, когато искате да получите информация от потребител като тяхното име, възраст, адрес, заплата и т.н. Използвайки TextBox контрол, можете да разрешите на потребителите да въвеждат този вид информация и да спестите много от времето си, както и грешки при печатане., VBA TextBox може да се състои от статични или динамични данни.

Самият UserForm е много полезен инструмент, който има различни опции за управление като TextBox, MsgBox и InputBox и т.н., които предоставят по-практичен начин за получаване на данни от потребителя, така че да можете да обработвате функционално тези данни и да разберете някои полезни изводи от тях,

В тази статия ще получите практически опит в Excel VBA TextBox.

Примери за Excel VBA TextBox

По-долу са дадени различните примери за VBA TextBox в Excel.

Можете да изтеглите този шаблон на VBA TextBox Excel тук - VBA TextBox Excel шаблон

Пример №1 - Как да вмъкнете TextBox във VBA?

По-долу са стъпките за поставяне на TextBox в Excel VBA.

Стъпка 1: Отворете Excel файл и натиснете Alt + F11, за да преминете към прозореца VBA.

Стъпка 2: Както вече обсъдихме, TextBox е опция, налична в UserForm. Затова трябва да вмъкнем UserForm във VBE. Отидете в менюто „Вмъкване“ > Щракнете върху UserForm .

Стъпка 3: Веднага щом поставите UserForm във VBA, можете да видите опция Toolbox, свързана с нея, и да има различни опции, свързани с UserForm.

Стъпка 4: В тази кутия с инструменти изберете TextBox .

Стъпка 5: Плъзнете този TextBox върху потребителския формуляр.

Стъпка 6: Натиснете F4, за да видите свойствата на UserForm (Алтернативно можете да направите това, като щракнете с десния бутон върху вмъкнатата UserForm). Тези свойства ви позволяват да направите някои необходими промени като промяна на името на UserForm, за да имате достъп до него лесно.

Някои други основни промени, които можете да направите с панела със свойства на UserForm, са като промяна на шрифта, промяна на размера и т.н.

Стъпка 7: Въведете текста като „ Добре дошли в VBA TextBox! ”В TextBox под UserForm.

Ето как можете да създадете VBA TextBox.

Пример №2 - Задаване на стойност на VBA TextBox

Нека да видим как можем да зададем стойностите за TextBox. Понякога е задължително да зададете стойностите по друг начин, потребителят въвежда всичко, което ги интересува.

Стъпка 1: Поставете нова потребителска форма във VBE. Отидете в менюто Вмъкване > кликнете върху UserForm.

Стъпка 2: От UserForm Tools изберете TextBox и го плъзнете към UserForm.

Стъпка 3: Поставете CommandButton под UserForm по същия начин, по който сте добавили TextBox.

Стъпка 4: Променете надписа на командния бутон на „ Изпращане “ под свойствата. Можете да навигирате до свойствата на командния бутон с десния бутон на мишката върху командния бутон> Щракнете върху Свойства .

Стъпка 5: Кликнете два пъти върху бутона за изпращане или щракнете с десния бутон върху него и изберете View Code .

Стъпка 6: В кода поставете ред от нов код в рамките на под-процедура, както е посочено по-долу.

Код:

 Private Sub CommandButton1_Click () TextBox1.Value = "Моето име е Lalit!" Край Sub

Този маркиран код ви позволява да присвоите стойността вдясно, затворена в двойни кавички на TextBox. Можете също да използвате свойството TextBox.Text вместо TextBox.Values, за да зададете стойността за TextBox.

Стъпка 7: Натиснете F5 или Run бутона под VBE, за да стартирате този код, ще видите UserForm с празен TextBox. Щом натиснете бутона за изпращане, текстът, присвоен на TextBox, ще се появи там в него.

Пример №3 - Ограничете въвеждането на TextBox, за да приема само цифрови стойности

Изпълнете следните стъпки:

Стъпка 1: Поставете нова потребителска форма във вашата VBA и добавете TextBox в нея.

Стъпка 2: Променете името на TextBox в раздел „ Свойства “ на „ My_Age “.

Стъпка 3: Кликнете два пъти върху TextBox или кликнете с десния бутон върху него и изберете View Code .

Ще можете да видите първоначалната под-процедура както следва:

Код:

 Частен Sub My_Age_Change () Край Sub

Стъпка 4: Сега опитайте да добавите условие If, което започва с If Not.

Код:

 Private Sub My_Age_Change () Ако не приключи Sub

Стъпка 5: Помолете компилатора да провери дали стойността на TextBox „My_Age“ е числова или не използва IsNumeric Ключова дума пред условието If Not Not.

Код:

 Private Sub My_Age_Change () Ако не е IsNumeric (My_Age.Value) End Sub

Стъпка 6: Както изисква всяко условие за IF, добавете ключова дума тогава.

Код:

 Private Sub My_Age_Change () Ако не е числово (My_Age.Value), тогава завършете Sub

В това парче код вие молите компилатора да провери дали стойността, въведена от потребителя под TextBox, е числова или не. Ако не е числово, тогава какво да правя? Следвайте следващата стъпка.

Стъпка 7: С използването на MsgBox добавете коментар като „Съжалявам! Разрешени са само числата. “, Които се показват, ако стойността в TextBox не е числова.

Код:

 Private Sub My_Age_Change () Ако не е Numeric (My_Age.Value), тогава MsgBox "Съжалявам! Разрешени са само числата." Край Sub

Стъпка 8: Сега затворете това изявление IF, като използвате ключова дума End IF.

Код:

 Private Sub My_Age_Change () Ако не е Numeric (My_Age.Value), тогава MsgBox "Съжалявам! Разрешени са само числата." End If End Sub

Стъпка 9: Сега стартирайте този код, като натиснете бутона F5 от клавиатурата или бутона Run от VBE и вижте изхода. Ще получите TextBox, както е показано по-долу:

Сега се опитвам да въведа стойност на Integer в него и виждам дали всъщност ми позволява да въвеждам същото или не.

Бинго, тя ми позволява да запазя целочислената стойност.

Сега, нека се опитаме да добавим малко float (Стойност с десетични точки) към това текстово поле и да видим дали тя ни позволява да въвеждаме същото.

Нека проверим дали това текстово поле ни позволява да съхраняваме някои отрицателни стойности под него или не. Ще напиша някакво отрицателно число и ще проверя.

Добре! Добре!! Ами !!!, тя снима съобщение, в което казва, че са разрешени само номера. Това се случи, защото този код, написан първоначално, е с условие IF, той няма никакво решение какво да направите, ако числото не е положително. Освен това възрастта не може да бъде отрицателна. Така ли е? Ето защо получавам предупредително съобщение, както можете да видите по-горе. Ако обаче щракнете върху OK в полето за съобщение и опитате да въведете номера, това ще ви позволи да го направите. Но няма да препоръчам да се нарушават правилата там.

И накрая, нека опитаме някакъв текстов низ в полето и да видим дали той позволява същият да бъде съхраняван под textbox или не.

Както правилно очаквах, веднага щом въведох първата буква на низа, системата ми попречи да го направя, като хвърлих съобщение. Това е така, защото в нашия код сме споменали условие, ако стойността не е числова, моля, хвърлете съобщение към потребителя, в което се казва, че са разрешени само цифрови стойности.

Неща, които трябва да запомните

  • VBA TextBox е специална опция под UserForm. Което е проектирано да приема информация от самия потребител.
  • Има два метода за задаване на стойностите за TextBox: с помощта на TextBox.Text и с помощта на TextBox.Value.
  • Понякога е задължително да ограничим въвеждането на потребителя, така че да получаваме правилния тип данни.

Препоръчителни статии

Това е ръководство за VBA TextBox. Тук обсъждаме как да създадете TextBox в Excel VBA, заедно с практически примери и шаблон за excel за сваляне. Можете да разгледате и другите ни предложени статии -

  1. Как да използвам VBA IsNumeric функция?
  2. Създаване на Combo Box в Excel
  3. Поставете CheckBox в Excel
  4. VBA UCASE функция в Excel
  5. Как да затворя потребителската форма във VBA?