Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
nevr
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 3
#1

Организовать распечатку нескольких бланков с отмеченными фамилиями из листа Excel

25.03.2011, 09:28. Просмотров 1098. Ответов 6
Метки нет (Все метки)

День добрый!
Не судите строго, я сисадмин, а не программист. Помогите с решением простенькой задачи в Excel, которую надо решить на visual basic.
Итак. В книге Excel имеется лист "Данные" и лист "Бланк". С помощью функции ВПР (=ВПР("x";База_данных;5;ЛОЖЬ)) из диапазона "База_данных" по значку "x" фамилия переносится из листа "Данные" в лист "Бланк".
Задача. Если отметить значком "x" нескольких человек, то как организовать распечатку нескольких бланком с отмеченными фамилиями?
Будьте милостливы, помогите с решением!

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2011, 09:28
Ответы с готовыми решениями:

При создании нового листа произвести проверку на существование вводимого имени листа в текущей книге EXCEL
При создании нового листа, произвести проверку на существование вводимого имени...

Как организовать авточтение названия листа
Мне нужно последовательно указать листы программе, с которыми она будет...

А как запретить распечатку адреса страницы внизу листа?
ПРивет. Полскажите, как запретить распечатку адреса страницы внизу листа?...

Как задать соответствие одних значений, одного листа Excel, значениям другого листа Excel
Есть лист Excel ,значения в нем постоянны и находятся на одном месте (в одном...

Организовать доступ для редактирования excel на FTP с нескольких ПК одновременно без установки доп. софта
Всем привет! Столкнулся с такой проблемой: Мне надо сделать 1 exel файл,...

6
solar_wind
761 / 752 / 58
Регистрация: 06.07.2009
Сообщений: 2,991
Завершенные тесты: 1
25.03.2011, 09:46 #2
nevr, То что у тебя есть это не VBA.
Если делать так же, то делаешь сколько надо бланков, для первого отмечаешь x, для второго y и т.д.

Если же это все автоматизировать на VBA, то создаешь макрос.
Делаешь цикл по всем строкам базы и если стоит x, то создаешь новый лист и туда все запихиваешь. Вообщем то ничего сложного нет, главное бланк программно нарисовать, а данные засунуть не проблема вообще.

Добавлено через 50 секунд
Либо делаешь эталон бланка и копируешь с эталонного листа на новый
0
nevr
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 3
25.03.2011, 10:02  [ТС] #3
Я думал реализовать типа
1. По первому столбцу ищется "х"
2. Если найден "х", то идет печать бланка
3. С отработанной строки "х" убирается
4. Возврат к п.1
5. Если "х" нет, то конец.

Только не знаю как это реализовать ((
0
Alex77755
10714 / 3289 / 547
Регистрация: 13.02.2009
Сообщений: 9,669
25.03.2011, 10:38 #4
Где ставится "х"?
Где бланК?
Приложи файлы
0
solar_wind
761 / 752 / 58
Регистрация: 06.07.2009
Сообщений: 2,991
Завершенные тесты: 1
25.03.2011, 10:39 #5
nevr, Что конкретно не знаешь?
Как создать макрос?
Как запустить макрос?
Как сделать цикл?
Как получить данные из нужной ячейки?
Как поместить данные в нужную ячейку?
Как отправить страницу на печать?
А больше ничего и не требуется
0
nevr
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 3
25.03.2011, 11:02  [ТС] #6
Цитата Сообщение от Alex77755 Посмотреть сообщение
Где ставится "х"?
Где бланК?
Приложи файлы
Прикладываю
0
Вложения
Тип файла: 7z ФПК данные для б.л. от Р-Я проводники 3.XLS.7z (48.8 Кб, 28 просмотров)
Alex77755
10714 / 3289 / 547
Регистрация: 13.02.2009
Сообщений: 9,669
25.03.2011, 11:36 #7
Попробуй вариант:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Макрос8()
Dim R
On Error GoTo exit_sub
Do
    Cells.Find(What:="x", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
     R = Selection.Value
    Selection.ClearContents
    Sheets("Бланк").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Данные").Select
Loop While R <> ""
exit_sub:
End Sub
0
25.03.2011, 11:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2011, 11:36

Считать данные с листа EXCEL в Listview. Выбор листа в Combobox
Как считать с листа Excel - где его имя - выбранное значение из combobox. Если...

Как организовать вывод данных из листа?
как организовать вывод данных из листа? через CWL нельзя? foreach (var...

Хранение файлов и файловый менеджер в файле(листе) Excel, Бинарное хранение данных в CustomProperty листа Excel
Всем привет! Хочу поделится наработками, которые получились в процессе...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru