Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
nevr
0 / 0 / 0
Регистрация: 25.03.2011
Сообщений: 3
#1

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

25.03.2011, 09:28. Просмотров 1088. Ответов 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 (VBA):

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

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

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

Как задать соответствие одних значений, одного листа Excel, значениям другого листа Excel - MS Excel
Есть лист Excel ,значения в нем постоянны и находятся на одном месте (в одном столбце и в одной строчке). Другие значения в этом же листе...

Организовать доступ для редактирования excel на FTP с нескольких ПК одновременно без установки доп. софта - Windows 7
Всем привет! Столкнулся с такой проблемой: Мне надо сделать 1 exel файл, доступный для редактирования нескольким людям БЕЗ УСТАНОВКИ...

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

6
solar_wind
760 / 751 / 42
Регистрация: 06.07.2009
Сообщений: 2,988
Завершенные тесты: 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
10666 / 3241 / 535
Регистрация: 13.02.2009
Сообщений: 9,559
25.03.2011, 10:38 #4
Где ставится "х"?
Где бланК?
Приложи файлы
0
solar_wind
760 / 751 / 42
Регистрация: 06.07.2009
Сообщений: 2,988
Завершенные тесты: 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
10666 / 3241 / 535
Регистрация: 13.02.2009
Сообщений: 9,559
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2011, 11:36
Привет! Вот еще темы с ответами:

Как организовать вывод данных из листа? - C#
как организовать вывод данных из листа? через CWL нельзя? foreach (var avto in car) { if...

Перенос нескольких значений с одного листа на другой - MS Excel
Здравствуйте. В документе имеется 3 листа (вкладки), на каждом отдельная таблица. На первых 2 листах: 1 столбец - фамилии, 2 столбец -...

Передача данных из Excel в Word (через Закладки) из нескольких страниц Excel - VBA
Товарищи прошу помощи! В книге есть 3 закладки: Org - данные об организации (только 1 строчка всегда будет), KL - данные о...

Заполнение ячейки данными из нескольких ячеек другого листа - MS Excel
Уважаемые форумчане, прошу помочь в следующем. Суть проблемы: есть форма бланка свидетельства о поверке средств измерений в экселе, в...


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

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

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