La Web del Programador: Comunidad de Programadores
 
    Pregunta:  53695 - CONVERTIR UN TEXTO A CURRENCY DE 4 DECIMALES, MACRO EN EXCEL
Autor:  Clauknot
el problema es el siguiente.

tengo una macro para EXCEL que carga un archivo TXT, donde una parte del texto es de tipo numerico de 20 digitos y 4 decimales. como el siguiente ejemplo.

0000000000001038784212112

y debo llevarlo a 103.878.421,2112

probe por el lado de cambiar las formulas de excel en tiempo de ejecucion, no funciono.

probe con cambiar el formato a currency, funciona, pero los deja solo con 2 decimales, cambie mi configuracion regional, para poner 4 decimales en moneda y en numero, pero no funciono.

eh probado distintas formas de cambiale el formato. Logre cambiarlo escribiendole yo los "." y el signo decimal "," y poniendolo en la celda como texto, o sea: algo asi, Cells(fila, columna).Value = "'" & temp_moneda

Pero esto lo transforma a texto y por ende despues no se puede sumar ni nada.

Entonces, alguien por ahi sabra como llevarlo a un currency de 4 decimales? con codigos visual basic?, de ante mano gracias.

  Respuesta:  Jorge Morales
Prueba con este metodo de el objeto rango

range("a1").numberformat="#,##0.0000"

Nota que yo estoy usando la "," para separar millares y "." para los decimales y el numero de "0" que pongas despues del "." seran el numero de decimales que te mostrara en este caso 4. De esta forma solo estas cambiando el formato en que se muestra y los datos (o formula que tengas) permanecen intactos. Espero haya sido de tu ayuda. Saludos