| Вопрос: перенос строк в Excel средствами VBA | Добавлено: 19.12.07 17:41 |
Автор вопроса:  masterNike
|
|
Подскажите плиз, каким образом можно выводить на странице в Excel заданное кол-во строк.
Как описать это условие??? Нужен механизм, типа если кол-во вставляемых в Excel строк >= 20, то остальные строки переносить на след страницу. Как в этом примере. Тут строки вставляются на основной лист Layout из RawData. For i = 1 To RowsCount Sheets("Layout").Range("A" + CStr(i + 37)).Value = Sheets("RawData").Range("A" + CStr(i)) Next Затем вставляется табличка Footer в конце всех выводимых строк. Application.GoTo Reference:="Footer" Selection.Copy Sheets("Layout").Select Range("A" + CStr(RowsCount + 38)).Select ActiveSheet.Paste Как в этом примере. Поэтому если кол-во строк меньше 20 то проблем никаких, а если больше, например 150, то идет вставка строк на несколких страницах и в конце таблицка Footer. А нужно втавлять на страницу в Layout всего 20 записей и потом Footer. Заранее огромное мерси. Как это можно сделать??? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  night-roll Вопросов: 36 Ответов: 326 |
Профиль | | #1 | Добавлено: 26.12.07 23:17 |
| ошибка алгоритма в том, что копируется область целиком! обработай сначала RowsCount | ||
Страница: 1 |