У меня есть номер заказа, возможно его менять на +1 каждый раз после того как я его распечатал. Т.е. чтобы вести учет заказов автоматически а не каждый раз вручную его изменять.
Счетчик печати документа, Изменять номер заказа после его печати
08.08.2014 10:47:16
|
|
|
|
08.08.2014 10:49:53
|
|
|
|
08.08.2014 10:53:02
Ок, спасибо за подсказку.Изменять номер в позиции товарный чек
|
|
|
|
08.08.2014 11:14:55
Вариант.
|
|
|
|
08.08.2014 11:29:53
|
|||
|
|
08.08.2014 11:42:00
Михаил С., я так понимаю это записывается макрос и вызывается он по сочетанию клавиш ctrl+p? А можно сделать чтобы номер менялся по нажатию клавиши ОК в меню печати, просто если нажимаешь отменить печать а номер уже изменился, может возникнуть какая-то путаница или этого нет в возможностях эксель?!
|
|
|
|
08.08.2014 11:43:35
|
|
|
|
08.08.2014 11:44:51
|
|||
|
|
08.08.2014 11:48:03
Принтер есть))).Попробовать можно , знать бы как это сделать. Опыта написания макросов нет.
|
|
|
|
08.08.2014 11:48:45
Мой вариант проверяли?
|
|
|
|
08.08.2014 11:51:27
Ваш меняет номер перед выводом окна печати.
|
|
|
|
08.08.2014 11:51:48
f1alexey, просто отправляете лист на печать (лучше виртуального пдф принтера чтобы бумагу не портить) и номер меняется на +1 там где просили.
|
|
|
|
08.08.2014 11:52:43
Вот мой вариант. Макросы можно посмотреть Alt+F11 - модуль "Эта книга"
Изменено: |
|||||
|
|
08.08.2014 11:53:49
|
|||
|
|
08.08.2014 11:59:41
Или нарисовать на листе кнопку, по которой лист будет отправляться на печать, а уже потом макрос изменит номер.
|
|
|
|
08.08.2014 12:00:38
|
|||
|
|
08.08.2014 12:03:43
Всем спасибо за помощь. |
|||
|
|
05.08.2020 12:12:17
Не могли бы помочь нарисовать кнопку, чтобы номер меньше на единицу не делать? Т.е. номер, который нужно напечатать был, а после печати документа, номер прибавлялся +1. Заранее благодарю! |
|||
|
|
05.08.2020 12:17:03
smalljohn, можно я помогу? Выбирайте любую:
|
|
|
|
05.08.2020 12:20:09
Hugo, кнопку? Без разницы. Обычный прямоугольник, если можно с надписью "Печать"
|
|
|
|
05.08.2020 12:21:54
Так берите любой из показанных (они все у Вас есть в Вставка->Фигуры), пишите на нём что хотите.
Изменено: |
|
|
|
31.05.2022 18:03:57
Добрый день!
Подскажите пожалуйста, как скопировать макрос: " Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim a a = Split([a1], "№") a(1) = Format(a(1) + 1, "000000") [a1] = Join(a, "№") End Sub" в другую ячейку, например - в А29 |
|
|
|
31.05.2022 18:41:33
Павел Панин, так?
|
|||
|
|
09.06.2022 14:21:46
|
||||
|
|
|||