Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавление строки с форматом вышерасположенной. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление строки с форматом вышерасположенной. (Макросы/Sub)
Добавление строки с форматом вышерасположенной.
Сергей13 Дата: Суббота, 30.11.2019, 16:01 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация: -3 ±
Замечаний: 0% ±

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

Формат границ по строке 10 от B до CW
К сообщению приложен файл: 6246666.xlsm(21.7 Kb)


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

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

Автор - Сергей13
Дата добавления - 30.11.2019 в 16:01
RAN Дата: Суббота, 30.11.2019, 18:17 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5201
Репутация: 1046 ±
Замечаний: 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]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[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]

Автор - RAN
Дата добавления - 30.11.2019 в 18:17
Сергей13 Дата: Суббота, 30.11.2019, 19:00 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация: -3 ±
Замечаний: 0% ±

Excel 2016
RAN, Верхнею горизонтальную границу не копирует.
В дополнительном примере вставляет так как надо, но если есть текст в верхней строке, то вставляет и текст, как-то обойти вставку текста возможно?
К сообщению приложен файл: 3043118.xlsm(22.7 Kb)


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

Автор - Сергей13
Дата добавления - 30.11.2019 в 19:00
RAN Дата: Суббота, 30.11.2019, 19:30 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5201
Репутация: 1046 ±
Замечаний: 0% ±

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

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

:'(


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

Сообщение отредактировал RAN - Суббота, 30.11.2019, 20:02
 
Ответить
СообщениеЕсть метод Paste, есть метод PasteSpecial, есть наконец объект Border. И есть возможность применить все это.
Вопрос на "Ва-банк" - а есть ли желание?

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

:'(

Автор - RAN
Дата добавления - 30.11.2019 в 19:30
Сергей13 Дата: Суббота, 30.11.2019, 20:10 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация: -3 ±
Замечаний: 0% ±

Excel 2016
RAN, на основании этого примера, какие будут выводы?
Конструкция конечно грубая, поэтому думаю выполнение происходит с задержкой, но происходит...
К сообщению приложен файл: 9327254.xlsm(23.0 Kb)
 
Ответить
СообщениеRAN, на основании этого примера, какие будут выводы?
Конструкция конечно грубая, поэтому думаю выполнение происходит с задержкой, но происходит...

Автор - Сергей13
Дата добавления - 30.11.2019 в 20:10
RAN Дата: Суббота, 30.11.2019, 20:41 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5201
Репутация: 1046 ±
Замечаний: 0% ±

2010
Цитата Сергей13, 30.11.2019 в 20:10, в сообщении № 5 ()
какие будут выводы?

Это один из вариантов. Почему нет?
Цитата Сергей13, 30.11.2019 в 20:10, в сообщении № 5 ()
Конструкция конечно грубая, поэтому думаю выполнение происходит с задержкой

Думаю, в этом утверждении нет истины.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Сергей13, 30.11.2019 в 20:10, в сообщении № 5 ()
какие будут выводы?

Это один из вариантов. Почему нет?
Цитата Сергей13, 30.11.2019 в 20:10, в сообщении № 5 ()
Конструкция конечно грубая, поэтому думаю выполнение происходит с задержкой

Думаю, в этом утверждении нет истины.

Автор - RAN
Дата добавления - 30.11.2019 в 20:41
Сергей13 Дата: Суббота, 30.11.2019, 20:48 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация: -3 ±
Замечаний: 0% ±

Excel 2016
RAN, пересмотрел ClearContents на = "", заработал активно без зависания.
Спасибо!


Сообщение отредактировал Сергей13 - Суббота, 30.11.2019, 21:01
 
Ответить
СообщениеRAN, пересмотрел ClearContents на = "", заработал активно без зависания.
Спасибо!

Автор - Сергей13
Дата добавления - 30.11.2019 в 20:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление строки с форматом вышерасположенной. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!