Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.02.2010, 05:05   #1
Алексей11111
Пользователь
 
Регистрация: 19.10.2009
Сообщений: 44
По умолчанию Копирование ячеек..

Подскажите плз. кто-нибудь, мне нужен код который делает ширину всех ячеек на каждой странице А4 одинаковой ширины в Екселе, для того чтобы на Листе А4 находилось одинаковое колличество ячеек..Есть идеи? Можно Копировать лист А4 допустим 100 раз, только чтобы он копировал вместе с содержимым и ширину ячеек...
У меня пока такой есть вариант, но он не копирует ширину ячеек...:

Dim i As Long: Application.ScreenUpdating = False
For i = 70 To 69 * 110 Step 69: [A1:i69].Copy Cells(i, 1): Next
Алексей11111 вне форума Ответить с цитированием
Старый 20.02.2010, 14:03   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

если в качестве источника копирования взять колонки, то они скопируются вместе с ширинами (есть один побочный эффект скопируются вместе со всеми данными до конца листа)
[A:I].Copy Cells(i, 1)

Есть еще вариант - через специальную вставку:
For i = 70 To 69 * 110 Step 69
[A1:i69].Copy Cells(i, 1)
[A1:i69].Copy
Cells(i, 1).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на копирование ячеек из разных листов на один. hozpraktik Microsoft Office Excel 8 28.05.2010 10:00
Копирование области ячеек в Excel lexaltd Общие вопросы Delphi 2 07.10.2009 10:34
Копирование содержание ячеек и их ширины tae1980 Microsoft Office Excel 5 14.08.2009 15:25
Копирование ячеек с вставленными в них изображениями Vector8 Microsoft Office Excel 1 24.06.2009 15:47
Копирование видимых ячеек mephist Microsoft Office Excel 4 18.05.2009 11:18