Доброго времени суток, уважаемые форумчане. Подскажите плиз, какой фукционал в экселе можно и нужно задействовать, чтобы автоматизировать заполнение прилагаемой таблицы. На первом листе (общая) заполняется таблица данных для последующего расчета. Непосредственно столбец В, D, E, F, G, J заполняются уникальными значениями. Т.е. D, E, F, G, J зависят от B. Значения в столбце B могут повторяться. Необходимо, чтобы при вводе в ячейку B значения, которе уже встречалось выше, соответсвующие данные в ячейках D, E, F, G, J проставлялись автоматически.
Заранее спасибо.
Доброго времени суток, уважаемые форумчане. Подскажите плиз, какой фукционал в экселе можно и нужно задействовать, чтобы автоматизировать заполнение прилагаемой таблицы. На первом листе (общая) заполняется таблица данных для последующего расчета. Непосредственно столбец В, D, E, F, G, J заполняются уникальными значениями. Т.е. D, E, F, G, J зависят от B. Значения в столбце B могут повторяться. Необходимо, чтобы при вводе в ячейку B значения, которе уже встречалось выше, соответсвующие данные в ячейках D, E, F, G, J проставлялись автоматически.
В первую очередь обращаю Ваше внимание на тот факт, что в таблице числа сохранены как текст Значения, которые должны проставляться, расчетные или это некие статичные данные из таблицы? Если так, то можно использовать ВПР Смотрите строку 304. Только данных для веса я не нашел. Да и марка стали одинакова для всех деталей. В ячейки столбца J можно просто записать
Код
=ЕСЛИ(B304<>0;"с255";""
А перед ВПР следует использовать ЕСЛИОШИБКА
В первую очередь обращаю Ваше внимание на тот факт, что в таблице числа сохранены как текст Значения, которые должны проставляться, расчетные или это некие статичные данные из таблицы? Если так, то можно использовать ВПР Смотрите строку 304. Только данных для веса я не нашел. Да и марка стали одинакова для всех деталей. В ячейки столбца J можно просто записать
Код
=ЕСЛИ(B304<>0;"с255";""
А перед ВПР следует использовать ЕСЛИОШИБКАlight26
Это статичные значения длины, ширины, высоты, веса и марки стали для номера детали, который проставляется в столбце B. Марка стали в даном случае одна, но бывают разные.
Это статичные значения длины, ширины, высоты, веса и марки стали для номера детали, который проставляется в столбце B. Марка стали в даном случае одна, но бывают разные.Дмитрий3944
Сообщение отредактировал Дмитрий3944 - Среда, 15.09.2021, 11:44
Просто вторая вкладка является результатом, расчетом от первой. У меня тогда получиться придется делать таблицу чтобы сделать таблицу. Как у спанч боба в мультике " пить таблетки чтобы не забыть пить таблетки" )))).
Просто вторая вкладка является результатом, расчетом от первой. У меня тогда получиться придется делать таблицу чтобы сделать таблицу. Как у спанч боба в мультике " пить таблетки чтобы не забыть пить таблетки" )))).Дмитрий3944
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub u = Cells(Rows.Count, "b").End(xlUp).Row + 1 If Not Intersect(Target, Range("b2:b" & u)) Is Nothing Then a = Target.Row b = Target.Value c = Application.Match(b, Range("b1:b" & a), 0) d = Application.IsNumber(c) If d Then Range("d" & a & ":g" & a) = Range("d" & c & ":g" & c).Value Range("j" & a) = Range("j" & c).Value End If End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub u = Cells(Rows.Count, "b").End(xlUp).Row + 1 If Not Intersect(Target, Range("b2:b" & u)) Is Nothing Then a = Target.Row b = Target.Value c = Application.Match(b, Range("b1:b" & a), 0) d = Application.IsNumber(c) If d Then Range("d" & a & ":g" & a) = Range("d" & c & ":g" & c).Value Range("j" & a) = Range("j" & c).Value End If End If End Sub