Lag et unikt postnummer - Excel-tips

Janet fra England stilte dagens spørsmål.

Vi trenger å vite hvordan du setter opp en makro som vil tilordne et unikt fakturanummer, hvordan du setter opp en ekstra makro som vil lagre den fullførte fakturaen som det unike nummeret.

Her er den hypotetiske applikasjonen jeg forestiller meg. Det er en arbeidsbok med et fakturaark og et menyark. Jeg foreslår at du lagrer det siste fakturanummeret i en celle som ikke er i veien på menyarket, la oss si Z1. Hvis fakturanummeret skal gå i celle H2 i fakturaarket, vil denne makroen gjøre susen:

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

Så, for å lagre fakturaen, noe sånt som dette:

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