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

@nevr · Регистрация: 25.03.2011

Студворк — интернет-сервис помощи студентам

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

@solar_wind · 25.03.2011, 09:46

nevr, То что у тебя есть это не VBA.
Если делать так же, то делаешь сколько надо бланков, для первого отмечаешь x, для второго y и т.д.

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

Добавлено через 50 секунд
Либо делаешь эталон бланка и копируешь с эталонного листа на новый

@nevr · 25.03.2011, 10:02 **[ТС]**

Я думал реализовать типа
1. По первому столбцу ищется "х"
2. Если найден "х", то идет печать бланка
3. С отработанной строки "х" убирается
4. Возврат к п.1
5. Если "х" нет, то конец.

Только не знаю как это реализовать ((

@Alex77755 · 25.03.2011, 10:38

Где ставится "х"?
Где бланК?
Приложи файлы

@solar_wind · 25.03.2011, 10:39

nevr, Что конкретно не знаешь?
Как создать макрос?
Как запустить макрос?
Как сделать цикл?
Как получить данные из нужной ячейки?
Как поместить данные в нужную ячейку?
Как отправить страницу на печать?
А больше ничего и не требуется

@nevr · 25.03.2011, 11:02 **[ТС]**

Сообщение от Alex77755

Где ставится "х"?
Где бланК?
Приложи файлы

Прикладываю

@Alex77755 · 25.03.2011, 11:36

Попробуй вариант:

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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@nevr 0 / 0 / 0 Регистрация: 25.03.2011 Сообщений: 3

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

@solar_wind 770 / 760 / 59 Регистрация: 06.07.2009 Сообщений: 3,021
	25.03.2011, 09:46
	nevr, То что у тебя есть это не VBA. Если делать так же, то делаешь сколько надо бланков, для первого отмечаешь x, для второго y и т.д. Если же это все автоматизировать на VBA, то создаешь макрос. Делаешь цикл по всем строкам базы и если стоит x, то создаешь новый лист и туда все запихиваешь. Вообщем то ничего сложного нет, главное бланк программно нарисовать, а данные засунуть не проблема вообще. Добавлено через 50 секунд Либо делаешь эталон бланка и копируешь с эталонного листа на новый 0

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

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	25.03.2011, 10:38
	Где ставится "х"? Где бланК? Приложи файлы 0

@solar_wind 770 / 760 / 59 Регистрация: 06.07.2009 Сообщений: 3,021
	25.03.2011, 10:39
	nevr, Что конкретно не знаешь? Как создать макрос? Как запустить макрос? Как сделать цикл? Как получить данные из нужной ячейки? Как поместить данные в нужную ячейку? Как отправить страницу на печать? А больше ничего и не требуется 0