Автоматическая смена номера при печати.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Автоматическая смена номера при печати. (Формулы/Formulas)

wowan-baroban

Дата: Вторник, 06.03.2018, 12:00 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Все привет! Не являюсь опытным пользователем exce (вообще). Печатаю на работе путевые листы, и затем ставлю ручным нумератором четырех значные цифры как в 80-е.

Как сделать так, что бы при печати в ячейки O1 (подчеркнуто) прибавлялось +1?например: 0001, после печати 0002 и т.д. Буду очень очень благодарен Вам за помощь!

К сообщению приложен файл: 21.xls (61.0 Kb)

Ответить

and_evg

Дата: Вторник, 06.03.2018, 12:10 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 464

Репутация: 79 ±

Замечаний: 0% ±

Excel 2007

Привет
В модуль книги
[vba]

Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("O1").Value = Range("O1").Value + 1
End Sub

[/vba]

К сообщению приложен файл: 4766542.xls (65.5 Kb)

Ответить

wowan-baroban

Дата: Вторник, 06.03.2018, 12:36 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

and_evg, спасибо огромное!!! Не подскажите можно как нибудь в очередь поставить 150 листов и что бы они автоматически менялись? Если я нажимаю ctrl+p и ставлю например 100 экземпляров то он печатает одинаковые цифры... А то нажимать 100 р. на кнопку печати очень долго. Спасибо!