Последовательный номер документа

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

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

ipartizank

Дата: Пятница, 10.02.2012, 16:34 | Сообщение № 1

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

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

Сообщений: 2

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

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

Последовательный номер документа, при каждом новом открывании файла

т.е. в начале документа есть графа "Заказ на проведение работ № 356/7", ячейка(выделена) там порядковый номер(сейчас там 7), нужно чтоб при каждом новом открывании файла в данной ячейке проставлялся автоматически следующий номер (т.е. 8) и так далее (9,10,11)

везде искал на форумах, ответа не нашел, или криво искал)))

вообще возможно ли сделать так как я хочу?

К сообщению приложен файл: ___.xlsx (18.7 Kb)

Ответить

Serge_007

Дата: Пятница, 10.02.2012, 16:44 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Можно с помощью итераций (примеров на форуме много), но лучше макросами.

ЮMoney:41001419691823 | WMR:126292472390

Ответить

ipartizank

Дата: Пятница, 10.02.2012, 16:52 | Сообщение № 3

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

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

Сообщений: 2

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

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

можно подробнее!
пытался в поиске набрать и последовательность, что только не искал, того что мне нужно нет ни где

2 дня голову ломаю!

Ответить

Serge_007

Дата: Пятница, 10.02.2012, 17:01 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (ipartizank)

того что мне нужно нет ни где

Да неужели? А у меня яндекс гуглит

ЮMoney:41001419691823 | WMR:126292472390

Ответить

IgorGo

Дата: Пятница, 10.02.2012, 17:03 | Сообщение № 5

Группа: Друзья

Ранг: Форумчанин

Сообщений: 108

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

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

в модуль книги это:
Private Sub Workbook_Open()
Sheets(1).Cells(1, 7) = Sheets(1).Cells(1, 7) + 1
End Sub

Ответить

RAN

Дата: Пятница, 10.02.2012, 17:05 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Code

Private Sub Workbook_Open()
Sheets("Заявка").[G1] = Sheets("Заявка").[G1] + 1
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

DirtyHarry

Дата: Четверг, 03.10.2013, 16:43 | Сообщение № 7

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

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

Сообщений: 1

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

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

Excel 2007

Господа, а кто подскажет как изменить код чтобы при каждой отправке на печать к номеру документа прибавлялось +1? Очень нужно, Помогите.))
кстати очень полезно если бланк строгой отчетность печатный

Ответить

_Boroda_

Дата: Четверг, 03.10.2013, 16:58 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16675

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Замените
Workbook_Open()
на
Workbook_BeforePrint(Cancel As Boolean)
Но учтите, что он срабатывает и на предварительный просмотр.
Если не подходит, то читайте Правила форума и создавайте свою тему с примером в Excel

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Последовательный номер документа

Страница 1 из 1
1