|
|
|
Как сделать в Excele?
|
|||
|---|---|---|---|
|
#18+
Приветствую! Подскажите пожалуйста каким образом можно в Excele сделать следующее... Есть 22 файла с формами отчета необходимо сделать итоговый файл в котором необходимо просуммировать все данные из 22 файлов... Заранее благодарен. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2006, 11:28:27 |
|
||
|
Как сделать в Excele?
|
|||
|---|---|---|---|
|
#18+
я это сделал так: открываешь все книги (максимум 50) и в цикле перебираешь. код очень маленький, строк 10. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2006, 11:45:14 |
|
||
|
Как сделать в Excele?
|
|||
|---|---|---|---|
|
#18+
to qqmber спасибо за идею не поделишься кодом? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2006, 12:50:09 |
|
||
|
Как сделать в Excele?
|
|||
|---|---|---|---|
|
#18+
Private Sub CommandButton1_Click() cowin = Windows.Count For i = 1 To cowin Workbooks(i).Activate cosheet = Sheets.Count For j = 1 To cosheet Worksheets(j).Activate fdg = Workbooks(i).Sheets(j).Range("i99").Value If (Workbooks(i).Sheets(j).Range("i99").Value = 1 Or Workbooks(i).Sheets(j).Range("i100").Value = 1) And Workbooks(i).Sheets(j).Range("i109").Value = 1 Then koldom = koldom + 1 sdom = sdom + Workbooks(i).Sheets(j).Range("n99").Value End If Next Next MsgBox (koldom) MsgBox (sdom) End Sub пробегаем все ЗАРАНЕЕ открытые книги, в них все листы и по условию считаем ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2006, 13:02:25 |
|
||
|
|
start [/forum/topic.php?fid=61&msg=33486722&tid=2185356]: |
0ms |
get settings: |
6ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
33ms |
get topic data: |
5ms |
get forum data: |
1ms |
get page messages: |
22ms |
get tp. blocked users: |
1ms |
| others: | 215ms |
| total: | 296ms |
| 0 / 0 |
