Необходимо создать подобие программы по изготовлению бейджей. Необходимо допилить макрос либо заменить формулами.
В прикрепленном файле первый лист это сам бейдж - в нем необходимо заполнять графы "компания", "ФИО", "должность", "контактные данные". После чего запускаем макрос - в листе список появляется новая строка с внесенными данными. На листе бейдж удаляется графа "контактные данные", т.к. они не нужны на самом бейдже. После этого кнопка печать.
Алгоритм работы оператора: подходит посетитель - ввод данных - кликает макрос - кликает печать; следующий посетитель - ввод данных - два клика.....
При этом создается список в листе "список" с контактными данными.
Прошу посмотреть мой файл и предложить варианты. Заранее большое спасибо откликнувшимся на просьбу!
Добрый день,
Необходимо создать подобие программы по изготовлению бейджей. Необходимо допилить макрос либо заменить формулами.
В прикрепленном файле первый лист это сам бейдж - в нем необходимо заполнять графы "компания", "ФИО", "должность", "контактные данные". После чего запускаем макрос - в листе список появляется новая строка с внесенными данными. На листе бейдж удаляется графа "контактные данные", т.к. они не нужны на самом бейдже. После этого кнопка печать.
Алгоритм работы оператора: подходит посетитель - ввод данных - кликает макрос - кликает печать; следующий посетитель - ввод данных - два клика.....
При этом создается список в листе "список" с контактными данными.
Прошу посмотреть мой файл и предложить варианты. Заранее большое спасибо откликнувшимся на просьбу!v_i_t_a_l_y_a
Sub список() Dim ar() ar = Range("B4:B8").Value Range("B4:B8").ClearContents With Sheets("Список") .Cells((.Cells(Rows.Count, 1).End(xlUp).Row) + 1, 1).Resize(, 5) = Application.Transpose(ar) End With End Sub
[/vba]
Вместо своего макроса "списООк" [vba]
Код
Sub список() Dim ar() ar = Range("B4:B8").Value Range("B4:B8").ClearContents With Sheets("Список") .Cells((.Cells(Rows.Count, 1).End(xlUp).Row) + 1, 1).Resize(, 5) = Application.Transpose(ar) End With End Sub
Теперь вопрос как с уже имеющегося списка поставить имена в форму для бейджа для печати? Обратный алгоритм работы макроса "список" - нужно взять данные из списка поставить их в форму с применением стиля формы и удалить строку в списке, чтоб не путаться. После кнопка печать.
wild_pig Большое спасибо!
Выкладываю получившийся файл.
Теперь вопрос как с уже имеющегося списка поставить имена в форму для бейджа для печати? Обратный алгоритм работы макроса "список" - нужно взять данные из списка поставить их в форму с применением стиля формы и удалить строку в списке, чтоб не путаться. После кнопка печать.v_i_t_a_l_y_a
Я совсем профан в этом. Сижу разбираюсь, пробую. Буду очень признателен за помощь. Если Ваш скрипт будет с описанием тогда сам могу править))) Пока не понятна команда .Cells и как применить стиль формы
Я совсем профан в этом. Сижу разбираюсь, пробую. Буду очень признателен за помощь. Если Ваш скрипт будет с описанием тогда сам могу править))) Пока не понятна команда .Cells и как применить стиль формыv_i_t_a_l_y_a
Сообщение отредактировал v_i_t_a_l_y_a - Суббота, 01.03.2014, 21:37
Может надо ещё и зависимые выпадающие списки соорудить - выбрал Васю а в фамилии все Василии.
Нет выпадающий список не нужен.
Объясню суть дела: Нужно два файла- один для выдачи бейджа непосредственно на мероприятии, когда человек подходит к оператору и он ему выдает бейдж на месте. Этот файл мы с Вами сделали, с сохранением списка посетителей.
Второй файл нужен для изготовления бейджей заранее, с уже подготовленного списка участников. Обратный алгоритм, вставляю в список полученные списки, запускаю макрос, он подставляет данные в форму и распечатывает. Вставленная строка удаляется со списка и так до последнего в списке.
Может надо ещё и зависимые выпадающие списки соорудить - выбрал Васю а в фамилии все Василии.
Нет выпадающий список не нужен.
Объясню суть дела: Нужно два файла- один для выдачи бейджа непосредственно на мероприятии, когда человек подходит к оператору и он ему выдает бейдж на месте. Этот файл мы с Вами сделали, с сохранением списка посетителей.
Второй файл нужен для изготовления бейджей заранее, с уже подготовленного списка участников. Обратный алгоритм, вставляю в список полученные списки, запускаю макрос, он подставляет данные в форму и распечатывает. Вставленная строка удаляется со списка и так до последнего в списке.
Спасибо большое за инструмент "Слияние" очень полезная штука. Я так делаю только через Corel, инструмент Print Merge. Но хотелось бы получить все в Excel.
Спасибо большое за инструмент "Слияние" очень полезная штука. Я так делаю только через Corel, инструмент Print Merge. Но хотелось бы получить все в Excel.v_i_t_a_l_y_a
Sub печать_списка() With Sheets("Список") For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row Cells(4, 2) = .Cells(i, 1) Cells(5, 2) = .Cells(i, 2) Cells(6, 2) = .Cells(i, 3) Cells(7, 2) = .Cells(i, 4) Cells(8, 2) = .Cells(i, 5) Worksheets("бейдж").PrintOut Next End With End Sub
[/vba]
На печать все записи [vba]
Код
Sub печать_списка() With Sheets("Список") For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row Cells(4, 2) = .Cells(i, 1) Cells(5, 2) = .Cells(i, 2) Cells(6, 2) = .Cells(i, 3) Cells(7, 2) = .Cells(i, 4) Cells(8, 2) = .Cells(i, 5) Worksheets("бейдж").PrintOut Next End With End Sub
Принцип работы: Выбираем поиск набираем название компании (первые буквы) - В поле компании отображаются найденные компании - при выборе компании - в правом окне появляются фамилии (сотрудники компании) - при нажатии на фамилию данные из строки переносятся в форму бейджа.
В данное время при нажатии на компанию в поиске переходит на лист со списком в ячейку с компанией.
Хотелось бы, добавить в саму форму функцию как во втором приложенном файле, соответствующая ячейка предлагает имена уже вбитые ранее. Только если имя не встречалось (в файле оно исчезает) оно должно остаться в поле.
Есть необходимость добавить поиск.
Принцип работы: Выбираем поиск набираем название компании (первые буквы) - В поле компании отображаются найденные компании - при выборе компании - в правом окне появляются фамилии (сотрудники компании) - при нажатии на фамилию данные из строки переносятся в форму бейджа.
В данное время при нажатии на компанию в поиске переходит на лист со списком в ячейку с компанией.
Хотелось бы, добавить в саму форму функцию как во втором приложенном файле, соответствующая ячейка предлагает имена уже вбитые ранее. Только если имя не встречалось (в файле оно исчезает) оно должно остаться в поле.v_i_t_a_l_y_a
Добрый день, подниму тему. Есть необходимость добавить поиск по номеру. Необходимо: в поле Штрих код забить число соответствующее столбцу штрих код на странице список. После этого в форму бейджа скопируются фамилия и тд. соответствующее списку:
Тот поиск который у меня есть, почему то не ищет по цифрам, так бы модифицировал его. Помогите пожалуйста разобраться.
Добрый день, подниму тему. Есть необходимость добавить поиск по номеру. Необходимо: в поле Штрих код забить число соответствующее столбцу штрих код на странице список. После этого в форму бейджа скопируются фамилия и тд. соответствующее списку: