13/05/2010, 10:25
|
| | | Fecha de Ingreso: noviembre-2007 Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 17 años Puntos: 69 | |
Respuesta: ayuda para macro excel vba o se que quieres hacer y no se si quieres q te explique linea por linea si si ahi te va:
dim iposicion as integer 'iposicion es un contador
dim ivalor as double 'ivalor sera el resultado de la division
dim stexto as string 'stexto el texto que estas separando
iposicion = instr(mitexto,".") 'iposicion es el resultado de buscar en q posicion esta el "." en tu texto
stexto = mid$(mitexto,1,iposicion-1) 'aqui le dices que empezando a contar desde la posicion uno te extraiga todo lo q hay hasta encontrar el punto decimal. esta funcion sirve asi: mid(eltextoquequieres,empezardesdedonde,cuantaslet rasextraer)
ivalor = val(stexto)'convierte todo el texto a numero
stexto = mid$(mitexto,iposicion+1,len(mitexto)-(iposicion+1)) aqui extrae de tu texto todo lo que haya despues del punto.
ivalor = ivalor + (val(stexto)/100) aqui divide el textoe ntre cien pero ya transformado a a numero. |