Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Печать каждой строки из таблицы на новом листе

Автор s133p, 09.12.2011, 10:54

« назад - далее »

s133p

День добрый.
Подскажите, пожалуйста:
Есть таблица с фамилиями :
Иванов Петя
Петров Вася
Сидоров Федя
Нужно распечатать каждую фамилию на новом листе.
(можно было бы сделать вручную, но их там 4000 фамилий.)

Спасибо

s133p

Результат при печати должен быть таким:
На 1 листе
Лубош Витвера   Kategorie 1

На 2 листе
Ирина Афанасьева   Kategorie 2

На 3 листе
Штефан Эрвер   Kategorie 2

На 4 листе
Денис Ларочкин   Kategorie 2
.......
И т.д.

cook_master

Вот такой безобидный макрос пойдёт?

Sub фамилияНаОтдельныйЛист()
rw = ActiveWorkbook.ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count

For i = 1 To rw
   ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
   ActiveWorkbook.ActiveSheet.Cells(1, 1) = ActiveWorkbook.Sheets("Лист1").Cells(i, 1)
   ActiveWorkbook.ActiveSheet.Cells(1, 2) = ActiveWorkbook.Sheets("Лист1").Cells(i, 2)
   ActiveWorkbook.ActiveSheet.Name = ActiveWorkbook.Sheets("Лист1").Cells(i, 1)
Next i

End Sub

cook_master

вот так лучше.

Sub фамилияНаОтдельныйЛист()
rw = ActiveWorkbook.ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count

For i = 1 To rw
   ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
   ActiveWorkbook.ActiveSheet.Cells(1, 1) = ActiveWorkbook.Sheets("Лист1").Cells(i, 1)
   ActiveWorkbook.ActiveSheet.Cells(1, 2) = ActiveWorkbook.Sheets("Лист1").Cells(i, 2)
   Columns("A:A").EntireColumn.AutoFit
   Columns("B:B").EntireColumn.AutoFit
   ActiveWorkbook.ActiveSheet.Name = ActiveWorkbook.Sheets("Лист1").Cells(i, 1)
   
Next i
End Sub


А потом вывести на печать всю книгу.

_Boroda_

#4
Вариант без макросов (на 2-м листе - сводная таблица)
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

cook_master

печатается-то не так, как хотелось автору.

_Boroda_

Цитата: cook_master от 09.12.2011, 14:07
печатается-то не так, как хотелось автору.

Тоже мне, проблема. Покрасить ненужное (в сводной делается автоматом) Перевложил в пред сообщение
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

s133p

#7
А как добавить сотрудников. Я попробовал прописать их в листе 2, но в листе 4 ничего не изменилось.
Добавлять их в лист 4? а зачем тогда лист 1.

С макросом не совсем удобно если их будет 4000 человек и как там поменять формат (размер, цвет) для всех 4000 .

_Boroda_

Лист 4 это сводная таблица, составленная по данным на листе 1.
Вы знаете что такое сводная? Диапазон у нее автоматом не меняется. Нужно нажать кнопку обновить или Alt+F5.
Чтобы не путать Вас листами, сделал новую таблицу. На листе 1 добавляем, на листе 2 обновляем сводную и печатаем
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Wasilic

#9
А по моему у автора другая задача.
Цитата: s133p от 09.12.2011, 10:54
Есть таблица с фамилиями :
Иванов Петя
Петров Вася
Сидоров Федя
Нужно распечатать каждую фамилию на новом листе.
(можно было бы сделать вручную, но их там 4000 фамилий.)
Мне так показалось, просто нужно автоматизировать печать на принтере. На каждый печатный лист Фамилия и другая относящаяся к ней информация.
Или я не прав?
(Вопрос Александру s133p)

Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

_Boroda_

Цитата: Wasilic от 09.12.2011, 18:55
Мне так показалось, просто нужно автоматизировать печать на принтере. На каждый печатный лист Фамилия и другая относящаяся к ней информация.
Или я не прав?
Меня тоже немного насторожило желание распечатать 4000 листов.
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Алексей Шмуйлович

Я бы решал эту задачу через слияние в Word. Делаете шаблон отчета, который хотите получить и добавляете Ваш список в Excel в качестве источника слияния.

s133p

#12
ЦитироватьНа каждый печатный лист Фамилия и другая относящаяся к ней информация

Да.

ЦитироватьМеня тоже немного насторожило желание распечатать 4000 листов.
Это зарплатный листок. На другой чистой стороне фамилия и имя будет, потом всё уходит в аппарат который пакует в конверты.

ЦитироватьНа листе 1 добавляем, на листе 2 обновляем сводную и печатаем
И кнопку обновить и Alt+F5 жал - не хочет обновляться :(

_Boroda_

Цитата: s133p от 12.12.2011, 10:01
ЦитироватьНа листе 1 добавляем, на листе 2 обновляем сводную и печатаем
И кнопку обновить и Alt+F5 жал - не хочет обновляться
Ну не знаю. У меня все обновляется.
Кладите свой файл (в котором не обновляется) и ПОШАГОВО описывайте, что и как делаете.
Пошагово - это примерно так:
на листе Лист1 в ячейку А13 пишу "ррр", в В13 пишу "ААА", на листе Лист2 выделяю ячейку А5, жму Alt+F5
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Wasilic

ЦитироватьЭто зарплатный листок. На другой чистой стороне фамилия и имя будет,
А что, Ф.И.О. на той же стороне не помещается?
Или принтер с двухсторонней печатью?  :)
И вообще, один рассчетный на один А4 - жирновато будет.
Экономика должна быть экономной.
Ложите натуральный пример фамилий на 10 (Ф.И.О. можно сменить),
а мы подумаем.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.