ta první mi přijde trochu cyklicky tím T4=0.
Ale zkusím jen tak ...
Public Function Funkce1(vstup As Range) As Single
If vstup.Value = "" Then Funkce1 = 0 Else Funkce1 = CSng(vstup.Value)
End Function
Public Function Funkce2(vstup As Range) As Single
If Mid(vstup.Value, 3, 1) = "2" Then Funkce2 = 0.5 Else If vstup.Value = "D" Then Funkce2 = 1 Else Funkce2 = 0
End Function
M@citovat
Ale zkusím jen tak ...
Public Function Funkce1(vstup As Range) As Single
If vstup.Value = "" Then Funkce1 = 0 Else Funkce1 = CSng(vstup.Value)
End Function
Public Function Funkce2(vstup As Range) As Single
If Mid(vstup.Value, 3, 1) = "2" Then Funkce2 = 0.5 Else If vstup.Value = "D" Then Funkce2 = 1 Else Funkce2 = 0
End Function
M@citovat