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

Джанет из Англии задала сегодняшний вопрос.

Нам нужно знать, как настроить макрос, который будет назначать уникальный номер счета, как настроить второй макрос, который сохранит заполненный счет как уникальный номер.

Вот гипотетическое приложение, которое я себе представляю. Существует рабочая книга с листом счета-фактуры и листом меню. Я предлагаю сохранить номер последнего счета в отдельной ячейке на листе меню, скажем, Z1. Если номер счета-фактуры должен находиться в ячейке H2 рабочего листа счета-фактуры, то этот макрос поможет:

Sub GetNextInvoiceNumber() LastInv = Worksheets("Menu").Range("Z1").Value NextInv = LastInv + 1 Worksheets("Invoice").Range("H2").value = NextInv Worksheets("Menu").Range("Z1").value = NextInv End Sub

Затем, чтобы сохранить счет, примерно так:

Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub