
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
18.12.2007, 15:31
|
|||
|---|---|---|---|
|
|||
Перенос строк в Excel нужна помощь |
|||
|
#18+
Подскажите плиз, каким образом можно выводить на странице в 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. Заранее огромное мерси. Как это можно сделать??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.12.2007, 17:34
|
|||
|---|---|---|---|
|
|||
Перенос строк в Excel нужна помощь |
|||
|
#18+
Вставить разделитель страницы после каждой 20-й страницы ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&mobile=1&tid=2162930]: |
0ms |
get settings: |
8ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
37ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
| others: | 206ms |
| total: | 343ms |

| 0 / 0 |
