|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.02.2010, 05:05 | #1 |
Пользователь
Регистрация: 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 |
20.02.2010, 14:03 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 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
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача на копирование ячеек из разных листов на один. | 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 |