|
|
|
Строки в 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. Зараннее благодарю за ответ. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.12.2007, 16:11 |
|
||
|
Строки в 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 .... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2007, 13:39 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=206&tid=2162915]: |
0ms |
get settings: |
7ms |
get forum list: |
14ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
31ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
21ms |
get tp. blocked users: |
1ms |
| others: | 237ms |
| total: | 323ms |
| 0 / 0 |
