Vytvořte jedinečné číslo záznamu - tipy pro Excel

Janet z Anglie položila dnešní otázku.

Potřebujeme vědět, jak nastavit makro, které přiřadí jedinečné číslo faktury, jak nastavit druhé makro, které uloží vyplněnou fakturu jako jedinečné číslo.

Zde je hypotetická aplikace, kterou si představuji. K dispozici je sešit s listem faktury a listem nabídky. Navrhuji uložení posledního čísla faktury na buňku mimo cestu v listu nabídky, řekněme Z1. Pokud má číslo faktury jít do buňky H2 listu faktury, pak by toto makro stačilo:

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

Pak, chcete-li uložit fakturu, něco takového:

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