Strange Calculation Error in Excel (2)
Don't forget to use this on a copy of your worksheet.
Macros disable the "undo" function.
Gord
On Sat, 03 Dec 2005 08:23:57 -0800, Gord Dibben <gorddibbATshawDOTca@ wrote:
Sub RoundAdd()
Dim myStr As String
Dim cel As Range
For Each cel In Selection
If cel.HasFormula = True Then
If Not cel.Formula Like "=ROUND(*" Then
myStr = Right(cel.Formula, Len(cel.Formula) - 1)
cel.Value = "=ROUND(" & myStr & "," & "2" & ")"
End If
End If
Next
End Sub
Gord Dibben Excel MVP
On Sat, 3 Dec 2005 23:20:10 +0800, "0-0 Wai Wai ^-^" wrote:
I'm willing to use round(), but there are tons of rewriting.
It seems to be impossible to rewrite all of them by human.
It would be great if you could suggest a method which can rewrite 1000 formulas
automatically.
|