Excel - макрос за извършване на автоматичното номериране на фактури

Проблем

Аз съхранявам фактурите си под Excel, но трябва да назначавам нов номер на всеки от тях всеки път.

Възможно ли е автоматичното номериране да се използва с макрос?

Решение

Това е макрос, който може да увеличи (например) номер на фактура. В този макрос номерът се показва в клетка "A1", но може да бъде променена според вашето удобство.

 Sub Increment_invoice () Dim num As Integer Range ("A1"). Изберете num = Range ("A1") Стойност num = num + 1 Обхват ("A1"). 

Също така искате да добавите тези редове в края на макрос, така че всеки път, когато отпечатвате фактурата си, следващата ще се увеличи автоматично, както следва:

 Под PRINT () ActiveWindow.SelectedSheets.PrintOut Copies: = 1, Collate: = True Dim num като цяло число ("A1"). Изберете num = Range ("A1") Стойност num = num + 1 Range ("A1") ) .Value = num End Sub