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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос копирует данные из нескольких книг в одну - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос копирует данные из нескольких книг в одну
alisherne Дата: Суббота, 21.09.2013, 19:15 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.

Прошу помочь с написанием следующего макроса. В приложении три файла. Все идентичны по структуре. Два файла источника заполняются отдельными лицами, при чем первый лист каждого из двух файлов заполняется по вертикали сверху вниз, второй лист по горизонтали слева направо. После заполнения, необходимо данные из каждого файла каждого листа перенести в файл "Сводный", т.е. свести в один. При чем через неделю в файлы источники добавляется информация, которую надо вновь надо добавлять в "Сводный" или же полностью заменять его содержимое уже обновленной информацией из источников.
Сам пытался создать кнопку, после нажатия которой все и должно было происходить.
К сообщению приложен файл: 4952672.7z (20.0 Kb)
 
Ответить
СообщениеДобрый день.

Прошу помочь с написанием следующего макроса. В приложении три файла. Все идентичны по структуре. Два файла источника заполняются отдельными лицами, при чем первый лист каждого из двух файлов заполняется по вертикали сверху вниз, второй лист по горизонтали слева направо. После заполнения, необходимо данные из каждого файла каждого листа перенести в файл "Сводный", т.е. свести в один. При чем через неделю в файлы источники добавляется информация, которую надо вновь надо добавлять в "Сводный" или же полностью заменять его содержимое уже обновленной информацией из источников.
Сам пытался создать кнопку, после нажатия которой все и должно было происходить.

Автор - alisherne
Дата добавления - 21.09.2013 в 19:15
Michael_S Дата: Суббота, 21.09.2013, 19:45 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Покажите, что должно получиться в Сводном файле. Зачем догадки?
-и зачем в каждом файле одинаковые макросы? При открытии всех файлов они начнут конфликтовать между собой...
 
Ответить
СообщениеПокажите, что должно получиться в Сводном файле. Зачем догадки?
-и зачем в каждом файле одинаковые макросы? При открытии всех файлов они начнут конфликтовать между собой...

Автор - Michael_S
Дата добавления - 21.09.2013 в 19:45
alisherne Дата: Суббота, 21.09.2013, 20:55 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Прошу прощения, не удалил эксперименты с макросами из файлов.
Макрос необходим только в файле "Сводный".
Процесс должен быть такой. Запускаем макрос в файле "Сводный". Тот обращается к первому файлу источнику копирует оттуда все данные и вставляет в соответствующие листы сводного. Затем обращаемся ко второму файлу источнику и копируем оттуда данные, добавляя ниже для листа 1 и правее для листа 2 после уже добавленных. Результат показан в приложении в файле "Сводный".
К сообщению приложен файл: 3387396.rar (30.1 Kb)
 
Ответить
СообщениеПрошу прощения, не удалил эксперименты с макросами из файлов.
Макрос необходим только в файле "Сводный".
Процесс должен быть такой. Запускаем макрос в файле "Сводный". Тот обращается к первому файлу источнику копирует оттуда все данные и вставляет в соответствующие листы сводного. Затем обращаемся ко второму файлу источнику и копируем оттуда данные, добавляя ниже для листа 1 и правее для листа 2 после уже добавленных. Результат показан в приложении в файле "Сводный".

Автор - alisherne
Дата добавления - 21.09.2013 в 20:55
alisherne Дата: Воскресенье, 22.09.2013, 21:51 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Основная проблема у меня лично с тем, что я не могу задать макросу перебор номеров столбцов, т.к. они имеют не численный, а буквенный код.
 
Ответить
СообщениеОсновная проблема у меня лично с тем, что я не могу задать макросу перебор номеров столбцов, т.к. они имеют не численный, а буквенный код.

Автор - alisherne
Дата добавления - 22.09.2013 в 21:51
Michael_S Дата: Воскресенье, 22.09.2013, 22:01 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
А зачем столбцы перебирать? в принципе, можно и столбцы по номеру, примерно так
[vba]
Код
For i = 1 To 10
Set a = Worksheets(1).Columns(i)
Next
[/vba]но это долго... впрочем, если столбцов мало, то не заметно. Или
[vba]
Код
For i = 1 To 10
  a = Worksheets(1).Columns(i).Value
Next
[/vba]Получаем массив, с ним работать быстрее.


Сообщение отредактировал Michael_S - Воскресенье, 22.09.2013, 22:04
 
Ответить
СообщениеА зачем столбцы перебирать? в принципе, можно и столбцы по номеру, примерно так
[vba]
Код
For i = 1 To 10
Set a = Worksheets(1).Columns(i)
Next
[/vba]но это долго... впрочем, если столбцов мало, то не заметно. Или
[vba]
Код
For i = 1 To 10
  a = Worksheets(1).Columns(i).Value
Next
[/vba]Получаем массив, с ним работать быстрее.

Автор - Michael_S
Дата добавления - 22.09.2013 в 22:01
alisherne Дата: Понедельник, 23.09.2013, 20:27 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо за совет.
А можно ли в макросе выбрать сразу всю область для копирования, скопировать и вставить в сводную книгу? Потом добавить из второго файла? Я, собственно, так и пытался сделать сначала, потому как перебирать каждый столбец - это долго. Тем более в будущем данный файл будет увеличиваться, хоть и с арифметической прогрессией.
 
Ответить
СообщениеСпасибо за совет.
А можно ли в макросе выбрать сразу всю область для копирования, скопировать и вставить в сводную книгу? Потом добавить из второго файла? Я, собственно, так и пытался сделать сначала, потому как перебирать каждый столбец - это долго. Тем более в будущем данный файл будет увеличиваться, хоть и с арифметической прогрессией.

Автор - alisherne
Дата добавления - 23.09.2013 в 20:27
  • Страница 1 из 1
  • 1
Поиск:

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