ник: Зокир
Function W(K1 As Variant, k2 As Variant, k3 As Variant) As Variant
Dim X1 As Variant
Dim X2 As Variant
Dim X3 As Variant
X1 = X2 = X3 = 0
W = 0
If IsNull(K1) Then
X1 = 0
Else
X1 = K1
End If
If IsNull(k2) Then
X2 = 0
Else
X2 = k2
End If
If IsNull(k3) Then
X3 = 0
Else
X3 = k3
End If
W = X1 + X2 + X3
End Function