Добавление строки с форматом вышерасположенной.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Добавление строки с форматом вышерасположенной. (Макросы/Sub)

Сергей13

Дата: Суббота, 30.11.2019, 16:01 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте!
Ребята есть документ в котором добавляются и удаляются строки от конечной строки, с удалением вроде нормально, а с добавлением никак не могу отобразить формат (именно только формат границ) во вновь добавляемую строку.
Получается без формата вообще (на основании нижний строчки от ориентира Сдал:) или с форматом и с данными вышерасположенной строки если таковые там есть.
Данный пример вставляет без формата границ.

Формат границ по строке 10 от B до CW

К сообщению приложен файл: 6246666.xlsm (21.7 Kb)

Сообщение отредактировал Сергей13 - Суббота, 30.11.2019, 16:09

Ответить

RAN

Дата: Суббота, 30.11.2019, 18:17 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

er = myF.Row - 2
InvoiceSheet.Rows(er).Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove 'Добавление строк
Rows(10).Copy
Rows(er + 1).PasteSpecial xlPasteFormats
Application.CutCopyMode = 0

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Сергей13

Дата: Суббота, 30.11.2019, 19:00 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

RAN, Верхнею горизонтальную границу не копирует.
В дополнительном примере вставляет так как надо, но если есть текст в верхней строке, то вставляет и текст, как-то обойти вставку текста возможно?

К сообщению приложен файл: 3043118.xlsm (22.7 Kb)

Сообщение отредактировал Сергей13 - Суббота, 30.11.2019, 19:13

Ответить

RAN

Дата: Суббота, 30.11.2019, 19:30 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Есть метод Paste, есть метод PasteSpecial, есть наконец объект Border. И есть возможность применить все это.
Вопрос на "Ва-банк" - а есть ли желание?

[p.s.]PS Я сначала написал ответ, после поглядел файл. И убедился, что самый ~~правильный~~ надежный способ попасть в яблочко - стрелять с закрытыми глазами.[/p.s.]

:'(

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 30.11.2019, 20:02

Ответить

Сергей13

Дата: Суббота, 30.11.2019, 20:10 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

RAN, на основании этого примера, какие будут выводы?
Конструкция конечно грубая, поэтому думаю выполнение происходит с задержкой, но происходит...

К сообщению приложен файл: 9327254.xlsm (23.0 Kb)