Динамическая нумерация при распечатке

Пользователь

Сообщений: 12 Регистрация: 01.11.2016

13.06.2025 14:16:15

Всем привет!

Есть партия, например 360 коробок. Есть шаблон на одном листе. Нужно распечатать, так чтобы в определённом поле можно было выбирать начальный и конечный номер, а под ним общее количество.
Например: нужно с 115 по 189. При печати он на одном и том же шаблоне с текстом в определённых полях сначала печатает 115 / 360, потом 116 / 360 и так далее до 189 / 360.

Помогите пожалуйста!

Sanja

Модератор

Сообщений: 19835 Регистрация: 10.01.2013

13.06.2025 14:27:19

Макрос. Измените адреса ячеек в соответствии с комментариями в коде

Код

Sub NumPrint()
Dim frstNum&, endNum&, allNum&
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveSheet    'для активного листа
  frstNum = .Range("A1").Value 'начальный номер в ячейке 'A1'
  endNum = .Range("A2").Value 'конечный номер в ячейке 'A2'
  allNum = .Range("A3").Value 'всего номеров в ячейке 'A3'
  For I = frstNum To endNum
    .Range("B1") = I & "/" & allNum 'нужный текст будет вставлен в ячейку 'B1'
    .PrintOut
  Next
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Согласие есть продукт при полном непротивлении сторон

SDamir

Пользователь

Сообщений: 12 Регистрация: 01.11.2016

13.06.2025 14:37:35

Sanja, благодарю за оперативность!!!

Я выше немного некорректно описал нужный результат.
Мне нужно, на шаблоне условно в ячейке J9 порядковый номер, а под ней в ячейке J10 общее количество коробов.
Будьте добры, скорректируйте пожалуйста и ещё одна глупая просьба: подскажите пожалуйста как потом вставить данный макрос, т.к. я с ними ранее не работал...

С уважением,
Дамир

SDamir Пользователь Сообщений: 12 Регистрация: 01.11.2016	#4 13.06.2025 14:38:44 Также, мне нужно указать общее количество коробов и нумерацию с / по на одном листе, а печать шаблона с другого листа, но в той же книге.

Sanja Модератор Сообщений: 19835 Регистрация: 10.01.2013	#5 13.06.2025 14:40:02 Лучше файл-пример(Excel) приложите. Сразу в нем и подскажу Согласие есть продукт при полном непротивлении сторон

SDamir Пользователь Сообщений: 12 Регистрация: 01.11.2016	#6 13.06.2025 14:46:37 в нём, к сожалению, очень много конфиденциальной информации... боюсь утечки Можете здесь на словах объяснить?

Sanja

Модератор

Сообщений: 19835 Регистрация: 10.01.2013

13.06.2025 14:56:18

Создание макросов и пользовательских функций на VBA
Макрос вставить в Общий модуль

Скрытый текст

Согласие есть продукт при полном непротивлении сторон

SDamir

Пользователь

Сообщений: 12 Регистрация: 01.11.2016

13.06.2025 15:45:11

Цитата
написал: Я выше немного некорректно описал нужный результат. Мне нужно, на шаблоне условно в ячейке J9 порядковый номер, а под ней в ячейке J10 общее количество коробов. Будьте добры, скорректируйте пожалуйста

С этим сможете помочь?

Sanja Модератор Сообщений: 19835 Регистрация: 10.01.2013	#9 13.06.2025 15:46:42 Так скорректировал же. Макрос под спойлером, нажмите на + Согласие есть продукт при полном непротивлении сторон

SDamir Пользователь Сообщений: 12 Регистрация: 01.11.2016	#10 13.06.2025 17:47:43 ОГРОМНОЕ человеческое спасибо!!! Всё работает отлично на 5+ С уважением, Дамир Изменено: SDamir - 13.06.2025 17:50:20

SDamir Пользователь Сообщений: 12 Регистрация: 01.11.2016	#11 13.06.2025 17:50:04 Подскажите пожалуйста, как сделать так, чтобы в случае, если общее количество неизвестно, я оставляю поле пустым и при печати не выходило "0"? Изменено: SDamir - 13.06.2025 18:17:20

Sanja

Модератор

Сообщений: 19835 Регистрация: 10.01.2013

#12

14.06.2025 05:28:32

Вот

Скрытый текст

Согласие есть продукт при полном непротивлении сторон

SDamir Пользователь Сообщений: 12 Регистрация: 01.11.2016	#13 14.06.2025 12:55:34 Добрый день! К сожалению, не сработало. Если оставить поле общее количество пустым, в шаблоне всё равно выходит "0" Прикрепленные файлы 2.0.PNG (3.22 КБ) Изменено: SDamir - 14.06.2025 12:58:19

Sanja

Модератор

Сообщений: 19835 Регистрация: 10.01.2013

#14

14.06.2025 15:31:52

Вы последний код использовали? Полностью его скопировали?
Попробуйте закомментировать строку On Error Resume Next и запустить макрос. Если вылетит ошибка - выложите ее скрин

Согласие есть продукт при полном непротивлении сторон

SDamir

Пользователь

Сообщений: 12 Регистрация: 01.11.2016

#15

14.06.2025 18:42:04

Я скопировал последний код и использовал
У меня не выходит ошибка, Ваш макрос работает превосходно, благодарю!

Опишу ситуацию по-другому: бывают случаи, когда общее количество коробов изначально неизвестно. В этих случаях, нужно чтобы был только порядковый номер 1, 2, 3, 4 и т.д. Соответственно, поле с общим числом коробов я оставляю пустым, чтобы потом при отгрузке написать вручную на каждом листе общее количество, но при этом, если поле общего количества пустое, то в шаблоне в поле общего количества появляется "0". Можно как-то задать условие, что если поле общего количества пустое, то и шаблоне в этом поле было пусто?

SDamir Пользователь Сообщений: 12 Регистрация: 01.11.2016	#16 15.06.2025 11:18:15 скрин ошибки ниже Прикрепленные файлы error.PNG (38.33 КБ)

Sanja Модератор Сообщений: 19835 Регистрация: 10.01.2013	#17 15.06.2025 11:26:41 На скрине совсем другой код, первый. Используйте код из сообщения #12. Он под спойлером. Что-бы его открыть нажмите '+' Согласие есть продукт при полном непротивлении сторон

SDamir Пользователь Сообщений: 12 Регистрация: 01.11.2016	#18 15.06.2025 11:56:18 ОГРОМНЕЙШАЯ БЛАГОДАРНОСТЬ!!! Нашёл ошибку. Всё работает! С уважением, Дамир!

Читают тему