Всем привет! Подскажите пожалуйста инструмент/способ который поможет создать такую реализацию:
На Листе №2 есть несколько зависимых (по ячейкам) формулы, изначально на вход им подаются 2 значения (Например А1 и B1), как результат всех расчетов, мы получаем 2 значения, которые вносятся в строчку №1 для Листа №1.
Вопрос, можно ли сделать единый шаблон-формулу на Листе №2? т.е При внесении новой строчки входных данных на лист №1, данные проходят через единую формулу на Листе №2 и записывается результат в соответстующей колонке для определенной строчки на листе №1.
Лист№1 =======Лист №2
Строчки с данными 1) А1 Б1 ======= Значения А1 Б1 из листа №1 идут в Лист№2, проходят по формуле и значения (итог) С1 Д1 из Листа №2 копируются в Лист№1 в отдельную ячейку к строчке 1 Лист№1 2) А2 Б2 ======= Значения А2 Б2 из листа №1 идут в Лист№2, проходят по формуле и значения (итог) С1 Д1 из Листа №2 копируются в Лист№1 в отдельную ячейку к строчке 2 Лист№1 3) А3 Б3 ======= Значения А3 Б3 из листа №1 идут в Лист№2, проходят по формуле и значения (итог) С1 Д1 из Листа №2 копируются в Лист№1 в отдельную ячейку к строчке 3 Лист№1 4) и т.д
Спасибо
Всем привет! Подскажите пожалуйста инструмент/способ который поможет создать такую реализацию:
На Листе №2 есть несколько зависимых (по ячейкам) формулы, изначально на вход им подаются 2 значения (Например А1 и B1), как результат всех расчетов, мы получаем 2 значения, которые вносятся в строчку №1 для Листа №1.
Вопрос, можно ли сделать единый шаблон-формулу на Листе №2? т.е При внесении новой строчки входных данных на лист №1, данные проходят через единую формулу на Листе №2 и записывается результат в соответстующей колонке для определенной строчки на листе №1.
Лист№1 =======Лист №2
Строчки с данными 1) А1 Б1 ======= Значения А1 Б1 из листа №1 идут в Лист№2, проходят по формуле и значения (итог) С1 Д1 из Листа №2 копируются в Лист№1 в отдельную ячейку к строчке 1 Лист№1 2) А2 Б2 ======= Значения А2 Б2 из листа №1 идут в Лист№2, проходят по формуле и значения (итог) С1 Д1 из Листа №2 копируются в Лист№1 в отдельную ячейку к строчке 2 Лист№1 3) А3 Б3 ======= Значения А3 Б3 из листа №1 идут в Лист№2, проходят по формуле и значения (итог) С1 Д1 из Листа №2 копируются в Лист№1 в отдельную ячейку к строчке 3 Лист№1 4) и т.д
т.е некая замороженная формула-template, в которую подаются данные из другого листа, и результат копируется как уникальный, в необходимую строчку для листа из которого были поданы данные. цель: избежать создание отдельного листа с формулами для каждой строчки. так-как если строчек будет 1000000+ ==> 1000000+ листов (что будет фризить всю работу - строчек очень много)
т.е некая замороженная формула-template, в которую подаются данные из другого листа, и результат копируется как уникальный, в необходимую строчку для листа из которого были поданы данные. цель: избежать создание отдельного листа с формулами для каждой строчки. так-как если строчек будет 1000000+ ==> 1000000+ листов (что будет фризить всю работу - строчек очень много)Exceluser13
Добрый день! Вот пример (тестовый, я сделал легкую формулу, но суть передал)
Цель заполнять только 3 значения (Price просто для полноты добавил, в примере не участвует), выделенные зеленым, как результат, получать данные (выделил голубым)
Для трех строчек, мне пришлось создать 3 листа, хотя формула идентичная.
Добрый день! Вот пример (тестовый, я сделал легкую формулу, но суть передал)
Цель заполнять только 3 значения (Price просто для полноты добавил, в примере не участвует), выделенные зеленым, как результат, получать данные (выделил голубым)
Для трех строчек, мне пришлось создать 3 листа, хотя формула идентичная.Exceluser13
растянуть формулы я не могу, так-как у меня очень много формул, которые зависимы, и занимают "целый лист" (там еще есть константы, для условий)
растянуть формулы я не могу, так-как у меня очень много формул, которые зависимы, и занимают "целый лист" (там еще есть константы, для условий)Exceluser13
Private Sub Worksheet_Change(ByVal Target As Range) a = Cells(Rows.Count, "b").End(xlUp).Row If Not Intersect(Target, Range("b2:e" & a)) Is Nothing Then If Target.Count > 1 Then MsgBox "Ввод по 1-й ячейке!" Exit Sub End If b = Target.Row Sheets("Product1").Range("b2:e2") = Range("b" & b & ":e" & b).Value Range("g" & b) = Sheets("Product1").Range("g2").Value End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) a = Cells(Rows.Count, "b").End(xlUp).Row If Not Intersect(Target, Range("b2:e" & a)) Is Nothing Then If Target.Count > 1 Then MsgBox "Ввод по 1-й ячейке!" Exit Sub End If b = Target.Row Sheets("Product1").Range("b2:e2") = Range("b" & b & ":e" & b).Value Range("g" & b) = Sheets("Product1").Range("g2").Value End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
