matarillo #7528(2008/09/01 01:35 GMT) [ Other ] Rating0/0=0.00
VBA for Excel (2003)
1 2 3 4 5 6
Sub Main() b = Val(InputBox("")) i = Int(Log(b + 0.1) / Log(1000)) p = b / 1000 ^ i MsgBox p & IIf(i > 0, Mid("kMGTPEZY", i, 1), "") End Sub
Rating0/0=0.00-0+
[ reply ]
matarillo
#7528()
[
Other
]
Rating0/0=0.00
VBA for Excel (2003)
Sub Main() b = Val(InputBox("")) i = Int(Log(b + 0.1) / Log(1000)) p = b / 1000 ^ i MsgBox p & IIf(i > 0, Mid("kMGTPEZY", i, 1), "") End SubRating0/0=0.00-0+
[ reply ]