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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 21.01.2009, 18:09   #1
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию Отчет по группе

Уважаемые программисты, Добрый вечер!
У меня к Вам просьба. помогите плз создать макрос который выполнял бы следующие действия:
Есть файл "AgentExtHour.xls" - он формируется автоматически системой.
Из этого файла необходимо выбрать те данные которые выделены желтым цветом.

И есть конечный файл: "Отчет по группе.xls" - в него необходимо перенести выбранные данные из предыдущего файла в соответствующие ячейки (ячейки выделены тоже желтым цветом).

Заранее Огромное спасибо.

PS. Прикладываю архив с 2 файлами.
Viento вне форума
Старый 21.01.2009, 18:12   #2
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию

АРХИВ в этом письме!
Вложения
Тип файла: rar Выгрузка из брио.rar (9.3 Кб, 14 просмотров)
Viento вне форума
Старый 22.01.2009, 06:41   #3
cent
Пользователь
 
Аватар для cent
 
Регистрация: 26.12.2008
Сообщений: 73
По умолчанию

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

Код:
Sub import()
Dim AgentSH As Worksheet, AWS As Worksheet, AGwb As Workbook
Dim i&, r&, AGpath$
    Set AWS = ThisWorkbook.ActiveSheet
    Set AGwb = Application.Workbooks.Open(Filename:=Application.GetOpenFilename(Title:="Укажите файл AgentExtHour.xls"))
    Set AgentSH = AGwb.Sheets("AgentExtHour")
    r = 0
    Do While AgentSH.Cells(r + 5, 2).Value = "No of answ"
        AWS.Cells(2, 1).Value = AWS.Cells(2, 1).Value & Chr(10) & AgentSH.Cells(r + 2, 1).Value
        For i = 0 To 12
            AWS.Cells(2, 4).Offset(i, 0).Value = AWS.Cells(2, 4).Offset(i, 0).Value + AgentSH.Cells(r + 5, 3).Offset(0, i).Value
            AWS.Cells(2, 5).Offset(i, 0).Value = AWS.Cells(2, 5).Offset(i, 0).Value + AgentSH.Cells(r + 7, 3).Offset(0, i).Value
        Next i
        r = r + 23
    Loop
    AWS.Range("E2:E14").NumberFormat = "h:mm:ss;@"
    AWS.Activate
End Sub
Пример смотрите во вложении

Отчет по группе.zip
Четко сформулированная задача - половина решения!
<= Спасибо оставляем в отзывах

Последний раз редактировалось cent; 22.01.2009 в 07:00.
cent вне форума
Старый 22.01.2009, 11:42   #4
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию

Добрый день!
Уважаемый cent, Вы не совсем правильно истолковали моё задание, наверно это моя вина. Прошу прощения.

В файле "отчет по группе" я создал только форму для одного сотрудника.

Откройте пожалуйста файл отчет по группе.
Вложения
Тип файла: rar Отчет по группе.rar (18.0 Кб, 8 просмотров)
Viento вне форума
Старый 22.01.2009, 13:46   #5
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Попробуйте такой вариант.

Оба файла на момент запуска должны быть открыты.
Вложения
Тип файла: rar отчёт.rar (24.1 Кб, 20 просмотров)
EducatedFool вне форума
Старый 22.01.2009, 14:20   #6
Viento
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 53
По умолчанию

Огромное спасибо EducatedFool! Все работает!

Вы Оказываете неоценимую помощь простым обывателям программного обеспечения.

Спасибо, что Вы есть!

С Уважением Б.К.
Viento вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как вставить одинаковое примечание к группе ячеек? Kona Microsoft Office Excel 3 30.10.2008 12:40
Выбор значений по отдельной группе michi SQL, базы данных 2 15.10.2008 22:35
Создать пользователя в опреденной группе CrazyProgramer Общие вопросы Delphi 6 10.10.2008 12:27
Deep Purple - немного о группе. Alar Свободное общение 1 20.09.2007 21:53