Vytvorte jedinečné číslo záznamu - Tipy pre Excel

Obsah

Janet z Anglicka položila dnešnú otázku.

Potrebujeme vedieť, ako nastaviť makro, ktoré priradí jedinečné číslo faktúry, ako nastaviť druhé makro, ktoré uloží vyplnenú faktúru ako jedinečné číslo.

Tu je hypotetická aplikácia, ktorú si predstavujem. K dispozícii je zošit s hárkom Faktúra a hárkom ponuky. Navrhujem uložiť posledné číslo faktúry do bunky mimo cestu v pracovnom hárku ponuky, povedzme Z1. Ak sa má číslo faktúry nachádzať v bunke H2 tabuľky s faktúrami, potom by toto makro stačilo:

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

Potom pre uloženie faktúry niečo také:

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

Zaujímavé články...