Excel - Makro, joka suorittaa laskujen automaattisen numeroinnin

Ongelma

Tallennan laskusi Excelissä, mutta minun on määritettävä jokainen niistä manuaalisesti joka kerta.

Onko mahdollista saada automaattinen numerointi makron avulla?

Ratkaisu

Tämä on makro, joka voi lisätä (esimerkiksi) laskun numeroa. Tässä makrossa numero näkyy solussa "A1", mutta se voidaan vaihtaa mukavasti.

 Sub Increment_invoice () Dim num Integer Range ("A1") Valitse numero = Range ("A1"). Arvo num = num + 1 Range ("A1"). 

Haluat myös lisätä nämä rivit makron loppuun, niin että aina, kun tulostat laskun, seuraavaa lisätään automaattisesti seuraavasti:

 Sub PRINT () ActiveWindow.SelectedSheets.PrintOut-kopiot: = 1, Collate: = True Dim num Integer Range ("A1") Valitse numero = Range ("A1"). Arvo num = num + 1 Alue ("A1" ) .Value = num End Sub