ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Суммирование диапазонов из двух книг
8 сообщений из 8, страница 1 из 1
Суммирование диапазонов из двух книг
    #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, 21:55
| Ответить | Цитировать | Написать  
Суммирование диапазонов из двух книг
    #38887742
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
wsnetфайлах 1.xls 2.xlsа они открыты?
...
Рейтинг: 0 / 0
24.02.2015, 22:06
| Ответить | Цитировать | Написать  
Суммирование диапазонов из двух книг
    #38887744
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
Shocker.Pro,

Да открыты
...
Рейтинг: 0 / 0
24.02.2015, 22:09
| Ответить | Цитировать | Написать  
Суммирование диапазонов из двух книг
    #38887747
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
не очень, тем не менее понятно, что тут делает Evaluate и почему нельзя обратиться просто к нужному диапазону
...
Рейтинг: 0 / 0
24.02.2015, 22:10
| Ответить | Цитировать | Написать  
Суммирование диапазонов из двух книг
    #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:15
| Ответить | Цитировать | Написать  
Суммирование диапазонов из двух книг
    #38887763
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
Shocker.Pro,
это построчно, а функция суммирования диапазонов может имеется ?
...
Рейтинг: 0 / 0
24.02.2015, 22:24
| Ответить | Цитировать | Написать  
Суммирование диапазонов из двух книг
    #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
24.02.2015, 22:35
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Суммирование диапазонов из двух книг
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38887742&tid=2173619]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 12ms
total:  132ms
созд. / загр.: 132ms
x
x
Закрыть


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