|
|
|
как реализовать подсчет суммы остатков по клиентам
|
|||
|---|---|---|---|
|
#18+
Vovka_Che, я бы написал так: Dim rng As Range, s$ Set rng = Intersect(Sheets(2).Columns("a:e"), Sheets(2).UsedRange) Sheets(1).Range(rng.Address(0, 0)) = rng.Value s = Sheets(1).Name & "!" & rng.Offset(, 3).Resize(, 1).Address(0, 0) Range(s) = Evaluate(s & "/" & s) Range(s).Offset(, -3).Resize(, 5).SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.12.2008, 15:51:05 |
|
||
|
как реализовать подсчет суммы остатков по клиентам
|
|||
|---|---|---|---|
|
#18+
ps особенно настаиваю на первых двух строчках :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.12.2008, 15:54:04 |
|
||
|
|
start [/forum/topic.php?fid=61&msg=35737407&tid=2179948]: |
0ms |
get settings: |
10ms |
get forum list: |
17ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
243ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 225ms |
| total: | 558ms |
| 0 / 0 |
