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

Марсул · 30.08.2012, 09:40

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

Марсул · 30.08.2012, 09:53

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

tehnofin · 07.01.2013, 22:57

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

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

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

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

30.08.2012, 09:40
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Предлагаю вам ознакомится с аналогичными темами на нашем форуме Нужна помощь в создании полного УНЧ Нужна помощь в создании небольшой схемы для подсветки

30.08.2012, 09:53	#2 (permalink)
Марсул Новичок Регистрация: 24.08.2012 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Получилось наконец-то вложение:ПРИМЕР для вопроса.doc

07.01.2013, 22:57	#3 (permalink)
tehnofin Новичок Регистрация: 23.11.2012 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Если речь идет действительно о пользовательской функции, то решение будет вот таким: Function Preobrazovat(Znachenie) y = Replace(Znachenie, ".", ",", , 1) Preobrazovat = CDbl(Left(y, Len(y) - 3)) End Function если же речь идет просто о сложной составной функции, которую можно собрать из стандартных функций Excel, то решение будет следующим: =ЗНАЧЕН(ЛЕВСИМВ(ЗАМЕНИТЬ(A4;НАЙТИ(".";A4;1);1;",") ;ДЛСТР(A4)-3))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070