При копировании в другой файл искажает форматирование

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » При копировании в другой файл искажает форматирование (Макросы/Sub)

skais

Дата: Среда, 08.11.2017, 14:23 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

Привожу простой пример:
Жмем на кнопку и макрос делает два действия:
1. Копирует в этой же книге данные листа1 на лист2 (все ок цвет ячейки тот же)
2. Копирует в другую книгу данные листа1 на лист1 искажает цвет ячейки)

Дело даже не в макросе, при простом копировании происходит тоже самое.
Но почему? Как с этим бороться. Всякое пробовал, но ничего не получилось.

Изначально задача стоит в копировании определенного диапазона из одной книги в другую с сохранением всех форматов а так же размера столбцов и строк.

К сообщению приложен файл: test_copy.xls (32.0 Kb)

Ответить

nilem

Дата: Среда, 08.11.2017, 14:34 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Наверное, цветовая схема другая (в разных файлах она м.б. разная)
Посмотрите на ленте вкладка Разметка страницы - группа Темы - кнопка Цвета.

Яндекс.Деньги 4100159601573

Ответить

skais

Дата: Среда, 08.11.2017, 14:57 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

nilem, Посмотреть посмотрел, но мало что понял из этого, даже при смене цветов ничего не изменилось.
Лучшим ответом будет демонстрация решения на примере моего файла.

Ответить

and_evg

Дата: Среда, 08.11.2017, 15:09 | Сообщение № 4

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

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

Сообщений: 452

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

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

Excel 2007

Цитата skais, 08.11.2017 в 14:57, в сообщении № 3 ()

Лучшим ответом будет демонстрация решения на примере моего файла.

Это объявление конкурса? ))))
А если по делу: Параметры EXCEL - Сохранение - кнопка Цвета - кнопка Сброс

Ответить

nilem

Дата: Среда, 08.11.2017, 15:12 | Сообщение № 5

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

вот файлик
Темы - стандартная, цветовая палитра - стандартная

К сообщению приложен файл: 3472971.xls (43.5 Kb)

Яндекс.Деньги 4100159601573

Ответить

skais

Дата: Среда, 08.11.2017, 15:26 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

nilem, and_evg Спасибо! Действительно причина ясна. А как на моем примере сделать так чтобы все работало без изменения цвета в моем файле. То есть чтобы не пришлось менять цветовую палитру (или это невозможно).
Ведь у меня светлозеленный а при смене там фиолетовый. Пользователь имеет светлозеленный и после копирования должен такой же цвет и остаться. Кто поможет сделать чтоб копирование в новый файл шло с таким же первоначальным цветом. Может нужно как-то в новом файле устанавливать макросом аналогичную палитру?

Нашел ответ и файл прилагаю.
[vba]

Код

NewWorkbook.Sheets(1).Cells.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False

[/vba]

К сообщению приложен файл: test_copy-1-.xls (36.5 Kb)

Сообщение отредактировал skais - Среда, 08.11.2017, 16:12

Ответить

Страница 1 из 1
1