Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как напечатать док-ты заданной формы с данными из таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как напечатать док-ты заданной формы с данными из таблицы (Формулы/Formulas)
Как напечатать док-ты заданной формы с данными из таблицы
marysabel Дата: Вторник, 14.04.2015, 18:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Уважаемые форумчане!
Есть задача:
1. Существует таблица с данными (в примере – лист «таблица»)
2. Есть форма документа для печати (в примере – лист «форма для печати»)
Требуется распечатать несколько форм с данными из таблицы, указывая номер п/п. Например, в диалоге ввожу «2-4», должны распечататься три формы с данными из таблицы из строк №2,3,4.

Прошу вас , если кто встречал на этом форуме похожую задачу, поделитесь ссылкой на пост…. Или намекните, как лучше реализовать – шаблоны, макросы?... Даже не знаю, с чего начать… Я разберусь, литературу почитаю… Передо мной, наверно, не первой такая проблемка появилась, так что наверно уже есть решения… Заранее спасибо.
[moder]Начните с Правил этого форума.
Поправьте название темы.
Потом мы перенесем ее в нужный раздел (уже перенесли - кто-то более добр, чем я), а потооооом уже появятся ответы.
К сообщению приложен файл: 4243283.xls (17.0 Kb)

Вы думаете, что в сказку попали? Нет, это вы в жизнь вляпались....

Сообщение отредактировал marysabel - Вторник, 14.04.2015, 19:16
 
Ответить
СообщениеУважаемые форумчане!
Есть задача:
1. Существует таблица с данными (в примере – лист «таблица»)
2. Есть форма документа для печати (в примере – лист «форма для печати»)
Требуется распечатать несколько форм с данными из таблицы, указывая номер п/п. Например, в диалоге ввожу «2-4», должны распечататься три формы с данными из таблицы из строк №2,3,4.

Прошу вас , если кто встречал на этом форуме похожую задачу, поделитесь ссылкой на пост…. Или намекните, как лучше реализовать – шаблоны, макросы?... Даже не знаю, с чего начать… Я разберусь, литературу почитаю… Передо мной, наверно, не первой такая проблемка появилась, так что наверно уже есть решения… Заранее спасибо.
[moder]Начните с Правил этого форума.
Поправьте название темы.
Потом мы перенесем ее в нужный раздел (уже перенесли - кто-то более добр, чем я), а потооооом уже появятся ответы.
Автор - marysabel
Дата добавления - 14.04.2015 в 18:11
МВТ Дата: Вторник, 14.04.2015, 20:38 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
При помощи ВПР()
Код
=ЕСЛИОШИБКА(ВПР('форма для печати'!B3;таблица!B3:C17;2;0);"")
и т.п.


Сообщение отредактировал МВТ - Вторник, 14.04.2015, 22:24
 
Ответить
СообщениеПри помощи ВПР()
Код
=ЕСЛИОШИБКА(ВПР('форма для печати'!B3;таблица!B3:C17;2;0);"")
и т.п.
Автор - МВТ
Дата добавления - 14.04.2015 в 20:38
marysabel Дата: Вторник, 14.04.2015, 21:43 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Чем мне поможет эта функция? Не поняла... Пример прицеплен для наглядности, а в реале в таблице до 500 строк. Надо печатать 200-250 документов по форме на втором листе. То есть, надо вывести на печать форму со второго листа, где все данные будут по Иванову Ивану Ивановичу, потом распечатать такой же документ с данными по Петрову, и так далее, пока не распечатаются все документы по людям из заданного диапазона...

Вы думаете, что в сказку попали? Нет, это вы в жизнь вляпались....

Сообщение отредактировал marysabel - Вторник, 14.04.2015, 21:47
 
Ответить
СообщениеЧем мне поможет эта функция? Не поняла... Пример прицеплен для наглядности, а в реале в таблице до 500 строк. Надо печатать 200-250 документов по форме на втором листе. То есть, надо вывести на печать форму со второго листа, где все данные будут по Иванову Ивану Ивановичу, потом распечатать такой же документ с данными по Петрову, и так далее, пока не распечатаются все документы по людям из заданного диапазона...
Автор - marysabel
Дата добавления - 14.04.2015 в 21:43
Pelena Дата: Вторник, 14.04.2015, 22:22 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Слиянием не хотите воспользоваться?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеСлиянием не хотите воспользоваться?
Автор - Pelena
Дата добавления - 14.04.2015 в 22:22
marysabel Дата: Вторник, 14.04.2015, 22:36 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Pelena, ОГРОМНОЕ человеческое СПАСИБО!!! Это то, что мне нужно для реализации задачи.

Вы думаете, что в сказку попали? Нет, это вы в жизнь вляпались....
 
Ответить
СообщениеPelena, ОГРОМНОЕ человеческое СПАСИБО!!! Это то, что мне нужно для реализации задачи.
Автор - marysabel
Дата добавления - 14.04.2015 в 22:36
Kuzmich Дата: Среда, 15.04.2015, 00:47 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Можно печатать и в рамках Excel.
На листе Таблица в ячейках J1 и L1 вводите номера документов
для печати, например 1 и 3 (печатать с 1 по 3)
Можно вставить кнопку на лист и запустить макрос (в модуле листа Таблица),
[vba]
Код

Private Sub CommandButton1_Click()
Dim i As Long
Dim Nomer As Integer
Dim FoundNomer
    Nomer = Range("J1")
     Do
     Set FoundNomer = Columns(1).Find(Nomer, , xlValues, xlWhole)
     With Worksheets("форма для печати")
         .Range("B3") = Cells(FoundNomer.Row, 2)  'номер документа
         .Range("B5") = Cells(FoundNomer.Row, 3)  'ФИО
         .Range("B7") = Cells(FoundNomer.Row, 4)  'гражданство
         .Range("B9") = Cells(FoundNomer.Row, 5)  'дата
         .Range("B11") = Cells(FoundNomer.Row, 6) 'паспорт
         .PrintPreview
         Nomer = Nomer + 1
     End With
     Loop While Nomer <> Range("L1") + 1
End Sub
[/vba]
Для печати замените строку .PrintPreview на .PrintOut
 
Ответить
СообщениеМожно печатать и в рамках Excel.
На листе Таблица в ячейках J1 и L1 вводите номера документов
для печати, например 1 и 3 (печатать с 1 по 3)
Можно вставить кнопку на лист и запустить макрос (в модуле листа Таблица),
[vba]
Код

Private Sub CommandButton1_Click()
Dim i As Long
Dim Nomer As Integer
Dim FoundNomer
    Nomer = Range("J1")
     Do
     Set FoundNomer = Columns(1).Find(Nomer, , xlValues, xlWhole)
     With Worksheets("форма для печати")
         .Range("B3") = Cells(FoundNomer.Row, 2)  'номер документа
         .Range("B5") = Cells(FoundNomer.Row, 3)  'ФИО
         .Range("B7") = Cells(FoundNomer.Row, 4)  'гражданство
         .Range("B9") = Cells(FoundNomer.Row, 5)  'дата
         .Range("B11") = Cells(FoundNomer.Row, 6) 'паспорт
         .PrintPreview
         Nomer = Nomer + 1
     End With
     Loop While Nomer <> Range("L1") + 1
End Sub
[/vba]
Для печати замените строку .PrintPreview на .PrintOut
Автор - Kuzmich
Дата добавления - 15.04.2015 в 00:47
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как напечатать док-ты заданной формы с данными из таблицы (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!