Счетчик при каждом открытии Excel в ячейке

[Йогурт]

Здравствуйте! Суть вопроса - Есть шаблон в Excel-е! В нем есть "Товарный чек №" так вот..мне надо чтобы при каждом открытии Excel записывался № по наростанию в ячейку! Например..открыл один раз записался товарный чек №1..открыл второй раз записался товарный чек №2 и т.д!

Заранее спасибо за помощь!

[Йогурт]

Поможет кто??

[IgorGO]

положите это

Private Sub Workbook_Open()
  r = 3
  c = 10
  Cells(r, c) = Cells(r, c) + 1
  Save
End Sub

в модуль "ЭтаКнига" Вашего шаблона и открывайте, открывайте, открывайте. Только вместо 3 и 10 укажите ряд и колонку, где находится счетчик чеков.

Йогурт, да Вы горячи, как чай. Извините, не успели за 27 минут ответ написать. Модератор не уследил...

[Йогурт]

Сообщение от IgorGO

положите это

Private Sub Workbook_Open()
  r = 3
  c = 10
  Cells(r, c) = Cells(r, c) + 1
  Save
End Sub

в модуль "ЭтаКнига" Вашего шаблона и открывайте, открывайте, открывайте. Только вместо 3 и 10 укажите ряд и колонку, где находится счетчик чеков.

Йогурт, да Вы горячи, как чай. Извините, не успели за 27 минут ответ написать. Модератор не уследил...

Где этот модуль? По конкретней куда этот код вложить? Я в excel-е просто 0 ((

[IgorGO]

1.открыли шаблон
2.нажали Alt+F11 (открылся редактор VBE)
3.Ctrl+R (открылся или стал активным просмотр проектов)
4.Ищем в списке проект с таким же именем как шаблон
5.в проекте есть модуль "ЭтаКнига"
во в него и копируем код.
напишите вместо r = 3 c = 10 - правильные значения.

[Йогурт]

Спасибо огромное за помощь! Только вот он мне все время выдает сообщение о безопасности! Якобы содержит макрос и т.д! Как то не очень =)

[IgorGO]

1.большая круглая кнопка Excel (слева-сверху)
2.параметры Excel
3.центр управления безопасностью
4.параментры центра управления безопасностью
5.парметры макросов
6.выбираете включить все макросы

[ELE-COM]

Сообщение от IgorGO

положите это

Private Sub Workbook_Open()
  r = 3
  c = 10
  Cells(r, c) = Cells(r, c) + 1
  Save
End Sub

...

У меня этот код не работает (excel 2003)
А вот этот работает:

Sub Auto_Open()
   Worksheets(1).Range("A1") = Worksheets(1).Range("A1") + 1
End Sub

[Serge 007]

Сообщение от ELE-COM

У меня этот код не работает (excel 2003)
А вот этот работает:

Ваш код должен находится в стандартном модуле, а код IgorGO должен находится в модуле "Эта книга".

[SAS888]

Для формирования уникального номера товарного чека можно использовать как ячейку листа, так и значение по созданной ветке в реестре Windows. Ну, это уже детали. Хочу заметить, что инкременировать номер при открытии файла не есть правильно. Если, например, пользователь несколько раз открыл и закрыл файл, при этом не сформировал ни одного товарного чека, то часть номеров будет пропущена. Также, если, открыв файл, требуется сформировать несколько товарных чеков, то все они будут иметь одинаковый номер. Так что лучше инкременировать номер в ячейке (реестре) при, например, отправке сформированного товарного чека на печать и т.п.