🚀 go-pugleaf

Pato wrote:
> Ta complicado explicarlo pero, b�sicamente, las celdas son as� (la 
> f�rmula est� indicado por ----> y abajo el resultado) Arriba las columnas 
> A,B,C,D y E y a la izquierda con n�mero s�lo las que representan a los 
> resultados �si? Si no la pides al mail
> INT es sin�nimo de ENTERO por si acaso

Ok. Ahora me result�. A pesar de que VBA tiene el operador "\" (divisi�n 
entera), esta provoca desbordamiento, aunque use el modificador de 
Currency por todos lados (@). Viendo tu ejemplo, vi que usas INT, me 
imagin� que ser�a lo mismo, y claro, result�.

Lo que hice fue abrir el editor de VBA (dentro del excel, alt-f11), 
agregu� un nuevo m�dulo con la siguiente funci�n:

-------------------------------------------------------------
Const C_256_3 = 16777216
Const C_256_2 = 65536
Const C_256_1 = 256
Public Function UnpackIp(ByVal pvalue) As String
     Dim part As String
     part = CStr(Int(pvalue / C_256_3))
     pvalue = pvalue - (Int(pvalue / C_256_3) * C_256_3)

     part = part & "." & CStr(Int(pvalue / C_256_2))
     pvalue = pvalue - (Int(pvalue / C_256_2) * C_256_2)

     part = part & "." & CStr(Int(pvalue / C_256_1))
     pvalue = pvalue - (Int(pvalue / C_256_1) * C_256_1)

     part = part & "." & CStr(pvalue)

     UnpackIp = part
End Function
-----------------------------------------------------------------------

Luego, lo grab� como "Add-in" o "Complemento" (.xla). Luego, lo habilit� 
(Herramientas -> Complementos) y en la planilla Excel lo us� como una 
funci�n normal (por ej., "=UnpackIP(A1)").

Ojal� que a alguien le sirva.

Saludos,
--
Leonardo Herrera
http://leus.epublish.cl