Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Суммирование данных из 2х файлов в третем? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Суммирование данных из 2х файлов в третем? (Макросы/Sub)
Суммирование данных из 2х файлов в третем?
dlink74 Дата: Понедельник, 31.08.2015, 11:45 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

2010
Добрый день.
Помогите решить задачу формирования сводного табеля из данных, содержащихся в табелях участков с помощью макроса.
Эта задача решена формулами, но при кол-ве Участков более 3х формулы становятся уж очень масштабными и трудно редактируемыми ...
Хотелось бы:
1. Заполнение ячеек файла " 8006059.xls" суммированием данных из соответствующих ячеек файлов " 6139631.xlsx" и "2.xls"
2. Привязка к фамилии
3. Пояснения к коду (Только начинаю учиться работать с VBA, поэтому хочется понимать какая часть кода что реализует)
Спасибо.
К сообщению приложен файл: 8006059.xlsx (9.6 Kb) · 6139631.xlsx (10.3 Kb)


Сообщение отредактировал dlink74 - Понедельник, 31.08.2015, 12:01
 
Ответить
СообщениеДобрый день.
Помогите решить задачу формирования сводного табеля из данных, содержащихся в табелях участков с помощью макроса.
Эта задача решена формулами, но при кол-ве Участков более 3х формулы становятся уж очень масштабными и трудно редактируемыми ...
Хотелось бы:
1. Заполнение ячеек файла " 8006059.xls" суммированием данных из соответствующих ячеек файлов " 6139631.xlsx" и "2.xls"
2. Привязка к фамилии
3. Пояснения к коду (Только начинаю учиться работать с VBA, поэтому хочется понимать какая часть кода что реализует)
Спасибо.
Автор - dlink74
Дата добавления - 31.08.2015 в 11:45
dlink74 Дата: Понедельник, 31.08.2015, 11:59 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

2010
Файл "Участок 2"
К сообщению приложен файл: _2.xlsx (10.6 Kb)
 
Ответить
СообщениеФайл "Участок 2"
Автор - dlink74
Дата добавления - 31.08.2015 в 11:59
miver Дата: Понедельник, 31.08.2015, 14:38 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 37 ±
Замечаний: 0% ±

Excel 2010
dlink74, Сделал примитивный пример
Будут вопросы пишите ;)
К сообщению приложен файл: 9696.zip (33.4 Kb)
 
Ответить
Сообщениеdlink74, Сделал примитивный пример
Будут вопросы пишите ;)
Автор - miver
Дата добавления - 31.08.2015 в 14:38
dlink74 Дата: Понедельник, 31.08.2015, 15:28 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

2010
Цитата miver, 31.08.2015 в 14:38, в сообщении № 3
Сделал примитивный пример
Будут вопросы пишите

Спасибо. Всё работает.
Буду вникать.
 
Ответить
Сообщение
Цитата miver, 31.08.2015 в 14:38, в сообщении № 3
Сделал примитивный пример
Будут вопросы пишите

Спасибо. Всё работает.
Буду вникать.
Автор - dlink74
Дата добавления - 31.08.2015 в 15:28
dlink74 Дата: Вторник, 01.09.2015, 09:37 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

2010
miver,
Цитата miver, 31.08.2015 в 14:38, в сообщении № 3
Будут вопросы пишите

Подскажите пожалуйста значение части кода:

Спасибо.
 
Ответить
Сообщениеmiver,
Цитата miver, 31.08.2015 в 14:38, в сообщении № 3
Будут вопросы пишите

Подскажите пожалуйста значение части кода:

Спасибо.
Автор - dlink74
Дата добавления - 01.09.2015 в 09:37
SLAVICK Дата: Вторник, 01.09.2015, 10:26 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
arr - это массив, а строка
[vba]
Код
arr = Range("B3", "AG" & Range("B3").End(xlDown).Row).Value
[/vba]
передает значения из диапазона
[vba]
Код
Range("B3", "AG" & Range("B3").End(xlDown).Row)
[/vba] в этот массив.
Пользуйтесь "Дебугером" - сразу все станет понятнее :D

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщениеarr - это массив, а строка
[vba]
Код
arr = Range("B3", "AG" & Range("B3").End(xlDown).Row).Value
[/vba]
передает значения из диапазона
[vba]
Код
Range("B3", "AG" & Range("B3").End(xlDown).Row)
[/vba] в этот массив.
Пользуйтесь "Дебугером" - сразу все станет понятнее :D
Автор - SLAVICK
Дата добавления - 01.09.2015 в 10:26
dlink74 Дата: Вторник, 01.09.2015, 10:44 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

2010
Это то же что диапазон B3:AG вниз до перерыва в значениях в столбце B???
И чем может тут помочь Дебагер?
Спасибо.
[moder]Повторное нарушение п. Правил форума. Предупредительный бан 2 часа.
Добавлено
Перепутал. Не п.2, а п.3 в части тегов
 
Ответить
Сообщение
Это то же что диапазон B3:AG вниз до перерыва в значениях в столбце B???
И чем может тут помочь Дебагер?
Спасибо.
[moder]Повторное нарушение п. Правил форума. Предупредительный бан 2 часа.
Добавлено
Перепутал. Не п.2, а п.3 в части тегов
Автор - dlink74
Дата добавления - 01.09.2015 в 10:44
AndreTM Дата: Вторник, 01.09.2015, 13:18 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 501 ±
Замечаний: 0% ±

2003 & 2010
Цитата dlink74, 01.09.2015 в 10:44, в сообщении № 7
И чем может тут помочь Дебагер?

А есть в VBE окошечки Locals, Immediate, Watch... - и при останове на брейкпойнте вы можете посмотреть, что у вас происходит в окружении, да и пошагово посмотреть, что код выполняет... вам просто тонко намекнули, что не надо спрашивать о том, что вы можете и так прямо увидеть о пощупать.

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение
Цитата dlink74, 01.09.2015 в 10:44, в сообщении № 7
И чем может тут помочь Дебагер?

А есть в VBE окошечки Locals, Immediate, Watch... - и при останове на брейкпойнте вы можете посмотреть, что у вас происходит в окружении, да и пошагово посмотреть, что код выполняет... вам просто тонко намекнули, что не надо спрашивать о том, что вы можете и так прямо увидеть о пощупать.
Автор - AndreTM
Дата добавления - 01.09.2015 в 13:18
dlink74 Дата: Вторник, 01.09.2015, 16:22 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

2010
Не осилил :(
Что нужно изменить в коде (кроме AG на AH) чтобы при суммировании не учитывался новый столбец С ???
Спасибо.
К сообщению приложен файл: 0602924.rar (33.1 Kb)
 
Ответить
СообщениеНе осилил :(
Что нужно изменить в коде (кроме AG на AH) чтобы при суммировании не учитывался новый столбец С ???
Спасибо.
Автор - dlink74
Дата добавления - 01.09.2015 в 16:22
miver Дата: Вторник, 01.09.2015, 17:03 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 37 ±
Замечаний: 0% ±

Excel 2010
dlink74, Находите места где сумирование данных происходит
[vba]
Код
            For j = 2 To UBound(arr, 2)
                 tmpA(j) = tmpA(j) + arr(i, j)
             Next j
[/vba]
И меняете начальное значение на "j = 3"
 
Ответить
Сообщениеdlink74, Находите места где сумирование данных происходит
[vba]
Код
            For j = 2 To UBound(arr, 2)
                 tmpA(j) = tmpA(j) + arr(i, j)
             Next j
[/vba]
И меняете начальное значение на "j = 3"
Автор - miver
Дата добавления - 01.09.2015 в 17:03
dlink74 Дата: Среда, 02.09.2015, 09:51 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

2010
Спасибо
 
Ответить
СообщениеСпасибо
Автор - dlink74
Дата добавления - 02.09.2015 в 09:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Суммирование данных из 2х файлов в третем? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!