Function iSum_Even_Odd(All As Range, Flag As Integer) As Long
' Сумма четных (Flag=1) или нечетных (Flag=2) целых чисел диапазона ячеек (All)
iSum_Even_Odd = 0
For Each iAll In All
If Int(iAll) = iAll Then
If iAll Mod 2 = 0 And Flag = 1 Then iSum_Even_Odd = iSum_Even_Odd + iAll
If iAll Mod 2 <> 0 And Flag = 2 Then iSum_Even_Odd = iSum_Even_Odd + iAll
End If
Next
End Function
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.