Vba excel textbox change

Давайте рассмотрим класс 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 языка и его однострочность.

The class use, as the answer above suggests, it is a good strategy to deal with many controls in a concise and elegant way, however:

1) I see no problems in creating 25 events with 1 line, calling a common userform private routine, unless the number of controls is dynamic. It’s a KISS philosophy.

2) Generally, I consider the Change event very disturbing because he does all the recalculation each digit entered. It is more sensible and moderate do this using the Exit event or Before Update event, because it makes the recalculation only when deciding on a value. For instance, The Google Instant annoy me trying to return responses, consuming resources, without the user having defined the question.

3) There was a validation problem. I agree that you can avoid wrong keys with Change event, however if you need to validate the data, you can not know if the user will continue typing or if the data is ready to be validated.

4) You should remember that Change or Exit events does not force the user to pass in text fields, so the system needs to be revalidated and recalculated when trying to exit the form without canceling.

The following code is simple but effective for static forms.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call  AutoCalc(Cancel)
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call  AutoCalc(Cancel)
End Sub
.....
Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call  AutoCalc(Cancel)
End Sub

Private Function Valid
.....
End Function 

Private Sub AutoCalc(Canc As Variant)
If Not Valid() Then Canc=True
'  Calculation
End Sub

It you are addicted to save time, you can create a generic VBA routine in order to generate code for events related to controls in a form that fit a mask. This code can be in a draft sheet (it’s safer that generate directly code, that is buggy in some Excel versions) and than copy and paste to a form module.

 Sub GenerateEvent(Form As String, Mask As String, _
   Evento As String, Code As String)
 '  Form - Form name in active workbook
 '  Mark - String piece inside control name
 '  Evento - Event name to form procedure name
 '  Code   - Code line inside event
 Dim F As Object
 Dim I As Integer
 Dim L As Long
 Dim R As Range
 Dim Off As Long
 Set F = ThisWorkbook.VBProject.VBComponents(Form)
 Set R = ActiveCell   ' Destination code
 Off = 0
 For I = 0 To F.Designer.Controls.Count - 1
    If F.Designer.Controls(I).Name Like "*" & Mask & "*" Then
        R.Offset(Off, 0) = "Private Sub " & _
          F.Designer.Controls(I).Name & "_" & Evento & "()"
        R.Offset(Off + 1, 0) = "     " & Code
        R.Offset(Off + 2, 0) = "End Sub"
        Off = Off + 4
    End If
 Next I
 End Sub

 Sub Test()
 Call GenerateEvent("FServCons", "tDt", "Exit", _
    "Call AtuaCalc(Cancel)")
 End Sub

1. 02-06-2013, 02:41 PM

   
   

   #1

   TextBox Change Event HELP
   

   Hello Excel VBA experts,

   I have created a textbox (activex control) that I would like to work with my calculation. Notice that, the code below, I want users to enter only numerical numbers (including decimals…e.g. 25.50) and if it’s really numerical, the textbox will show it in percentage format with 2 decimal places (e.g. 25.50%). However, whenever I try to type it more than 2 digits, it always goes to the 2nd IF statement where the msgbox is. The reason too why I want it to be a ‘change’ event so that I could see instantly of the calculation when the user input whatever numbers.

   Your help is greatly appreciated!

   Last edited by dluhut; 02-06-2013 at 03:10 PM.

   Reason: Attached file

   ---

2. 02-06-2013, 02:46 PM

   
   

   #2

   Re: TextBox Change Event HELP
   

   you type procedure in «change» event so when You type something procedure starting because its value is change.
   Then in procedure in IF’s you change value of TextBox so it is change again and again

   try to use other event (maybe «AfterUpdate») or change your idea for prevent starting change sub all the time when any value will be typed

   Best Regards
   MaczaQ
   —————————————————————————————————————————
   If you are satisfied with the solution(s) provided, please mark your thread as Solved
   If you are pleased with my answer consider to rate it. To thank someone who has helped you, click on the star icon below their name.
   — This way you will add him some reputation points … thanks in advance.

   ---

3. 02-06-2013, 02:46 PM

   
   

   #3

   Re: TextBox Change Event HELP
   

   Can you attach the workbook that you currently work on?

   ---

4. 02-06-2013, 03:08 PM

   
   

   #4

   Re: TextBox Change Event HELP
   

   @ JieJenn, I have attached the file that I’m working (in the first post after I’ve edit). Forgive me if you see the code in mess, since I’m not a programmer.

   @ MaczaQ, How would you do this then, if you were me. Basically, trying to accomplish these few things.
   1. Instantaneously change the amount when user input.
   2. User able to input with decimals (i.e. 25.2)
   3. Show ‘%’ sign after user have finish input the data in the textbox.

   ---

5. 02-06-2013, 04:14 PM

   
   

   #5

   Re: TextBox Change Event HELP
   

   If the above 3 requirements are not able to met, then I’m willing to take out the ‘%’ sign. Which means point 1 and 2 has to be met

   ---

6. 02-06-2013, 05:06 PM

   
   

   #6

   Re: TextBox Change Event HELP
   

   Public oldvalue As Double

   Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

   temp = TextBox1.Value
   If Not IsNumeric(temp) Then temp = oldvalue
   oldvalue = temp

   TextBox1.Value = Format(oldvalue / 100, «0.00%»)

   End Sub

   Private Sub UserForm_Activate()
   If IsNumeric(TextBox1.Value) Then
   oldvalue = TextBox1.Value
   Else
   oldvalue = 0: TextBox1.Value = Format(0, «0.00%»)
   End If
   End Sub

   ---

7. 02-06-2013, 05:23 PM

   
   

   #7

   Re: TextBox Change Event HELP
   

   @Mehmetcik. Thank for the help. Although I’m not an expert with VBA, however, from the 2nd code, it seems like you assume I’m using a form. But I don’t. I’m using the ActiveX control TextBox. I have attached the spreadsheet for reference

   ---

8. 02-07-2013, 07:40 PM

   
   

   #8

   Re: TextBox Change Event HELP
   

   ---

9. 02-07-2013, 07:54 PM

   
   

   #9

   Re: TextBox Change Event HELP
   

   The following seems to work.

   I created the textbox using «Developer — Insert — Textbox»

   I opened the revelent macro module by clicking on Design Mode then right clicking on the text box and selecting view code.
   Paste the text below into that window.

   Deselect Design mode.

   ENJOY.

   Public oldvalue As Double
   Private Sub TextBox1_Change()
   temp = TextBox1.Value
   If Right(temp, 1) = «%» Then temp = Left(temp, Len(temp) — 1)
   If Not IsNumeric(temp) Then temp = oldvalue
   oldvalue = temp

   TextBox1.Value = Format(oldvalue / 100, «0.00%»)
   End Sub

   ---

10. 02-08-2013, 10:31 AM

    
    

    #10

    Re: TextBox Change Event HELP
    

    Hi Mehmetcik,

    Have tried copying the latest code and still doesn’t work.

    Did you really not see the attached file? It was on the very first post of this thread.

    ---

11. 02-08-2013, 03:29 PM

    
    

    #11

    Re: TextBox Change Event HELP
    

    Ok I’ve modified your code for textbox1.

    As follows:-

    Private Sub TextBox1_Change()

    If flag = True Then GoTo 200

    temp = TextBox1.Value
    If Right(temp, 1) = «%» Then temp = Left(temp, Len(temp) — 1)

    If Len(Me.TextBox1) >= 1 And Not IsNumeric(temp) Then

    MsgBox «Sorry, only numbers allowed»

    TextBox1.Value = vbNullString
    ActiveSheet.Label1.Caption = «»
    ActiveSheet.Label12.Caption = «»
    temp = 36

    Else: flag = Not flag
    If flag = True Then TextBox1.Value = Format(temp / 100, «0.00%»)

    20 End If

    If Range(«C16»).Value = 0 Then
    ActiveSheet.Label49.Caption = «»
    ElseIf Range(«C16»).Value >= 50 Then
    With ActiveSheet.Label49
    .Caption = Format(Range(«E16»).Value, «$#,#.00»)
    .Font.Size = 48
    End With
    Else
    With ActiveSheet.Label49
    .Caption = «Min 50 Phones.»
    .Font.Size = 35
    End With
    End If

    GoTo 300

    200 flag = False

    ActiveSheet.Label1.Caption = Range(«D3»)
    ActiveSheet.Label12.Caption = Format(Range(«E3»).Value, «$#,#.00»)
    300 ‘ exit

    End Sub

    ---

12. 02-08-2013, 04:24 PM

    
    

    #12

    Re: TextBox Change Event HELP
    

    Hi Mehmetcik,

    Sorry for not being clear…instead of TextBox1, is it possible to look at «TextBox_MCDDisc»? It is on that box, where users will be inputting the numerical (with decimals included) and then transform it to «%»…I’ve tried to change your code from TextBox1 to TextBox_MCDDisc and it doesn’t work.

    ---

13. 02-08-2013, 07:20 PM

    
    

    #13

    Re: TextBox Change Event HELP
    

    ---

14. 02-12-2013, 10:22 AM

    
    

    #14

    Re: TextBox Change Event HELP
    

    Hi mehmetcik,

    Really appreciate your help.

    Tried it, but give me the following errors.
    1. Tried to type 2 digits (i.e. 30), result error.
    2. Tried to type 4 digits with decimal (i.e. 25.25), result error.

    ---

15. 02-12-2013, 05:17 PM

    
    

    #15

    Re: TextBox Change Event HELP
    

    Sorry About That.

    I have modified the macro,so it only runs when you exit the text box. This simplifies the code and it seems to work.
    The code is now in the Lostfocus event

    ---

16. 02-13-2013, 10:16 AM

    
    

    #16

    Re: TextBox Change Event HELP
    

    Hi Mehmetcik,

    Although I would like to have it in ‘Change’ instead of LostFocus, but I would consider this thread to be solved. Thanks for all your help. Please check your reputation as I’ve increased it.

    ---