Ustvarite enolično številko zapisa - Excel Nasveti

Janet iz Anglije je postavila današnje vprašanje.

Vedeti moramo, kako nastaviti makro, ki bo dodelil enolično številko računa, kako nastaviti drugi makro, ki bo izpolnjeni račun shranil kot enolično številko.

Tukaj si predstavljam hipotetično aplikacijo. Obstaja delovni zvezek z delovnim listom Račun in delovnim listom Meni. Predlagam, da zadnjo številko računa shranite v izhodni celici na delovnem listu Meni, recimo Z1. Če naj bi številka računa šla v celico H2 delovnega lista računa, bi ta makro naredil trik:

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

Nato, da shranite račun, nekaj takega:

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