ник: shaucha
'===Сумма с накоплением==='
Public Function SumField(Optional var) As Double
Static D As Double
If IsMissing(var) Then
D = 0
Else
D = D + Nz(var, 0)
End If
SumField = D
End Function
'===Нумерация==='
Public Function Numeration(Optional var) As Long
Static N As Long
If IsMissing(var) Then
N = 0
Else
N = N + 1
End If
Numeration = N
End Function