Looge kordumatu rekordnumber - Exceli näpunäited

Tänase küsimuse esitas Janet Inglismaalt.

Peame teadma, kuidas seadistada makro, mis määrab kordumatu arve numbri, kuidas seadistada teine ​​makro, mis salvestab täidetud arve unikaalse numbrina.

Siin on hüpoteetiline rakendus, mida ma ette kujutan. Seal on töövihik koos arve töölehega ja töölehega Menüü. Pakun, et viimane arve number tuleks salvestada menüü töölehe lahtrisse, mis ütleb viisile Z1. Kui arve number peaks minema arve töölehe lahtrisse H2, teeks see makro triki:

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

Seejärel saate arve salvestamiseks midagi sellist:

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