Помощь в создании пользовательской функции

[Марсул]

Помощь в создании пользовательской функции

Помогите пож-ста создать пользовательскую функцию для нескольких формул: смотреть в приложении. СПАСИБО ЗАРАНЕЕ.
Не могу вложить приложение. Напишу так.
A4= 145.66 км -например (исходные данные не в числовом формате + единицы измерения)
B4=НАЙТИ(".";A4;1)
C4=ЗАМЕНИТЬ(A4;B4;1;",")
D4=ДЛСТР(C4)
E4=ЛЕВСИМВ(C4;D4-3)
F4=ЗНАЧЕН(E4)
В итоге в ячейке (в данном примере "F4") появляется числовое значение = 145,66. Из этих всех функций надо создать одну.:tehnari_ru_942:

 

[Марсул]

Получилось наконец-то вложение:Посмотреть вложение ПРИМЕР для вопроса.doc

 

[tehnofin]

Если речь идет действительно о пользовательской функции, то решение будет вот таким:
Function Preobrazovat(Znachenie)
y = Replace(Znachenie, ".", ",", , 1)
Preobrazovat = CDbl(Left(y, Len - 3))
End Function

если же речь идет просто о сложной составной функции, которую можно собрать из стандартных функций Excel, то решение будет следующим:
=ЗНАЧЕН(ЛЕВСИМВ(ЗАМЕНИТЬ(A4;НАЙТИ(".";A4;1);1;",");ДЛСТР(A4)-3))