|
|
|
Перенос строк в 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, 15:31 |
|
||
|
Перенос строк в Excel нужна помощь
|
|||
|---|---|---|---|
|
#18+
Вставить разделитель страницы после каждой 20-й страницы ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.12.2007, 17:34 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=207&tid=2162930]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
52ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 204ms |
| total: | 324ms |

| 0 / 0 |
