Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/формулы записанные в vba переобразовать свнова в формулу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » формулы записанные в vba переобразовать свнова в формулу (Макросы/Sub)
формулы записанные в vba переобразовать свнова в формулу
anisimovaleksandr32 Дата: Понедельник, 20.12.2021, 13:22 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 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] меня сбивает + английскиенаименования функций
 
Ответить
СообщениеДобрый день!!!
Простите пжл за такой вопрос но не могу отыскать данное решение
Когда то спрятал формулы "макрорекодером" в код (но со временем потерял файл с формулами в ячейках - сохранял его для того чтоб потом мог легко если что понять что от куда и как считает)

ВОЗМОЖНО ли как то макросом возвернуть к примеру эту формулу
[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] меня сбивает + английскиенаименования функций

Автор - anisimovaleksandr32
Дата добавления - 20.12.2021 в 13:22
Nic70y Дата: Понедельник, 20.12.2021, 14:10 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7731
Репутация: 1856 ±
Замечаний: 0% ±

Excel 2010
просто закоментируйте[vba]
Код
.Value = .Value
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщениепросто закоментируйте[vba]
Код
.Value = .Value
[/vba]

Автор - Nic70y
Дата добавления - 20.12.2021 в 14:10
anisimovaleksandr32 Дата: Понедельник, 20.12.2021, 14:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, :'( пипец тааааак просто %)
СПАСИБО ОГРОМНЕЙШЕЕ
 
Ответить
СообщениеNic70y, :'( пипец тааааак просто %)
СПАСИБО ОГРОМНЕЙШЕЕ

Автор - anisimovaleksandr32
Дата добавления - 20.12.2021 в 14:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » формулы записанные в vba переобразовать свнова в формулу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!