Something like the following (although this is far from perfect, it illustrates a method)
Code:
[COLOR=blue]Public Function specialformat(Expression As Variant) As String
Dim fmt As String
fmt = String(10 + Len(CStr(Int(Expression))), "0") & "E+"
specialformat = format(Expression, fmt)
End Function[/color]
Thank you for your support but this was not what I was looking for, unfortunately.
Using this notation, the result is not a number anymore I can make a calculation with :-(
I've solved it another way, but thank you anyway
Hi Combo,
Sorry for the late reply.
Your option in the other forum did not work for me either.
I've multiplied the numbers with E+10 and mentioned in the header row that the values are shown as E-10 like shown below.
Would you like to share with the forum? I ask as other people may find this querstion in the future, having a similar one of their own, and it would be useful for them to see how you solved it since neither m y nor combo's answers seem suitable.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.