Создание бланка заявки в Excel на основании данных из другого файла Excel

24.02.2013, 05:30. **Показов** 14770. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток!
Есть у меня такая задумка в Excel, может быть кто-нибудь сталкивался с подобной необходимостью и добился успешного решения этой задачи.
В общих чертах:
Для того, чтобы оптимизировать процесс создание заявки – есть список данных, возможно ли в этом списке данных в конце строчки создать кнопку с названием, напр. “Регистрация”, при нажатии на которую будет открываться новый файл Excel по шаблону в котором уже будет текстовая информация введенная ранее, а в отдельных ячейках этой заявки будет информация из строчки напротив которой была нажата кнопка “Регистрация” в списке данных первого открытого окна Excel.
Второй вариант: возможно ли при помощи формулы открыв заявку "blank" вручную, при заведении нр. заявки в Е3, получить Е5 и Е7 данные из файла "Список" соответствующие номеру этой заявки?

@Step_UA · 24.02.2013, 15:29

Доброго.
1. Достаточно одной кнопки, действие которой будет применяться к строке активной ячейки.

Visual Basic

Public Sub Register_Click()
    Application.ScreenUpdating = False
    Row = ActiveCell.Row            ' строка активной ячейки
    With ActiveSheet
        Workbooks.Open (ActiveWorkbook.Path & "\blank.xlsx") ' открытие файла бланка
        [e3].Value = .Cells(Row, 1).Value   ' в Е3 данные из 1 столбца строки
        [e5].Value = .Cells(Row, 2).Value   ' в Е5 из 2 столбца
        [e7].Value = .Cells(Row, 3).Value
        ' ...
    End With
    Application.ScreenUpdating = True
End Sub

2. Используйте функцию ВПР. Например, для ячейки E5: =ВПР(E3;'[Список.xlsx]Sheet1'!$A:$C;2;0)

... при формировании заявки только для печати целесообразно разместить бланк в книге "Список.xlsx"

	24.02.2013, 15:29