Sukurkite unikalų įrašo numerį - „Excel“ patarimai

Janet iš Anglijos pateikė šios dienos klausimą.

Turime žinoti, kaip nustatyti makrokomandą, kuri priskirs unikalų sąskaitos faktūros numerį, kaip nustatyti antrąją makrokomandą, kuri užpildytą sąskaitą faktūrą išsaugos kaip unikalų numerį.

Čia yra hipotetinis mano įsivaizduojamas pritaikymas. Yra darbaknygė su sąskaitos faktūros ir meniu darbalapiu. Siūlau paskutinį sąskaitos faktūros numerį išsaugoti langelyje „Men“ darbalapyje, sakykime, kad Z1. Jei sąskaitos faktūros numeris turėtų būti sąskaitos faktūros darbalapio H2 langelyje, ši makrokomanda atliks apgaulę:

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

Tada, norėdami išsaugoti sąskaitą faktūrą, maždaug taip:

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