Здравствуйте! Имеется умная таблица, вторая строка которой почти дублирует значения первой. И такая закономерность (парность) должна сохраняться. Задача:как этого добится? Ведь при добавлении данных таблица копирует сама формулы последней строки, а надо чтобы через одно. То есть идеальным решением было бы при добавлении данных сразу добавлялись парные строки. Надеюсь, сумел объяснить)). Какие тут могут быть варианты решения? Буду весьма признателен.
Здравствуйте! Имеется умная таблица, вторая строка которой почти дублирует значения первой. И такая закономерность (парность) должна сохраняться. Задача:как этого добится? Ведь при добавлении данных таблица копирует сама формулы последней строки, а надо чтобы через одно. То есть идеальным решением было бы при добавлении данных сразу добавлялись парные строки. Надеюсь, сумел объяснить)). Какие тут могут быть варианты решения? Буду весьма признателен.nikitan95
Александр, спасибо! В исходном файле стоит такая формула. Ради оптимизации я убрал, надеясь через автозаполнение заменить ее. Аналогичная формула стояла во второй строке столбца А, которая присваивала Б, если в предыдущей стояла А. Насчет маскроса. Строк намечается быть от 4 до 5 тыс. Столбцов до 30. Не будет ли это сильно тормозит исполнение макроса? И если Вас не затруднить это и не доставить лишних хлопот, поможете с макросом? Рекордером не смог я. Заранее благодарствую.
Александр, спасибо! В исходном файле стоит такая формула. Ради оптимизации я убрал, надеясь через автозаполнение заменить ее. Аналогичная формула стояла во второй строке столбца А, которая присваивала Б, если в предыдущей стояла А. Насчет маскроса. Строк намечается быть от 4 до 5 тыс. Столбцов до 30. Не будет ли это сильно тормозит исполнение макроса? И если Вас не затруднить это и не доставить лишних хлопот, поможете с макросом? Рекордером не смог я. Заранее благодарствую.nikitan95
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Target.Value <> "Б" Then Exit Sub n_ = Range("ТАБЛ").Rows.Count If Not Intersect(Target, Range("ТАБЛ[Группа]")(n_)) Is Nothing Then Range("ТАБЛ").Rows(n_ - 1).Offset(, 1).Copy Range("ТАБЛ").Offset(, 1).Rows(n_) End If End Sub
[/vba]
Такой вариант [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Target.Value <> "Б" Then Exit Sub n_ = Range("ТАБЛ").Rows.Count If Not Intersect(Target, Range("ТАБЛ[Группа]")(n_)) Is Nothing Then Range("ТАБЛ").Rows(n_ - 1).Offset(, 1).Copy Range("ТАБЛ").Offset(, 1).Rows(n_) End If End Sub
Александр, спасибо! Хотя только завтра смогу проверить, но раз вы написали, сему можно доверить), но завтра окончательно выскпжусь. Благодарю!
Александр, спасибо! Хотя только завтра смогу проверить, но раз вы написали, сему можно доверить), но завтра окончательно выскпжусь. Благодарю!nikitan95
Макрос работает нормально, с одним исключением: формула в столбце F (в строке Б) не вставляется. Возможно ли это исправить? Ведь вручную каждый раз копировать с соседней ячейки отнюдь не вариант.
Макрос работает нормально, с одним исключением: формула в столбце F (в строке Б) не вставляется. Возможно ли это исправить? Ведь вручную каждый раз копировать с соседней ячейки отнюдь не вариант.nikitan95
Александр, огромное спасибо! Порою, в силу малограмотности, придумываешь сложные вопросы для простых оказывается весьма решений. Что и требовалось доказать.
Александр, огромное спасибо! Порою, в силу малограмотности, придумываешь сложные вопросы для простых оказывается весьма решений. Что и требовалось доказать.nikitan95