Creați un număr unic de înregistrare - Sfaturi Excel

Janet din Anglia a pus întrebarea de astăzi.

Trebuie să știm cum să configurăm o macrocomandă care va atribui un număr unic de factură, cum să configurăm o a doua macrocomandă care va salva factura completată ca număr unic.

Iată aplicația ipotetică pe care o imaginez. Există un registru de lucru cu o foaie de lucru Factură și o foaie de lucru Meniu. Vă propun să stocați ultimul număr de factură pe o celulă de pe foaia de lucru Meniu, să zicem Z1. Dacă numărul facturii ar trebui să meargă în celula H2 a foii de lucru a facturii, atunci această macrocomandă ar face trucul:

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

Apoi, pentru a salva factura, ceva de genul acesta:

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