Luo ainutlaatuinen tietueen numero - Excel-vinkit

Englantilainen Janet esitti tänään kysymyksen.

Meidän on tiedettävä, kuinka määritetään makro, joka antaa yksilöllisen laskunumeron, kuinka perustetaan toinen makro, joka tallentaa valmiin laskun yksilölliseksi numeroksi.

Tässä on hypoteettinen sovellus, jota kuvittelen. Siellä on työkirja, jossa on Lasku-taulukko ja Valikko-taulukko. Ehdotan viimeisen laskunumeron tallentamista Valikkotaulukon poissaolevaan soluun, sanotaan Z1. Jos laskun numeron oletetaan menevän laskun laskentataulukon soluun H2, tämä makro tekisi tempun:

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

Sitten voit tallentaa laskun jotain tällaista:

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