формулы записанные в vba переобразовать свнова в формулу

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » формулы записанные в vba переобразовать свнова в формулу (Макросы/Sub)

anisimovaleksandr32

Дата: Понедельник, 20.12.2021, 13:22 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 78

Репутация: 4 ±

Замечаний: 20% ±

Добрый день!!!
Простите пжл за такой вопрос но не могу отыскать данное решение
Когда то спрятал формулы "макрорекодером" в код (но со временем потерял файл с формулами в ячейках - сохранял его для того чтоб потом мог легко если что понять что от куда и как считает)

ВОЗМОЖНО ли как то макросом возвернуть к примеру эту формулу
[vba]

Код

With Range("O31:P36")
.FormulaR1C1 = _
"=IF(R[-13]C[3]=""Раствор"",IF(VALUE(R[-5]C)>27,ROUND(RC[-1],2)*100/VLOOKUP(R[-12]C[3],Класс!R[-26]C[-11]:R[-13]C[-9],2,FALSE),ROUND(RC[-1],2)*100/VLOOKUP(R[-12]C[3],Класс!R[-26]C[-11]:R[-13]C[-9],2,FALSE)),IF(VALUE(R[-5]C)>27,(IF(ROUND(RC[-1]*0.8,)>--VLOOKUP(R[-12]C[3],Класс!R[-26]C[-14]:R[-13]C[-12],3,FALSE),""B""&ROUND(RC[-1]*0.8,)&"" > B""&VLOOKUP(R[-12]C[3],Класс!R[-26]C[-14]:R[-13]C[-12],3,FALSE),""В""&ROUND(RC[-1]*0.8,)&"" < В""&VLOOKUP(R[-12]C[3],Класс!R[-26]C[-14]:R[-13]C[-12],3,FALSE))),(""B""&ROUND(RC[-1]*0.8,))))"
.Value = .Value
End With

[/vba]

Отобразить вновь в ячейке чтоб разобраться и вспомнить расчет!?

СПАСИБО ЗАРАНЕЕ ЗА ОТЗЫВЧИВОСТЬ и ПОМОЩЬ...

[p.s.] Да знаю сейчас полетят тапочки - тут же вам и так прописано все можно сказать подробно... Но RC[-1] меня сбивает + английскиенаименования функций