всем добрый день! не подскажите как перед строкой в колонке "B" где встречается слово "... Итог" добавить новую строку и так дальше по всей таблице как должно получиться представлено в EXCEL файле
всем добрый день! не подскажите как перед строкой в колонке "B" где встречается слово "... Итог" добавить новую строку и так дальше по всей таблице как должно получиться представлено в EXCEL файлеАЛЕКСАНДР1986
Sub d1() Dim i& For i = Cells(Rows.count, 2).End(xlUp).Row To 4 Step -1 If InStr(1, Cells(i, 2), "Итог") > 0 Then Rows(i).Insert Rows(i - 1).Copy Rows(i) Cells(i, 4) = "ИНЫЕ органы" Cells(i, 2).Resize(, 6).Interior.Color = 12379352 End If Next i End Sub
[/vba]
АЛЕКСАНДР1986, макрос ток если... [vba]
Код
Sub d1() Dim i& For i = Cells(Rows.count, 2).End(xlUp).Row To 4 Step -1 If InStr(1, Cells(i, 2), "Итог") > 0 Then Rows(i).Insert Rows(i - 1).Copy Rows(i) Cells(i, 4) = "ИНЫЕ органы" Cells(i, 2).Resize(, 6).Interior.Color = 12379352 End If Next i End Sub
плохо знаете. Формулы возвращают ЗНАЧЕНИЕ. Они не могут менять объекты в приложении. Единственная возможность - писать многоэтажную формулу, которая будет возвращать "" (пустую строку), но и это будет лишь ВИДИМОСТЬ, так как "" - это ЗНАЧЕНИЕ ячейки
Цитата
и насколько я знаю
плохо знаете. Формулы возвращают ЗНАЧЕНИЕ. Они не могут менять объекты в приложении. Единственная возможность - писать многоэтажную формулу, которая будет возвращать "" (пустую строку), но и это будет лишь ВИДИМОСТЬ, так как "" - это ЗНАЧЕНИЕ ячейкиbuchlotnik
не подскажите тогда как усовершенствовать макрос чтобы он брал строку с уникальным кодом где написано "Итог" и вычитал из этой строки все предыдущие аналогичные строки где нету слова "Итог" то что должно получиться представлено в таблице справа с подсвеченными красными ячейками!
это все нужно проделывать если значения которые стоят перед этим не достигают 100 процентов! иначе пустую строку не надо добавлять! блин как-то походу дела сложно получается!
не подскажите тогда как усовершенствовать макрос чтобы он брал строку с уникальным кодом где написано "Итог" и вычитал из этой строки все предыдущие аналогичные строки где нету слова "Итог" то что должно получиться представлено в таблице справа с подсвеченными красными ячейками!
это все нужно проделывать если значения которые стоят перед этим не достигают 100 процентов! иначе пустую строку не надо добавлять! блин как-то походу дела сложно получается!АЛЕКСАНДР1986