Formato de fecha

08/10/2006 - 00:25 por Jesús Díaz | Informe spam
Hola. Necesito saber como introducir una fecha con formato "dd/mm/aaaa" en una celda mediante un formulario y que solo acepte este tipo de entrada. Gracias por adelantado

Preguntas similare

Leer las respuestas

#11 Héctor Miguel
08/10/2006 - 21:51 | Informe spam
hola, Jesús !

hay algunos puntos/tips/detalles/... que [al parecer] has estado 'omitiendo' leer/revisar/probar/entender/... 'entre lineas' [p.e.]

1) el evento '_change' que se dispara CADA VEZ que introduces UN caracter en el textbox [haz una prueba +/- asi]:
a) pon en cualquier celda una formula que 'tome' el contenido de la celda que se modifica con el textbox [p.e. Á1]
b) copia/pega las siguientes instrucciones -> en el modulo de codigo de 'esa' hoja:
Private Sub Worksheet_Calculate()
MsgBox "Re/calculando..."
End Sub
c) lanza el userform... hazle cambios al textbx y... comentas ? :D

2) los cuadros de texto... son 'eso'... controles que 'aceptan' cualquier caractar que les pongas [sigue siendo texto]
los separadores de miles y decimales [punto/coma o viceversa] dependen de la configuracion regional [panel de control windows]
VBA es 'US-Centric' [solo 'acepta' punto en las decimales y coma para los miles] para aplicar formatos, estilos, etc.
[aun asi]... al 'depositar' en las hojas de calculo... 'recurre' a la configuracion regional del equipo -> donde se esta ejecutando
por lo cual [y 'generalmente']... 'convierte apropiadamente' a los separadores correspondientes [similar ocurre con las fechas]

3) para -todas- las sugerencias que te he hecho... he estado 'alternando/cambiando/...' la configuracion regional de mi equipo ;)
los separadores de miles y decimales [punto/coma y viceversa], incluso con el orden de las fechas [consulta original]

4) [insisto]... existe una serie de 'imponderables' con el 'manejo' de numeros/fracciones/fechas/... por VBA desde 'TextBoxes' :))

comentas [despues de probar las sugerencias] por cual opcion/alternativa/variante/... prefieres continuar ?
saludos,
hector.

__ la consulta ___
... he entendido algo, pero lo pruebo tal como lo dices y no funciona
... que si escribo "9.8" con el teclado numerico aparece "98%" como valor en la celda y como texto en el textbox
... si escribo "9,8" con el teclado normal entonces aparece "9,00%" como valor en la celda y "9,8%" como texto en el textbox.
... quiero... que tanto si se escribe usando el teclado numerico ("." para los decimales) como el normal ("," ...)
se almacene y se muestre el valor correcto decimal. De momento lo solvento con:
Private Sub Textbox1_Change()
Worksheets("Hoja").Range("C11").Select
ActiveCell = Textbox1 / 100
ActiveCell = Format(ActiveCell, "0.00%")
End Sub

y sin poner:
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Textbox1(*) = Format(Textbox1 / 100, "0.00%")
End Sub

... Con ese codigo consigo que al usar el teclado numerico se almacene el valor que tecleo
(por ejemplo tecleo "7.5" con numerico y se almacena en la celda "7,5%"), aunque en el textbox me muestra "7.5"
Despues pongo una etiqueta con "%". No es lo mas elegante, pero de momento no veo otra.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida