Excel - En makro til at udføre automatisk nummerering af fakturaer

Problem

Jeg gemmer mine fakturaer under Excel, men jeg skal manuelt tildele et nyt nummer til hver enkelt af dem hver gang.

Er det muligt at have automatisk nummerering ved hjælp af en makro?

Opløsning

Dette er en makro, der kan forøge (for eksempel) et faktura nummer. I denne makro vises nummeret i celle "A1", men det kan ændres til din bekvemmelighed.

 Sub Increment_invoice () Dim num As Integer Range ("A1"). Vælg num = Range ("A1"). Værdi num = num + 1 Område ("A1"). Værdi = num End Sub 

Du vil også tilføje disse linjer til slutningen af ​​en makro, så hver gang du udskriver din faktura, vil den næste blive forøget automatisk som følger:

 Sub PRINT () ActiveWindow.SelectedSheets.PrintOut Kopier: = 1, Sorter: = True Dim num Som Integer Range ("A1"). Vælg num = Range ("A1"). Værdi num = num + 1 Range ("A1" ) .Value = num End Sub