Article: User Defined Function To Sum And Round To Two Decimal Places

[Ken Puls]

You can view the page at http://www.excelguru.ca/forums/conte...Decimal-Places

[Rick Rothstein]

I have another (somewhat shorter) alternate for your SumR function..

Function SumR(rng As Range) As Double  SumR = Evaluate("SUM(ROUND(" & rng.Address & ",2))")
End Function

[Rick Rothstein]

I see my function code did not layout correctly. I'll try again...

Function SumR(rng As Range) As Double

  SumR = Evaluate("SUM(ROUND(" & rng.Address & ",2))")

End Function

[Bob Phillips]

I would suggest the precision is an optional parameter

Function SumR(rng As Range, Optional ByVal precision As Long = 2) As Double


  SumR = Evaluate("SUM(ROUND(" & rng.Address & "," & precision & "))")


End Function

[Rick Rothstein]

That is a good suggestion Bob, especially given how easy it is to incorporate into my function. In my defense, I was responding to the post code which only wanted to round to 2 decimal places, so unthinkingly I just did the same thing.

[Bob Phillips]

No defence needed Rick, just thought that as you had taken the trouble to suggest the alternative, I might as well suggest an enhancement to make it a tad more useful - couldn't resist .t

Good to see you here BTW. It is not the busiest site, but you will be a good addition.