Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2015, 16:58   #11
27102014
Форумчанин
 
Регистрация: 27.10.2014
Сообщений: 248
По умолчанию

Делать в любом случае через макрос, т.к. в отчетах нужно еще и дату выбирать
Здесь наверное лучше через поиск таблицы сделать
27102014 вне форума Ответить с цитированием
Старый 02.06.2015, 17:17   #12
vefer
Форумчанин
 
Регистрация: 11.10.2010
Сообщений: 134
По умолчанию

Если бы был конкретный пример, а то гадай, какие там еще нюансы имеются
vefer вне форума Ответить с цитированием
Старый 03.06.2015, 09:56   #13
hemmel
Пользователь
 
Регистрация: 14.01.2015
Сообщений: 20
По умолчанию

Цитата:
Сообщение от vefer Посмотреть сообщение
Если бы был конкретный пример, а то гадай, какие там еще нюансы имеются
Вот мои рабочие файлы. Один Журнал с исходными данными и формуляр.
В Журнале данные вводятся в лист План-график, и в удобном для диаграмм виде хранятся на листе Лист2 и Лист1.

В формуляре зеленые ячейки должны отображать инфу из журнала.
сначала выбор агрегата потом выбор позиции и даты, после этого excel подгружает соотвествующие запросу значения в таблицу формуляра.

Исходные таблицы с разным количеством строк: 12, 18, 24 и 30
Вложения
Тип файла: zip журнал-формуляр.zip (218.7 Кб, 15 просмотров)
hemmel вне форума Ответить с цитированием
Старый 03.06.2015, 14:24   #14
hemmel
Пользователь
 
Регистрация: 14.01.2015
Сообщений: 20
По умолчанию

Цитата:
Сообщение от 27102014 Посмотреть сообщение
Делать в любом случае через макрос, т.к. в отчетах нужно еще и дату выбирать
Здесь наверное лучше через поиск таблицы сделать
Можно поподробней? может уже есть что-то аналогичное или пример.
hemmel вне форума Ответить с цитированием
Старый 03.06.2015, 16:10   #15
27102014
Форумчанин
 
Регистрация: 27.10.2014
Сообщений: 248
По умолчанию

Примера нет - хотел сегодня поработать над Вашим файлом, но что-то работы очень много

Поиск таблицы по названию - например, А100
Код:
Cells.Find(Cells(6, 3).Value).Select  
stroka = ActiveCell.Row
stolb = ActiveCell.Column
Далее определение размеров таблицы, например так
Код:
schet = stroka
     While Range("B" & schet) = ""
        schet = schet + 1
     Wend
Поиск даты
Код:
Cells.Find(Cells(4, 3)).Select   
stolb1 = ActiveCell.Column
Потом сделать цикл проверки соответсвия значения и переноса данных, простой FOR NEXT вполне подойдет
27102014 вне форума Ответить с цитированием
Старый 03.06.2015, 17:00   #16
27102014
Форумчанин
 
Регистрация: 27.10.2014
Сообщений: 248
По умолчанию

За полчаса сделал Вам пример - надеюсь поможет
Выложенные Вами данные не смотрел, некогда.
Надеюсь сможете подстроить под свои нужны мои наработки
Вложения
Тип файла: zip пример для подгрузки данных.zip (19.0 Кб, 24 просмотров)
27102014 вне форума Ответить с цитированием
Старый 04.06.2015, 08:07   #17
hemmel
Пользователь
 
Регистрация: 14.01.2015
Сообщений: 20
По умолчанию

27102014
Не разобрался я в примере
Макрос берет данные из файла название которого записано в ячейке напротив ячейки Документ?
hemmel вне форума Ответить с цитированием
Старый 04.06.2015, 09:07   #18
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

hemmel,

не можете читать (понимать) код? - это нормально, не всем это нужно
хотите получить решение - потрудитесь описать задачу программистам, будет у кого-то время и настроение, возможно, сделают
не будет понятного описания задачи - точно ни кто не сделает
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 05.06.2015, 11:39   #19
hemmel
Пользователь
 
Регистрация: 14.01.2015
Сообщений: 20
По умолчанию

Опишу задачу максимально доступно

10 книг с таблицами лежат в одной папке.
В каждой книге около 20 таблиц. Таблицы с одинаковым количеством столбцов, разным количеством строк: 12, 18, 24, 30.

Есть отдельная книга (назовем её формуляр) без таблиц, она для удобной печати выбранного участка выбранной таблицы.
Алгоритм работы книг:
1. Открыл книгу и внес свежие данные в таблицу.
2. Открыл формуляр и выбрал имя интересующей таблицы и столбца.
3. Данные подгрузились в формуляр.

Пример книги с таблицей во вложении.
Формуляр во вложении. Зеленые ячейки показывают данные из таблиц книг

Прошу подсказать свои идеи как сделать чтобы формуляр отображал выбранный столбец из выбранной таблицы выбранного файла
hemmel вне форума Ответить с цитированием
Старый 05.06.2015, 12:38   #20
27102014
Форумчанин
 
Регистрация: 27.10.2014
Сообщений: 248
По умолчанию

Разберем код из моего примера к Вашей задаче

10 книг с таблицами лежат в одной папке. Адрес папки в макросе такой
Код:
 Путь = ThisWorkbook.Path
Условие - все файлы - формуляр и нужные таблицы в одной папке
Открытие нужного документа - для удобства предлагаю сделать выпадающий список, например в ячейке С2
Код:
Application.Workbooks.Open (Путь & "\" & Cells(2, 3) & ".xlsx")

В каждой книге около 20 таблиц. Таблицы с одинаковым количеством столбцов, разным количеством строк: 12, 18, 24, 30.У Вас уже есть ячейка с названием таблицы С6, находим в открывшемся документе нужную таблицу
Код:
Cells.Find(Poisk).Select  'поиск таблицы
stroka = ActiveCell.Row' номер строки где название таблицы
Т.к. это мы ищем уже в другом (не в котором запустили макрос), ранее нужно запомнить переменную - то, что мы ищем - имя таблицы
Код:
Poisk = Cells(6, 3).Value ' таблица
Есть отдельная книга (назовем её формуляр) без таблиц, она для удобной печати выбранного участка выбранной таблицы.
Алгоритм работы книг:
1. Открыл книгу и внес свежие данные в таблицу.
2. Открыл формуляр и выбрал имя интересующей таблицы и столбца.

Ячейки С3 и С6 - название нужного документа и имя таблицы.
У меня в примере еще дата - все по аналогии

3. Данные подгрузились в формуляр. Здесь Вы никак не можете понятно объяснить задачу - что нужно перенести из таблиц? я уже написал Вам цикл, он несколько сложный - цикл в цикле, но об этом позже, сначала Вам нужно разобраться с открытием книг

Пример книги с таблицей во вложении. - Вложения нет
Формуляр во вложении. Зеленые ячейки показывают данные из таблиц книг

Прошу подсказать свои идеи как сделать чтобы формуляр отображал выбранный столбец из выбранной таблицы выбранного файла


На Ваше личное сообщение ответил в личку

Последний раз редактировалось 27102014; 05.06.2015 в 12:40.
27102014 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перенос данных с одного листа на другой по условию diop Microsoft Office Excel 3 21.01.2015 01:33
Перенос данных с одного листа на другой по условию MickMick Microsoft Office Excel 1 11.01.2015 17:33
Сумма диапазона ячеек листов другой книги по условию. Ammat Microsoft Office Excel 8 12.06.2014 17:18
Перенос данных из закрытой книги по условию strannick Microsoft Office Excel 14 14.12.2013 16:29
Запись данных в закрытую/скрытую из UserForm другой открытой книги книги. Dark Victor Microsoft Office Excel 1 12.03.2012 18:37