Заполнение типовой таблицы данными из другой таблицы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заполнение типовой таблицы данными из другой таблицы (Формулы/Formulas)

aTBepTKa

Дата: Пятница, 27.04.2018, 18:10 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Существует таблица с данными сотрудников следующего формата:
1.__|__Петров И. И.__|__1990_|__4р
2.__|__Иванов П. П. _|__1980__|_5р
3. _|_Сидоров А. А.___|_1970 _|__6р

Необходимо данные приведенные выше подставить в типовую табличную форму и поочередно вывести на печать. Например:
1. Сотрудник Петров И. И. 1990 года рождения: слесарь 4р.
2. Сотрудник Иванов П. П. 1980 года рождения: слесарь 5р.
3. Сотрудник Сидоров А. А. 1970 года рождения: слесарь 6р.

То есть на печать необходимо вывести три листа с данными по каждому сотруднику отдельно. Подскажите как реализовать данное решение?

Ответить

Nic70y

Дата: Пятница, 27.04.2018, 18:16 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

для начала посмотреть бы Ваш файл...

ЮMoney 41001841029809

Ответить

aTBepTKa

Дата: Суббота, 28.04.2018, 09:22 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

На данный момент задача реализована через рассылки Word: в документ с формой подгружаются данные из таблицы и выводится на печать вся пачка. Но такое решение крайне не удобно, хотелось бы работать в одном файле excel.

К сообщению приложен файл: 1427717.xlsx (13.2 Kb)

Ответить

Nic70y

Дата: Суббота, 28.04.2018, 10:23 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

наскоряк нарекордил
[vba]

Код

Sub U__897()
    u_14 = Application.Max(Sheets("Данные").Range("b3:b33"))
    u_27 = Application.Match(u_14, Sheets("Данные").Range("b3:b33"), 0)
    u = 0
    For u_1 = 1 To u_27
        u = u + 1
        [b1] = u
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next
End Sub

[/vba]и изменил формулу

Код

=ИНДЕКС(Данные!$C3:$ZZ33;$B1;СТОЛБЕЦ(A1))

К сообщению приложен файл: 1427717.xlsm (20.6 Kb)

ЮMoney 41001841029809

Ответить

Страница 1 из 1
1