Una para la araña (Lease dificil de resolver)

hola, Carlos

... separador de miles es la coma y el separador de decimales el punto.
... Userform .. se captura el tipo de cambio ... en un textbox ... vinculado a una celda [...]
... al hacer la captura, almacena un valor diferente al capturado
... captura: 11.1818, valor almacenado en la celda: 111,818.00
... he verificado el panel de control, la configuracion regional, y en Excel ... las opciones de Internacional,
... el problema persiste, aun capturando ... directamente en la celda o ... un pegado especial,
... la celda presenta este extraño comportamiento
... resuelto, quitando el vinculo del textbox a la celda ... la captura del textbox ... mediante codigo a la celda [...]
alguien puede explicarme el porque de este comportamiento?

1.- el 'comportamiento' NO es 'de la celda'... ES del textbox =>cuando esta 'ligado' a una celda<2.- un textbox =>'ligado'<= NO 'acepta' el punto como un 'caracter valido' para sus propiedades .Value/.Text
=> aun si lo introduces en 'esos campos' en la ventana de propiedades [en 'tiempo de diseño'] < => y... dicho sea 'de paso'... tambien 'le desaparece' el formato a la celda y 'le aplica' uno 'numerico' con 0 decimales <:((
3.- [al parecer] es un 'bug-no-atendido', que SOLO 'se presenta' en las versiones 'non-us-centric' de la aplicacion :((
a pesar de que [el uso 'entendido' de] un textbox 'toma' [preferentemente] TEXTOS y 'debiera aceptar' CUALQUIER caracter,
[en el caso de 'valores' ligados a una celda] 'pareciera asumir' que toda version 'non-us-centric' usa la coma en las decimales
[???]
=> viene 'presentandose' desde la version '97 hasta la version 2003 <= :((
4.- haciendo algunas pruebas [afortunadamente, no es 'tan dificil de resolver']... lo siguiente 'funciona de maravilla'...
=> QUITA el vinculo de/a la celda [para que no 'tome de ahi' algun valor 'separando las decimales por comas'] y...
en el modulo de codigo del formulario ==Private Sub TextBox1_Change()
Range("a1") = Val(Me.TextBox1)
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("a1").NumberFormat = "0.0000"
End Sub

[modifica segun tus necesidades... o continua usando la solucion que comentas] ;)
solo 'toma en cuenta' que la funcion Val() [vba] SOLO 'acepta' EL PUNTO como 'separador de decimales' ;)
saludos,
hector.

Gracias,

Esto me aclara algunas dudas, basicamente se trata de un problema que me
atrapó por un tiempo considerable, y queria compartir esa inquietud

;-)


"Héctor Miguel" escribió en el mensaje
news:

hola, Carlos

> ... separador de miles es la coma y el separador de decimales el punto.
> ... Userform .. se captura el tipo de cambio ... en un textbox ...

vinculado a una celda [...]

> ... al hacer la captura, almacena un valor diferente al capturado
> ... captura: 11.1818, valor almacenado en la celda: 111,818.00
> ... he verificado el panel de control, la configuracion regional, y en

Excel ... las opciones de Internacional,

> ... el problema persiste, aun capturando ... directamente en la celda o

... un pegado especial,

> ... la celda presenta este extraño comportamiento
> ... resuelto, quitando el vinculo del textbox a la celda ... la captura

del textbox ... mediante codigo a la celda [...]

> alguien puede explicarme el porque de este comportamiento?

1.- el 'comportamiento' NO es 'de la celda'... ES del textbox =>cuando

esta 'ligado' a una celda<> 2.- un textbox =>'ligado'<= NO 'acepta' el punto como un 'caracter valido'
para sus propiedades .Value/.Text

=> aun si lo introduces en 'esos campos' en la ventana de propiedades

[en 'tiempo de diseño'] <> => y... dicho sea 'de paso'... tambien 'le desaparece' el formato a
la celda y 'le aplica' uno 'numerico' con 0 decimales <> :((

3.- [al parecer] es un 'bug-no-atendido', que SOLO 'se presenta' en las

versiones 'non-us-centric' de la aplicacion :((

a pesar de que [el uso 'entendido' de] un textbox 'toma'

[preferentemente] TEXTOS y 'debiera aceptar' CUALQUIER caracter,

[en el caso de 'valores' ligados a una celda] 'pareciera asumir' que

toda version 'non-us-centric' usa la coma en las decimales

[???]
=> viene 'presentandose' desde la version '97 hasta la version 2003

<= :((

4.- haciendo algunas pruebas [afortunadamente, no es 'tan dificil de

resolver']... lo siguiente 'funciona de maravilla'...

=> QUITA el vinculo de/a la celda [para que no 'tome de ahi' algun

valor 'separando las decimales por comas'] y...

en el modulo de codigo del formulario ==> Private Sub TextBox1_Change()
Range("a1") = Val(Me.TextBox1)
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("a1").NumberFormat = "0.0000"
End Sub

[modifica segun tus necesidades... o continua usando la solucion que

comentas] ;)

solo 'toma en cuenta' que la funcion Val() [vba] SOLO 'acepta' EL PUNTO

como 'separador de decimales' ;)

saludos,
hector.