Excel - Ett makro för att utföra automatisk numrering av fakturor

Problem

Jag lagrar mina fakturor under Excel, men jag måste manuellt tilldela ett nytt nummer till var och en av dem varje gång.

Är det möjligt att ha automatisk numrering med ett makro?

Lösning

Detta är ett makro som kan öka (till exempel) ett fakturanummer. I detta makro visas numret i cell "A1", men det kan ändras till din bekvämlighet.

 Sub Increment_invoice () Dim num Som helhetsområde ("A1"). Välj num = Range ("A1"). Värde num = num + 1 Område ("A1"). Värde = num Slut Sub 

Du vill även lägga till dessa rader i slutet av ett makro så att varje gång du skriver ut din faktura kommer den nästa att inkrementeras automatiskt enligt följande:

 Sub PRINT () ActiveWindow.SelectedSheets.PrintOut Exemplar: = 1, Sortera: = True Dim num Som helhetsområde ("A1"). Välj num = Range ("A1"). Värde num = num + 1 Range ("A1" ) .Value = num End Sub