Hozzon létre egyedi rekordszámot - Excel tippek

Az angol Janet tette fel a mai kérdést.

Tudnunk kell, hogyan állítsunk be egy makrót, amely egyedi számlaszámot rendel hozzá, hogyan állítsunk be egy második makrót, amely egyedi számként menti a kitöltött számlát.

Itt van az a hipotetikus alkalmazás, amelyet elképzeltem. Van egy munkafüzet Számla és Menü munkalapokkal. Javaslom az utolsó számlaszám eltárolását a Menü munkalap elhagyható celláján, mondjuk Z1-nek. Ha a számlaszám feltételezhetően a számla munkalapjának H2 cellájába kerül, akkor ez a makró megcsinálja:

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

Ezután a Számla mentéséhez valami ilyesmi:

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