Re: Excel kerekítés kérdés

[Nits László]

Szia!

Kezdetleges VB megoldás, de lehet számodra megfelelő:
(dátum, százalék és pénznem formátumoknál a cella értékével számol)

Function FSZUM(tartomány As Range)
Dim Scella As String
Dim Dcella As Double
Dim összeg As Double
Application.Volatile
összeg=0
For Each c In tartomány
   If (IsNumeric(c) Or IsDate(c)) And c.Value <> 0 Then
      Scella = Format(c, c.NumberFormat)
      On Error Resume Next
      Dcella = CDbl(Scella)
      If Err.Number <> 0 Then
         Scella = Format(c, "General Number")
         Dcella = CDbl(Scella)
      End If
      összeg = összeg + Dcella
   End If
Next c
FSZUM = összeg
End Function

üdv.: Nits L.