excel 中关于银行家舍入的问题

测量数据经常涉及到银行家舍入问题，而在excel中，没有提供直接的类似math.round(a,b)的函数，所以碰到这样的问题，很是麻烦。这里提供一个vba编程的简单办法实现银行家舍入功能：

 

'把函数添加到自带函数中

Public Sub addfuntion()
Application.MacroOptions macro:="mathround", Description:= _
"银行家舍入", Category:=1

End Sub

 

'功能实现

Public Function mathround(a1 As Double, a2 As Integer) As Double
mathround = Math.Round(a1, a2)
End Function

 

很简答吧！