En La mayoría de los desarrollos que realicemos en VBA, siempre tendremos la necesidad de utilizar un TextBox, ya sea como medio de entrada para enviar datos a una hoja de cálculo, o para mostrar datos como resultado de una consulta o simplemente para obtener el cálculo de una operación aritmética. En fin, las posibilidades pueden ser diversas.
En este capítulo conoceremos las propiedades más relevantes de un TextBox, y por las cuales nos resulta de mucha importancia, la utilización de este tipo de controles para nuestros proyectos.
A continuación tenemos un código de programación VBA con el cual podrán hacer un sencillo formulario de captura de datos...
Private Sub CommandButton1_Click()
Dim f As Long
If TextBox1 = Empty Then
MsgBox "Debe ingresar un nombre de cliente"
TextBox1.SetFocus
Exit Sub
ElseIf TextBox2 = Empty Then
MsgBox "Debe ingresar un ocrreo electrónico"
TextBox2.SetFocus
Exit Sub
End If
If Cells(1, 13) = Empty And Cells(1, 14) = Empty Then
Cells(1, 13) = "Nombre del Cliente"
Cells(1, 13).Font.Bold = True
Cells(1, 14) = "Correo electrónico"
Cells(1, 14).Font.Bold = True
End If
f = Cells(Rows.Count, 13).End(xlUp).Row + 1
Cells(f, 13) = TextBox1.Text
Cells(f, 14) = TextBox2.Text
TextBox1 = Empty
TextBox2 = Empty
TextBox1.SetFocus
End Sub
Te invito a ver el vídeo en YouTube y conozcas las características principales de este control ActiveX
 |
Ver vídeo |