ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование диапазона на лист. Как перенести и ширину столбцов?
6 сообщений из 6, страница 1 из 1
Копирование диапазона на лист. Как перенести и ширину столбцов?
    #35662803
_Вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Вопрос
Гость
Вот команда:
Код: plaintext
xlsSheet.Range("A1:N10").Copy xlsSheetDist.Range("A1")
На листе-источнике(xlsSheet) ширина всех столбцы подогнана под содержимое, но на лист xlsSheetDist эта ширина не переносится и часть столбцов содержит "########"
Можно ли как-то ширину переносить?
...
Рейтинг: 0 / 0
19.11.2008, 11:50:36
| Ответить | Цитировать | Написать  
Копирование диапазона на лист. Как перенести и ширину столбцов?
    #35662986
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Используя специальную вставку
...
Рейтинг: 0 / 0
19.11.2008, 12:40:15
| Ответить | Цитировать | Написать  
Копирование диапазона на лист. Как перенести и ширину столбцов?
    #35663004
_Вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Вопрос
Гость
A-NikИспользуя специальную вставкуА не подскажите как должна в этом случае выглядеть строка xlsSheet.Range("A1:N10").Copy xlsSheetDist.Range("A1")?
...
Рейтинг: 0 / 0
19.11.2008, 12:47:46
| Ответить | Цитировать | Написать  
Копирование диапазона на лист. Как перенести и ширину столбцов?
    #35663146
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Записью макроса умеешь пользоваться ? В меню сервис находится... ;-)
...
Рейтинг: 0 / 0
19.11.2008, 13:23:25
| Ответить | Цитировать | Написать  
Копирование диапазона на лист. Как перенести и ширину столбцов?
    #35663307
_Вопрос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Вопрос
Гость
Я так понял, что надо перед строкой копирования данных добавить строку
Код: plaintext
1.
2.
Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
это получилось в результате записи макроса.
Как в одной строке перенести и данные, и ширину столбцов - не нашел.
И еще хотелось бы без Select обойтись, но выражение
Код: plaintext
1.
Range("A1").PasteSpecial Paste:=xlPasteColumnWidths...
вызывает ошибку
...
Рейтинг: 0 / 0
19.11.2008, 14:13:49
| Ответить | Цитировать | Написать  
Копирование диапазона на лист. Как перенести и ширину столбцов?
    #35663708
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Попробуйте сделать так:
Код: plaintext
1.
Range("...").Copy
Sheets("Имя_листа").Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
...
Рейтинг: 0 / 0
19.11.2008, 16:07:26
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование диапазона на лист. Как перенести и ширину столбцов?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35663307&tid=2180112]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 190ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 228ms
total:  503ms
созд. / загр.: 503ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]