最近搞CMMI，由于度量模板中很多都要用到公式，而且模板已经被一些试点项目使用了，发现所有的公式都没有限定小数点后面的位数，所以为了方便需要写一个宏来修改原有公式，来增加限定原有公式结果的小数点后的位数，目前暂定为保留小数点后三位，该宏比较简单，大概就是下面这个样子：
Sub ChangeFormula() Dim col As Integer Dim row As Integer For row = 4 To 4 For col = 10 To 65 worksheet(“度量数据”).Cells(row, col).FormulaR1C1 = “=Round(” + Right(Cells(row, col).FormulaR1C1, Len(Cells(row, col).FormulaR1C1) – 1) + “, 3)” Next NextEnd Sub
比较简单吧…,当然你可以将其中的数字换成常量修改起来会方便一点用最少的浪费面对现在
