Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
17.01.2006, 11:28:27
|
|||
|---|---|---|---|
|
|||
Как сделать в Excele? |
|||
|
#18+
Приветствую! Подскажите пожалуйста каким образом можно в Excele сделать следующее... Есть 22 файла с формами отчета необходимо сделать итоговый файл в котором необходимо просуммировать все данные из 22 файлов... Заранее благодарен. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.01.2006, 11:45:14
|
|||
|---|---|---|---|
Как сделать в Excele? |
|||
|
#18+
я это сделал так: открываешь все книги (максимум 50) и в цикле перебираешь. код очень маленький, строк 10. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.01.2006, 12:50:09
|
|||
|---|---|---|---|
|
|||
Как сделать в Excele? |
|||
|
#18+
to qqmber спасибо за идею не поделишься кодом? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.01.2006, 13:02:25
|
|||
|---|---|---|---|
Как сделать в 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 пробегаем все ЗАРАНЕЕ открытые книги, в них все листы и по условию считаем ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2185356]: |
0ms |
get settings: |
9ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
96ms |
get topic data: |
9ms |
get forum data: |
3ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 248ms |
| total: | 428ms |
| 0 / 0 |
