Izveidojiet unikālu ieraksta numuru - Excel padomi

Dženeta no Anglijas uzdeva šodienas jautājumu.

Mums jāzina, kā izveidot makro, kas piešķirs unikālu rēķina numuru, kā iestatīt otru makro, kas aizpildīto rēķinu saglabās kā unikālo numuru.

Šeit ir hipotētiskais pielietojums, ko es iztēlojos. Ir darbgrāmata ar rēķina darblapu un izvēlnes darblapu. Es ierosinu pēdējo rēķina numuru uzglabāt izvēlnes darblapas šūnā, kurā nav ceļa, teiksim, Z1. Ja rēķina numuram ir jāiet rēķina darblapas šūnā H2, tad šis makro rīkosies šādi:

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

Pēc tam, lai saglabātu rēķinu, kaut kas līdzīgs šim:

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