VBA TextBox - Приклади створення TextBox в Excel VBA (шаблон Excel)

• Що таке VBA TextBox в Excel?

Що таке 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.

Ви можете завантажити цей шаблон Excel TextBox Excel тут - шаблон VBA TextBox Excel

Приклад №1 - Як вставити TextBox у VBA?

Нижче наведено етапи вставки TextBox в Excel VBA.

Крок 1: Відкрийте файл excel та натисніть Alt + F11, щоб перейти до області VBA.

Крок 2: Як ми вже обговорювали, TextBox - це варіант, доступний в UserForm. Тому нам потрібно вставити UserForm у VBE. Перейдіть до меню Вставка > Клацніть Форма користувача .

Крок 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 виберіть TextBox і перетягніть його в UserForm.

Крок 3: Вставте CommandButton під UserForm так само, як ви додали TextBox.

Крок 4: Змініть заголовки командної кнопки на " Надіслати " у властивостях. Ви можете перейти до властивостей командної кнопки, клацнувши правою кнопкою миші на командній кнопці> клацніть Властивості .

Крок 5: Двічі клацніть на кнопці подання або клацніть правою кнопкою миші та виберіть пункт Перегляд коду .

Крок 6: У код вставіть рядок нового коду в рамках підпроцедури, як показано нижче.

Код:

 Private Sub CommandButton1_Click () TextBox1.Value = "Мене звуть Лалит!" Кінець Під 

Цей виділений код дозволяє призначити значення TextBox праворуч, укладене у подвійні лапки. Ви також можете використовувати властивість TextBox.Text замість TextBox.Values, щоб встановити значення для TextBox.

Крок 7: Натисніть кнопку F5 або запустити під VBE, щоб запустити цей код, ви побачите UserForm з порожнім TextBox. Як тільки ви натиснете кнопку для надсилання, текст, призначений TextBox, з’явиться там.

Приклад №3 - Обмежте введення TextBox прийняттям лише числових значень

Виконайте наступні кроки:

Крок 1. Вставте нову форму користувача у свою VBA та додайте в неї TextBox.

Крок 2: Змініть назву TextBox у розділі Властивості на " My_Age ".

Крок 3: Двічі клацніть на TextBox або клацніть правою кнопкою миші на ньому та виберіть Переглянути код .

Ви зможете побачити початкову під-процедуру, як показано нижче:

Код:

 Приватний Sub My_Age_Change () Кінець Sub 

Крок 4: Тепер спробуйте додати умову If, яка починається з Якщо ні.

Код:

 Приватний Sub My_Age_Change () Якщо не закінчується Sub 

Крок 5: Попросіть компілятор перевірити, чи є значення TextBox “My_Age” чисельним чи не використовує ключове слово IsNumeric перед умовою If Not Not.

Код:

 Приватний суб My_Age_Change () Якщо не є числовим (My_Age.Value) Закінчення Sub 

Крок 6: Як вимагає кожен стан IF, додайте для нього ключове слово Потім .

Код:

 Приватний суб My_Age_Change () Якщо не є числовим (My_Age.Value), тоді закінчіть суб 

У цьому фрагменті коду ви просите компілятор перевірити, чи є значення, введене користувачем під TextBox, чисельним чи ні. Якщо це не числово, то що робити? Виконайте наступний крок.

Крок 7: Використовуючи MsgBox, додайте коментар на зразок "Вибачте! Дозволено відображати лише номери. "Якщо відображається, значення в TextBox не є числовим.

Код:

 Приватний Sub My_Age_Change () Якщо немає IsNumeric (My_Age.Value), тоді MsgBox "Вибачте! Дозволені лише номери". Кінець Під 

Крок 8: Тепер закрийте цю заяву IF, використовуючи ключове слово End IF.

Код:

 Приватний Sub My_Age_Change () Якщо немає IsNumeric (My_Age.Value), тоді MsgBox "Вибачте! Дозволені лише номери". Кінець, якщо Кінець Sub 

Крок 9: Тепер запустіть цей код, натиснувши кнопку F5 з клавіатури або кнопку Запустити від VBE і подивіться вихід. Ви отримаєте TextBox, як показано нижче:

Тепер я намагаюся ввести в нього ціле число і побачити, чи дозволяє він насправді вводити те саме чи ні.

Бінго, це дозволяє мені зберігати ціле число.

Тепер давайте спробуємо додати до цього текстового поля трохи поплавця (Значення з десятковою точкою) і подивимось, чи дозволяє нам вводити те саме.

Давайте перевіримо, чи дозволяє це текстове поле зберігати під ним якісь негативні значення чи ні. Я наберу якесь від’ємне число і перевірте.

Добре! Добре!! Ну !!!, він знімає повідомлення, в якому говориться, що дозволені лише номери. Це сталося тому, що цей код, написаний спочатку, є умовою IF, він не має ніякого вирішення, що робити, якщо число не додатне. Більше того, вік не може бути негативним. Правильно? Тому я отримую попереджувальне повідомлення, як ви бачите вище. Однак якщо натиснути ОК у вікні повідомлення та спробувати ввести номер, це дозволить зробити це. Але я не рекомендую порушувати правила там.

Нарешті, спробуємо трохи текстового рядка у вікні і подивимось, чи дозволяє він зберігати те саме під текстовим полем чи ні.

Як справедливо очікували, щойно я вписав перший рядовий лист, система завадила мені зробити це, кинувши повідомлення. Це тому, що ми згадали про умову в нашому коді: якщо значення не є числовим, киньте повідомлення користувачеві, у якому вказано, що дозволяються лише числові значення.

Що потрібно пам’ятати

• VBA TextBox - це спеціальна опція під UserForm. Який призначений для отримання даних від самого користувача.
• Існує два способи встановлення значень для TextBox: за допомогою TextBox.Text та за допомогою TextBox.Value.
• Іноді обов'язково обмежувати введення користувача, щоб ми отримували правильний тип даних.

Рекомендовані статті

Це посібник з VBA TextBox. Тут ми обговорюємо, як створити TextBox в Excel VBA разом із практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

1. Як використовувати числову функцію VBA?
2. Створення Combo Box в Excel
3. Вставте CheckBox в Excel
4. Функція VBA UCASE в Excel
5. Як закрити форму користувача в VBA?