Numero con punto
Experto quiero escribir por medio de un TextBox la carturarlo en A1 lo siguiente
8050310232 esto es el nit de identificación de una empresa y cuando lo digite debe de quedar en A1 así 805.031.023-2 me podrías decir como debo de construir el TextBox, Gracias
8050310232 esto es el nit de identificación de una empresa y cuando lo digite debe de quedar en A1 así 805.031.023-2 me podrías decir como debo de construir el TextBox, Gracias
{"Lat":4.91583280131316,"Lng":-75.234375}
1 Respuesta
Respuesta de Abraham Valencia
1
Pues supondré un Textbox1 y un CommandButton1, entonces, algo así creo que te serviría:
Private Sub CommandButton1_Click()
If Len(TextBox1) <> 10 Or Not IsNumeric(TextBox1) Then
MsgBox "Tiene que ingresar 10 numeros"
Exit Sub
End If
[a1] = Left(TextBox1, 3) & "." & Mid(TextBox1, 4, 3) & "." & Mid(TextBox1, 7, 3) & "-" & Right(TextBox1, 1)
End Sub
Abraham
Private Sub CommandButton1_Click()
If Len(TextBox1) <> 10 Or Not IsNumeric(TextBox1) Then
MsgBox "Tiene que ingresar 10 numeros"
Exit Sub
End If
[a1] = Left(TextBox1, 3) & "." & Mid(TextBox1, 4, 3) & "." & Mid(TextBox1, 7, 3) & "-" & Right(TextBox1, 1)
End Sub
Abraham
