|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.06.2009, 16:17 | #1 |
Пользователь
Регистрация: 10.04.2009
Сообщений: 64
|
Создание отчета
Есть пробленма с отчетом.
Нужно чтобы формировался отчет по статьям (к примеру в книге Питание 340 занесена информация по источникам финансирования ФОМС, Бюджет,ПД закупаемая по средствам котировок, Аукциона, торгов и до 100 тыс) Необходимо чтобы вся информация имеющаяся в этой книге переносилась в книгу отчет в соответствующую статью! Аналогично по всем книгам! желательно, чтобы переброс информации происходил без открытия всех документов. (Если возможно) данные значения каторых нужно переносить залил желтым цветом Файлы находятся в одной папке! Помогите кто может!!! Заранее благодарен! |
02.06.2009, 20:26 | #2 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Deni55, самый простой способ связать ячейки.
|
03.06.2009, 09:49 | #3 |
Пользователь
Регистрация: 10.04.2009
Сообщений: 64
|
А есть другой способ?? С привязками у меня иногда случаются проблемы, при их наличии, обновление не происходит! Я так уже пробовал! При переносе на менее слабый комп привязки иногда отказываются работать!
|
10.06.2009, 00:07 | #4 |
Пользователь
Регистрация: 10.04.2009
Сообщений: 64
|
Помогите! Вопрос все еще актуален!!
Проблема в следйющем: 1) Ссылки в отчете плохо рабтают (точнее работают, но не на всех машинах. В чем причина не знаю! Настроены все машины одинаково! Только отличаются по мощьности!) 2) В файлах медикоменты 223,питание 340... и др. плохо работают формулы! Это можно увидеть на примере медикоменты223 обновление результата не всегда проходят нормально! Ингда происходит зависание итоговых сумм по ФОМС, БЮДЖЕТ, ПД. 3) есть ли другой способ расчета по ФОМС, ПД и Бюджету?? утром выложу файл |
10.06.2009, 00:19 | #5 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Если приложишь более подробную задачу (что, откуда, куда) будет замечательно.
|
10.06.2009, 07:53 | #6 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Во-первых, Вы применили макрос, который я делал для одного листа, распространив его на все листы всех книг путем простого копирования. Это очень не рационально. Т.к. на всех листах выполняются одни и те же действия, то это уже событие книги. Во вложении оптимизирована структура всех книг.
Во-вторых, мне не понятно, что нужно вставлять в столбцы "G:I" файла "Отчет.xls". В-третьих, не понятно, почему у Вас не корректно работают связи с ячейками другой книги. Посмотрите альтернативный вариант получения данных из неоткрытой рабочей книги без использования связей с помощью макроса XLM. Данные обновляются при открытии книги. Если какие-либо файлы отсутствуют, то данные из этих файлов обновлены не будут. Никакого сообщения при этом не выводится (а нужно?). Условия: 1. Все файлы должны находиться в одной папке. 2. Имена файлов и листов переименовывать нельзя. (Вообще-то можно, но т.к. имена файлов и листов определяются по значению ячеек файла "Отчет.xls", то необходимо будет внести соответствующие изменения в этих ячейках. P.S. Еще раз обратите внимание на построение VBA-проекта файлов-источников.
Чем шире угол зрения, тем он тупее.
|
10.06.2009, 11:30 | #7 |
Пользователь
Регистрация: 10.04.2009
Сообщений: 64
|
Файл «ОТЧЕТ» То что нужно! Спасибо!!! Вот только не могу понять как он определяет нужный файл???!
в столбцы "G:I" файла "Отчет.xls". Туда оператор будет вводить суммы руками, так что вставлять туда ничего не нудно! А вот сообщение об отсутствии файла желательно! Файлы медикаменты, питание и хоз. товары по статьям 340,223 и 226 вроде считают правильно, вот только не знаю будет ли подтормаживать этот расчет на менее слабой машине, как это было для отдельного листа. Выскакивает ошибка : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.Run "Main", Target.Row - Cells(Target.Row, 1), Sh End Sub Когда пытаюсь добавить формулу! Формула для даты (Т.е. в столбец J2 прописываем дату 01.01.09. В этой ячейке устанавливается 1-е число. В ячейке J1 устанавливается значение Январь, ячейка К2 =J1+1, тем самым я добиваюсь автоматической смены даты. При достижении 31 января, автоматически будет установлено 1 февраля.) Это нужно, если таблица заполняется не с января, а с июня. Причем дата во всех файлах должна быть одинаковой! |
10.06.2009, 12:43 | #8 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
1. В каждом файле-источнике в модуле "Эта книга" замените код на :
Код:
2. В файле "Отчет.xls" в макросе "Main" найдите фрагмент: Код:
В результате, при отсутствии текущего обрабатываемого файла будет выведено не сообщение об его отсутствии, а окно с предложением указать путь к этому файлу. При нажатии кнопки "Отмена", обновление данных произведено не будет. 3. Имя файла, листа, и адрес ячейки в макросе "Main" определяются так: Переменная k задается внешним циклом For k = 2 To 74 Step 36, т.е. принимает 3 значения: 2, 38 и 74, т.е. номера строк. Переменная i задается во внутреннем цикле For i = k + 4 To k + 15. Так, при k=2, перебираются строки с 6 по 17, при k=38 - c 42 по 53 и т.д. Имя текущего файла определяется как Код:
Аналогично получаем имя текущего листа: Код:
Адрес ячейки текущего файла, из которой требуется получить значение получаем так: Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 10.06.2009 в 12:46. |
10.06.2009, 13:34 | #9 |
Пользователь
Регистрация: 10.04.2009
Сообщений: 64
|
Огромное спасибо! Как раз то, что нужно!
|
11.06.2009, 13:01 | #10 |
Пользователь
Регистрация: 10.04.2009
Сообщений: 64
|
Извеняюсь за идиотизм! Меня что-то клинит, Наверно так действует жара.
А можно сделать, так чтобы файл отчет находился в папке Договори и брал результаты из файлов находящихся в папках 310, 340,223 и 226.? Файлов много! и если они будут находиться в одной папке можно будет запутаться пытаясь найти нужный файл. Если это невозможно! Тогда помогите с вариантом когда все файлы в одной папке! Прикрепленный файл отличается от прошлых! Сам пытался разобраться, но что-то не получается! Помогите пожалуста! очень нужно!! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создание отчета в delphi | Pang | БД в Delphi | 7 | 10.01.2012 16:35 |
Создание отчета в C++Builder | Метрачка | Помощь студентам | 0 | 09.05.2009 14:21 |
Создание отчета! | Deni55 | Microsoft Office Excel | 10 | 16.04.2009 14:04 |
Создание отчета в Delphi 7 | Надежда609 | Помощь студентам | 4 | 19.02.2009 20:43 |
Создание отчета!!! | Viento | Microsoft Office Excel | 12 | 26.01.2009 09:26 |