Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
19.12.2007, 16:11
|
|||
|---|---|---|---|
|
|||
Строки в Excel |
|||
|
#18+
Подскажите плиз. Есть вот такой цикл Sub OnRefreshAfterReports() Dim i As Integer Dim RowsCount As Integer RowsCount = ThisWorkbook.Names("Report1.Range").RefersToRange.Rows.Count For i = 1 To RowsCount Sheets("Layout").Range("A" + CStr(i + 37)).Value = Sheets("RawData").Range("A" + CStr(i)) Next Предположим, что i=150, строки выводяться на 3 листа в Excel. Как выводить на страницу заданное количество строк??? Например по 20. Зараннее благодарю за ответ. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.12.2007, 13:39
|
|||
|---|---|---|---|
|
|||
Строки в Excel |
|||
|
#18+
Сначала вычислим число страниц (maxpage+1) потом копируем по 20 строк на листы Layout0, Layout1 .... Layout[maxpage] maxpage = Int(RowsCount-0.001) For i = 0 To maxpage Sheets("RawData").Rows((i*20+1) & ":" & (i+1)*20)).Copy Sheets("Layout" & i).Select Rows("1:1").Select ActiveSheet.Paste Next i в задании не сказано, поэтому предполагаем,что листы уже существуют Layout0, Layout1 .... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2162915]: |
0ms |
get settings: |
8ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
34ms |
get topic data: |
6ms |
get forum data: |
1ms |
get page messages: |
22ms |
get tp. blocked users: |
1ms |
| others: | 200ms |
| total: | 285ms |
| 0 / 0 |
