Excel - makro, lai veiktu rēķinu automātisku numerāciju

Izdevums

Es glabāju savus rēķinus programmā Excel, bet man katru reizi manuāli jāpiešķir jauns numurs.

Vai ir iespējama automātiska numerācija, izmantojot makro?

Risinājums

Tas ir makro, kas var palielināt (piemēram, rēķina numuru). Šajā maketā numurs tiek parādīts šūnā "A1", bet to var mainīt pēc Jūsu ērtībai.

 Sub Increment_invoice () Dim num Integer Range ("A1") Izvēlieties skaitli = Range ("A1"). Vērtība num = num + 1 Range ("A1"). 

Jūs arī vēlaties pievienot šīs rindas makro beigās, lai katru reizi, kad izdrukātu rēķinu, nākamais tiek automātiski palielināts šādi:

 Sub PRINT () ActiveWindow.SelectedSheets.PrintOut kopijas: = 1, Collate: = True Dim num Integer Range ("A1") Izvēlieties skaitli = Range ("A1"). ) .Value = num Beigas Sub