Как создать textbox excel

Давайте рассмотрим класс TextBox языка VBA, который позволяет размещать на форме текстовое поле. Класс vba TextBox позволяет создавать как многострочные, так и однострочные области для ввода текста, хот в последнем случае удобней воспользоваться функцией MsgBox. Также можно добавлять полосы прокрутки и определять максимальную длину вводимых символом. TextBox может использоваться и как компонент для ввода пароля.

Давайте для начала рассмотрим основные свойства класса TextBox и его базовое событие, а потом напишем пример.

События класса TextBox VBA языка

Value или  Text – текст, который введен в текстовое поле TextBox

Visible – позволяет спрятать (значение false) или снова отобразить (значение true) элемент.

MultiLine – данное свойство позволяет задать, будет ли текстовое поле однострочным (false), или многострочным (true).

WordWrap – свойство актуально использовать, если MultiLine содержит значение true, в таком случае, если WordWrap установлено в true, то произойдет автоматический перенос текста на новую строку, когда будет достигнута граница текстового поля TextBox.

ScrollBars – позволяет указать, будут или отображаться полосы прокрутки. Свойство может принимать следующие значения:

• 0 – fmScrollBarsNone (полосы прокрутки отсутствуют)
• 1– fmScrollBarsHorizontal (горизонтальная полоса прокрутки)
• 2 – fmScrollBarsVertical (вертикальная полоса прокрутки)
• 3 – fmScrollBarsBoth (горизонтальная и вертикальная прокрутки)

PasswordChar – позволяет задать символ, который будет отображаться вместо вводимых данных. Свойство актуально при вводе пароля.

MaxLength – позволяет указать максимальное количество символов, которое можно ввести в текстовое поле. По умолчанию – 0, то есть, ограничения нет.

Как и у других элементов управления, у класса TextBox есть события, основным событием для TextBox является Change – оно возникает каждый раз, когда в текстовое поле вводится символ. Возможно вам приходилось видеть такую картинку: при вводе проверочного кода, пока его длинна не достигнет заданной (например, 12 символов), кнопка “Проверить” не будет доступной. Тут тоже можно такое реализовать.

Хорошо, теперь настало время практики. Я не буду снова вникать во все мелочи, как в прошлых статьях, поэтому скажу прямо: добавьте в проект новый модуль и новую форму. Выберите из окна ToolBox элемент управления Надпись (Label), добавьте ее на форму, пусть будет вверху, под ней поставьте текстовое поле (TextBox), а в самом низу – пусть будет кнопка (CommandButton с надписью “Проверить”). Хорошо, как и прежде, в редакторе кода для модуля прописываем процедуру:

Sub Module3()
    UserForm3.Show
End Sub

Учтите, что имя вашего модуля и формы могут отличаться.

Теперь нам нужно написать программный код на языке VBA, который будет делать следующее:

В текстовое поле будет вводиться текст, длина текста не больше 12 символов, пока длина будет меньше 12 символов, кнопка “Проверить” будет недоступна. Как только мы достигаем предела, кнопка становится активной, при нажатии на нее, содержимое текстового поля TextBox должно отобразиться в поле Label (Надпись).

И так, давайте посмотрим на процедуры, которые я прописал в редакторе кода для формы:

Private Sub bCheck_Click()
    Label1.Caption = TextBox1.Text
End Sub

Тут идет обработка одиночного щелчка по кнопке, при нажатии на кнопку, свойству Caption объекта Label1 (Надпись) будет присвоено содержимое текстового поля TextBox1 (свойство Text).

Private Sub TextBox1_Change()
    Dim LenText As Byte
    LenText = Len(TextBox1.Text)
    If LenText = 12 Then
        bCheck.Enabled = True
    Else
        bCheck.Enabled = False
    End If
End Sub

Тут происходит обработка события Change для текстового поля объекта TextBox1 класса vba TextBox. Переменная LenText будет хранить длину вводимого текста, при каждом вводе данных будет происходить проверка длины, если она ровна 12 – то произойдет активация кнопки, иначе 0 кнопка будет неактивна.

Private Sub UserForm_Activate()
    Label1.Caption = "Введите любой текст"
    Label1.FontSize = 15
    Label1.ForeColor = &H0
    Label1.TextAlign = fmTextAlignCenter
    Label1.WordWrap = True
    TextBox1.MultiLine = False
    TextBox1.MaxLength = 12
    TextBox1.FontSize = 15
    bCheck.Enabled = False
End Sub

В этой процедуре происходит настройка начальных значений, некоторые из них можно задать и в окне Свойств, но я решил для наглядности прописать все в программном коде. Тут нет ничего страшно, как только форма загрузится в память, кнопка “Проверить” будет неактивной, размер шрифта для текстового поля и надписи установлен в 20, также мы установили максимальную длину текста для класса TextBox VBA языка и его однострочность.

This article will demonstrate how to use a Text Box in Excel VBA.

VBA has the ability to create forms that the user can interact with such as Invoice forms, or Contact details. Text Boxes are controls that can be used within these forms, or Text boxes can be created directly within Excel itself.

Creating Text Boxes on VBA forms

To insert a Text Box into a VBA form, we first need to create the form. This is done in the VBE Editor.

First, Open the VBE Editor in Excel.

To insert a new user form into your code, select the UserForm option from the Insert Menu.

A new user form will appear in the Project Explorer and will be shown in the Code Window on the right.

You can rename your form using the Properties box.  This should appear below your Project Explorer.

If it is how visible, Press F4 or click View, Properties Window.

Click in the Name property and rename your form.

We can now start populating our form with controls – the text box control is the most popular control along with the label control.

To populate the form with controls, we need to switch on the Toolbox.

In the Menu, select View > Toolbox.

To create a Text Box on your form, select the Text Box control in the Toolbox.

Drag a box shape on the form with your mouse, holding the left button down, and then release the mouse button.

As this is the first Text Box we are creating, it will be named TextBox1.   As with the form, you can use the Properties window to rename the text box.

You might need to also create a label for your text box on the form.  This is done with a label control.  You drag on the form in the same way as you do for a Text Box, and then you can type the required text within the label control eg: First Name as shown below.

To use the form within VBA Code, we would need to add a command button to the form.  This is done by selecting the Command Button control in the Toolbox and dragging the button onto your form.

You can then continue to create your form using textboxes, labels and command buttons, renaming them as appropriate.

Writing Code Behind Forms

Once we have created our form, we need to write VBA code to insert the information in our form onto our Excel worksheet.  This code is called CBF (Code Behind Forms).

In the the VBE, double-click on the command button to go to the code behind the button.

A sub-routine for the click event for the button will be created.  We can type our VBA code in this routine.  For example:

Private Sub cmdOK_Click()
  Range("A1") = Me.txtFirstName
  Range("A2") = Me.txtSurname
  Range("A3") = Me.txtCellPhone
  Unload Me
End Sub

This routine will put the details typed in the text boxes into Excel, and then close the form.

Creating Text Boxes in an Excel Worksheet

It is also possible to create text boxes within the Excel spreadsheet.  In order to do this, you need to have your Developer Ribbon switched on.

Note: If you don’t see the Developer Ribbon, you’ll need to enable it.

In the Ribbon, select Developer > Insert > ActiveX Controls > TextBox.

Click and drag in your Excel worksheet to draw the text box in the worksheet at the desired position.  Release the mouse button to complete drawing the text box.

The text box will be in Design Mode.  While in this mode, we can size the box, and select the Properties of the text box.

Click on the Properties button to show the Property Window for the text box.  In this window, we  can change a variety of properties of the text box such as the name of the box, the color of the text, background or border, the border style and the font used for the text in the text box for example.

To use the text box direct in Excel as we have used it in the VBA form above, we need a way to return the data typed into the text box to the Excel sheet.  This can be done by adding a ActiveX command button to the worksheet, and using the click_event of this command button to return the information in the text box to the Excel sheet.

In the Ribbon, select Developer > Insert > ActiveX Controls > Command Button  to add a command button to your Excel sheet.   Switch on the Properties window and change the name of the button, the caption of the button and the Accelerator of the button as shown in the image below.

Double-click on the button to go to the VBA click event of the button and type the following code:

Private Sub cmdOK_Click()
   Range("A1") = Me.txtFirstName
End Sub

Switch back to the Excel worksheet, make sure Design Mode is switched off and then type in the created text box.

Click the command button to return the text to Excel.