Modüle aşağıdaki kodu kaydet

Public Function Round(ByVal Number As Variant, NumDigits As Long, Optional UseBankersRounding As Boolean = False) As Double



  Dim dblPower As Double

  Dim varTemp As Variant

  Dim intSgn As Integer



  If Not IsNumeric(Number) Then



    Err.Raise 5

  End If

  dblPower = 10 ^ NumDigits



  intSgn = Sgn(Number)

  Number = Abs(Number)



  varTemp = CDec(Number) * dblPower + 0.5



  If UseBankersRounding Then

    If Int(varTemp) = varTemp Then

      If varTemp Mod 2 = 1 Then

        varTemp = varTemp - 1

      End If

    End If

  End If

  Round = intSgn * Int(varTemp) / dblPower

End Function

Hesaplanmış alanda ifadeye

round([sayı];0)

yaz.

Tablodaki hesaplanmış alan olayında bence uzak dur.