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

Вход

Регистрация

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

 

= Мир MS Excel/Замена формул макросом - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Замена формул макросом
Литр Дата: Пятница, 24.04.2026, 14:49 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

2013
Уважаемые спецы!
Хочу разгрузить лист от обилия однотипных формул, прошу подсказать как спрятать все вычисления в VBA

Имеем в Е2:
Код
=ЕСЛИОШИБКА(ИНДЕКС(СПИСОК!$B$1:$B$100;ПОИСКПОЗ(D2;СПИСОК!$A$1:$A$100;0));"")

и в Н2
Код
=ЕСЛИ(ИЛИ(F2="";G2="");"";СЦЕПИТЬ(F2;" – ";G2))

Соответственно они протянуты со второй строки и пока до 1500. в Месяц лист прибавляет по 300-400 строк.
Как я себе представляю код можно вставить в модуль листа, что бы при изменении в ячейках столбца D в соответствующую ячейку столбца Е попадал результат вычисления первой функции, и при изменениях в столбцах F или G результат попадал в столбца Н соответствующего ряда

Прошу помочь


Сообщение отредактировал Литр - Пятница, 24.04.2026, 15:56
 
Ответить
СообщениеУважаемые спецы!
Хочу разгрузить лист от обилия однотипных формул, прошу подсказать как спрятать все вычисления в VBA

Имеем в Е2:
Код
=ЕСЛИОШИБКА(ИНДЕКС(СПИСОК!$B$1:$B$100;ПОИСКПОЗ(D2;СПИСОК!$A$1:$A$100;0));"")

и в Н2
Код
=ЕСЛИ(ИЛИ(F2="";G2="");"";СЦЕПИТЬ(F2;" – ";G2))

Соответственно они протянуты со второй строки и пока до 1500. в Месяц лист прибавляет по 300-400 строк.
Как я себе представляю код можно вставить в модуль листа, что бы при изменении в ячейках столбца D в соответствующую ячейку столбца Е попадал результат вычисления первой функции, и при изменениях в столбцах F или G результат попадал в столбца Н соответствующего ряда

Прошу помочь

Автор - Литр
Дата добавления - 24.04.2026 в 14:49
  • Страница 1 из 1
  • 1
Поиск:

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