Створіть унікальний номер запису - Поради 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