программирование формулы в макросе - Microsoft Office Excel

пиксаев · 10.04.2015, 09:04

помогите пожалуйста ( мне нужно вот эту формулу переписать в макрос) спасибо =если (A2="мягкий";если (D2<100;B2*C2;если (D2<=200;B2*C2*0,97;B2*C2*0,95));ес ли (D2<50;B2*C2;если (D2<=100;B2*C2*0,96;B2*C2*0,93)))

kuklp · 10.04.2015, 13:56

Код:

"=If(A2=""мягкий"",If(D2<100,B2*C2,If(D2<=200,B2*C2*0.97,B2*C2*0.95)),If(D2<50,B2*C2,If(D2<=100,B2*C2*0.96,B2*C2*0.93)))"

Hugo121 · 10.04.2015, 15:47

Чтоб в другой раз не спрашивать:
1. пишите формулу в ячейку
2. становитесь на ячейку
3. в окно immediate вводите ?selection.formula (в конце enter)
4. читаете/копируете результат в код (кавычки задваиваете)

IgorGO · 10.04.2015, 16:44

подозреваю что нужно это:

Код:

Function X()
  х = [B2] * [C2] * IIf [A2] = "мягкий", IIf([D2] < 100, 1, IIf([D2] <= 200, 0.97,  0.95)), IIf([D2] < 50, 1, IIf([D2] <= 100, 0.96,  0.93)))
End Function

10.04.2015, 09:04	#1
пиксаев Новичок Джуниор Регистрация: 10.04.2015 Сообщений: 2	программирование формулы в макросе помогите пожалуйста ( мне нужно вот эту формулу переписать в макрос) спасибо =если (A2="мягкий";если (D2<100;B2C2;если (D2<=200;B2C20,97;B2C20,95));ес ли (D2<50;B2C2;если (D2<=100;B2C20,96;B2C20,93))) Последний раз редактировалось пиксаев; 10.04.2015 в 09:10.

10.04.2015, 13:56	#2
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Код: `"=If(A2=""мягкий"",If(D2<100,B2C2,If(D2<=200,B2C20.97,B2C20.95)),If(D2<50,B2C2,If(D2<=100,B2C20.96,B2C20.93)))"` mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

10.04.2015, 15:47	#3
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Чтоб в другой раз не спрашивать: 1. пишите формулу в ячейку 2. становитесь на ячейку 3. в окно immediate вводите ?selection.formula (в конце enter) 4. читаете/копируете результат в код (кавычки задваиваете) webmoney: E265281470651 Z422237915069 R418926282008

10.04.2015, 16:44	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	подозреваю что нужно это: Код: `Function X() х = [B2] * [C2] * IIf [A2] = "мягкий", IIf([D2] < 100, 1, IIf([D2] <= 200, 0.97, 0.95)), IIf([D2] < 50, 1, IIf([D2] <= 100, 0.96, 0.93))) End Function` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете Последний раз редактировалось IgorGO; 10.04.2015 в 16:46.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка в макросе	Арианна	Microsoft Office Excel	15	14.10.2013 15:06
Запись формулы в макросе	Tanit	Microsoft Office Excel	3	22.02.2013 13:03
Сортировка в макросе	Илья Николаевич	Microsoft Office Excel	2	05.07.2010 15:34
Функции в макросе.	Rom1k06	Microsoft Office Excel	7	19.10.2008 11:22