TextBox
Hola Elsa Matilde
Cómo puedo colocar en un textbox un punto permanente, ya que quiero que cada vez que
digite 6 caracteres, se distribuyan en el textbox los primeros 4 caracteres que serían los
millares y al digitar los otros 2 caracteres que serían los decimales me brinque el punto
decimal mientras vaya digitando en el textbox.
Gracias y Saludos!
Cómo puedo colocar en un textbox un punto permanente, ya que quiero que cada vez que
digite 6 caracteres, se distribuyan en el textbox los primeros 4 caracteres que serían los
millares y al digitar los otros 2 caracteres que serían los decimales me brinque el punto
decimal mientras vaya digitando en el textbox.
Gracias y Saludos!
1 respuesta
Respuesta de Elsa Matilde
1
Este es un ejemplo. Te aclaro que aunque se vea como un valor de moneda sigue siendo texto. Para pasarlo a celda valen las mismas indicaciones que si ingresaras manualmente la cifra completa con punto.
Private Sub TextBox1_AfterUpdate()
TextBox1 = Mid(TextBox1, 1, 4) & "." & Mid(TextBox1, 5, 2)
ActiveSheet.Range("B212") = TextBox1 'opción para pasar a celda
ActiveSheet.Range("B213") = Val(TextBox1) 'otra opción - Ver resultado y comparar.
End Sub
Con esta rutina estamos asumiendo que 'siempre' se ingresarán 4 cifras, pero si esto no será así deberás evaluar el largo y en base a eso ajustar las instrucciones MID
Private Sub TextBox1_AfterUpdate()
TextBox1 = Mid(TextBox1, 1, 4) & "." & Mid(TextBox1, 5, 2)
ActiveSheet.Range("B212") = TextBox1 'opción para pasar a celda
ActiveSheet.Range("B213") = Val(TextBox1) 'otra opción - Ver resultado y comparar.
End Sub
Con esta rutina estamos asumiendo que 'siempre' se ingresarán 4 cifras, pero si esto no será así deberás evaluar el largo y en base a eso ajustar las instrucciones MID
