Opret et unikt postnummer - Excel-tip

Janet fra England stillede dagens spørgsmål.

Vi har brug for at vide, hvordan man opretter en makro, der tildeler et unikt fakturanummer, hvordan man opretter en anden makro, der gemmer den færdige faktura som det unikke nummer.

Her er den hypotetiske anvendelse, som jeg forestiller mig. Der er en projektmappe med et fakturaark og et menuark. Jeg foreslår at gemme det sidste fakturanummer på en celle, der ikke er i vejen, i menuarket, lad os sige Z1. Hvis fakturanummeret skal gå i celle H2 i fakturaarket, ville denne makro gøre tricket:

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

Derefter, for at gemme fakturaen, noget 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