Ver Mensaje Individual
  #7 (permalink)  
Antiguo 13/05/2010, 10:25
Avatar de Monimo
Monimo
 
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.