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