Excel - makro za samodejno številčenje računov

Težava

Račune shranjujem pod Excelom, vendar moram vsakič ročno dodeliti novo številko vsakemu od njih.

Ali je mogoče avtomatsko oštevilčevanje z makrom?

Rešitev

To je makro, ki lahko poveča (na primer) številko računa. V tem makru se številka prikaže v celici "A1", vendar se lahko spremeni v vaše udobje.

 Sub Increment_invoice () Dim num As Integer Range ("A1") Izberite num = Razpon ("A1") Vrednost num = num + 1 Območje ("A1"). 

Prav tako želite dodati te vrstice na konec makra, tako da bo vsakič, ko boste natisnili račun, samodejno povečali naslednjo vrstico:

 Sub PRINT () ActiveWindow.SelectedSheets.PrintOut Copies: = 1, Collate: = True Dim num kot Integer Range ("A1"). Izberite num = Range ("A1") Vrednost num = num + 1 Range ("A1") ) .Value = num End Sub