Excel - Makro pro automatické číslování faktur

Problém

Své faktury ukládám do Excelu, ale musím jim přiřadit vždy nové číslo.

Je možné použít automatické číslování pomocí makra?

Řešení

Toto je makro, které může zvýšit (například) číslo faktury. V tomto makru je číslo zobrazeno v buňce "A1", ale může být změněno na vaše pohodlí.

 Sub Increment_invoice () Dim num Jako Integer Range ("A1") Vyberte num = Range ("A1") Hodnota num = num + 1 Range ("A1") Hodnota = num End Sub 

Chcete také přidat tyto řádky na konec makra, aby se při každém tisku faktury automaticky zvyšovala následující hodnota:

 Sub PRINT () ActiveWindow. ) .Value = num End Sub