Создание печатных форм

@basicrus · Регистрация: 27.08.2013

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

Доброго времени суток!!!
Возник такой вопрос: Есть таблица в Excel где Фамилия это ячейки A2-A700 Имя B2-B700 Отчество C2-C700
Есть графический макет заднего фона карты размером 8,5 на 5,4 мм
Возможно ли создать с помощью макроса такую печатную форму что бы она подставляла фамилию имя и отчество из ячеек и присваивала каждой такой карточке порядковый номер?
Если возможно поделитесь опытом как это осуществить.

@Epson1 · 25.12.2013, 22:06

Выдаёт ошибку в таком случае,но всё равно спасибо!

@sulfur · 26.12.2013, 00:00

после UsedRange.Rows.Count добавьте -1

Добавлено через 57 секунд

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
 
Application.ScreenUpdating = False
 
Name = InputBox("Название товара")
Rows(3).Copy
Rows(UsedRange.Rows.Count).Insert
Cells(UsedRange.Rows.Count-1, 1) = CStr(Name)
 
Лист4.Rows(4).Copy
Лист4.Rows(UsedRange.Rows.Count).Insert
 
Лист7.Rows(4).Copy
Лист7.Rows(UsedRange.Rows.Count).Insert
 
Лист1.Name = "Товары"
 
 
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

@Epson1 · 26.12.2013, 19:08

Спасибо Вам огромное,всё работает)

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@basicrus 0 / 0 / 0 Регистрация: 27.08.2013 Сообщений: 7

	Excel Создание печатных форм 27.08.2013, 22:27. Показов 5031. Ответов 22 Метки нет (Все метки) Доброго времени суток!!! Возник такой вопрос: Есть таблица в Excel где Фамилия это ячейки A2-A700 Имя B2-B700 Отчество C2-C700 Есть графический макет заднего фона карты размером 8,5 на 5,4 мм Возможно ли создать с помощью макроса такую печатную форму что бы она подставляла фамилию имя и отчество из ячеек и присваивала каждой такой карточке порядковый номер? Если возможно поделитесь опытом как это осуществить. 0

@Epson1 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 4
	25.12.2013, 22:06
	Выдаёт ошибку в таком случае,но всё равно спасибо! 0

@Epson1 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 4
	26.12.2013, 19:08
	Спасибо Вам огромное,всё работает) 0