Сохранение ширины и высоты ячеек при копировании таблицы

Пользователь

Сообщений: 19 Регистрация: 01.01.1970

12.10.2010 20:34:59

При копировании таблицы з заданными величинами ширин столбцов и высот строк
с параметрами копирования
Selection.PasteSpecial Paste:=xlPasteColumnWidths, и т.д.
или
Selection.PasteSpecial Paste:=xlPasteAll, и т.д.

на лругой лист книги ширины и высоты столбцов не сохраняются

Excel 2007

Как решить проблему???

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 12.10.2010 21:06:13 А при ручном копировании/спецвставке - ширина столбцов - сохраняется ширина?

The_Prist

Пользователь

Сообщений: 15475 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

12.10.2010 21:14:02

Книги открыты в одном экземпляре Excel или в двух? нет ли где перед копированием/вставкой обработчика ошибок - On Error Resume Next, который мешает отследить ошибку? Ибо вставка xlPasteColumnWidths должна вставлять ширину столбцов. Высоту строк Вы никак не сможете перенести.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

12.10.2010 22:22:40

{quote}{login=The_Prist}{date=12.10.2010 09:14}{thema=}{post}Книги открыты в одном экземпляре Excel или в двух? нет ли где перед копированием/вставкой обработчика ошибок - On Error Resume Next, который мешает отследить ошибку? Ибо вставка xlPasteColumnWidths должна вставлять ширину столбцов. Высоту строк Вы никак не сможете перенести.{/post}{/quote}1)Вроде автору надо копировать на лист в той же книге(судя из вопроса)
2) Высоту строк перенести можно. Построчно считать в массив высоту каждой строки источника и выгрузить в приемник. Типа:
For n = 1 To lAntR
aR(n) = Rows(n).RowHeight
Next n
For n = 1 To iAntK
aK(n) = Columns(n).ColumnWidth
Next n
и
For n = 1 To lAntR
Rows(n).RowHeight = aR(n)
Next n
For n = 1 To iAntK
Columns(n).ColumnWidth = aK(n)
Next n

Я сам - дурнее всякого примера! ...

Guest Гость	#5 14.10.2010 13:59:44 Спасибо, все работает!!!

Читают тему