Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Суммирование диапазонов из двух книг / 8 сообщений из 8, страница 1 из 1
24.02.2015, 21:55
    #38887734
wsnet
wsnet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суммирование диапазонов из двух книг
Рябята, в Excel VBA не силен.

Имею код:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub MyMacros()
Dim i As Byte, TempRange As Range
For i = 1 To 2
    With Workbooks(i & ".xlsx").Worksheets(1)
      Set TempRange = .Range("A1:F1")
        With Workbooks("Итог.xlsx").Worksheets(1)
          .Range("A1:F1") = Evaluate(.Range("A1:F1").Address & "+" & TempRange.Address)
        End With
    End With
Next i
End Sub



Почему в A1:F1 итогового документа не суммируются диапазон из других файлов ?
То есть стоит задача в итоговом файле получить в указанном диапазоне сумму этих же диапазонов но в других файлах 1.xls 2.xls
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 22:06
    #38887742
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суммирование диапазонов из двух книг
wsnetфайлах 1.xls 2.xlsа они открыты?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 22:09
    #38887744
wsnet
wsnet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суммирование диапазонов из двух книг
Shocker.Pro,

Да открыты
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 22:10
    #38887747
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суммирование диапазонов из двух книг
не очень, тем не менее понятно, что тут делает Evaluate и почему нельзя обратиться просто к нужному диапазону
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 22:15
    #38887754
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суммирование диапазонов из двух книг
вот это надо?
Код: vbnet
1.
2.
3.
4.
5.
  For j = 1 To 7
    Workbooks("Итог.xlsx").Worksheets(1).Cells(1, j) = _
      Workbooks("1.xlsx").Worksheets(1).Cells(1, j) + _
      Workbooks("2.xlsx").Worksheets(1).Cells(1, j)
  Next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 22:15
    #38887757
wsnet
wsnet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суммирование диапазонов из двух книг
Shocker.Pro,
Подскажите что нужно поправить ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 22:24
    #38887763
wsnet
wsnet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суммирование диапазонов из двух книг
Shocker.Pro,
это построчно, а функция суммирования диапазонов может имеется ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 22:35
    #38887772
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Суммирование диапазонов из двух книг
wsnetПочему в A1:F1 итогового документа не суммируются диапазон из других файловА Вы угадайте с 1 попытки, что попадет в Evaluate:
Код: vbnet
1.
Evaluate(.Range("A1:F1").Address & "+" & TempRange.Address)


посмотрите хотя бы в отладке. Там будет только адрес, без указателя на то, из какой книги.
Как минимум надо так:
Код: vbnet
1.
Evaluate(.Range("A1:F1").Address(external:=true) & "+" & TempRange.Address(external:=true))


как максимум еще и функцию сумм добавить:
Код: vbnet
1.
Evaluate(sum(.Range("A1:F1").Address(external:=true) & "," & TempRange.Address(external:=true)))


или отсюда че-нить взять на заметку:
http://www.excel-vba.ru/chto-umeet-excel/kak-prosummirovat-dannye-s-neskolkix-listov-v-tom-chisle-po-usloviyu/
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Суммирование диапазонов из двух книг / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 123ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2173619]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 10ms
total:  123ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]