/ / Текстова кутия за Excel VBA

Текстова кутия за Excel VBA

Текстовото поле е празно поле, където потребителят може да попълните част от текста. За да създадете текстово поле в Excel VBA, изпълнете следните стъпки.

1. В раздела Разработчик кликнете върху Вмъкване.

2. В групата ActiveX Controls щракнете върху Text Box.

Създайте текстово поле в Excel VBA

3. Преместете с мишката командния бутон и текстовото поле на работния лист.

4. Кликнете с десния бутон върху командния бутон (уверете се, че е избран режим на проектиране).

5. Щракнете върху Преглед на кода.

Преглед на кода

Забележка: можете да промените надписите и името на контрола, като щракнете с десния бутон върху контрола (уверете се, че е избран режим на проектиране) и след това кликнете върху Properties (Свойства). Променете надписа на командния бутон за импортиране на данни. Засега ще оставим TextBox1 като името на текстовото поле.

6. Добавете следния код:

TextBox1.Text = "Data imported successfully"

7. Щракнете върху командния бутон на листа (уверете се, че Design Mode не е избран).

Резултат:

Текстово поле

8. За да изчистите текстово поле, използвайте следния ред:

TextBox1.Value = ""

Забележка: въпреки че в някои ситуации може да е полезно директно да поставите текстово поле в работния лист, текстовата кутия е особено полезна, когато е поставена на Userform.

Също така се чете: