Excel - Makro untuk melakukan penomoran faktur otomatis

Isu

Saya menyimpan faktur saya di bawah Excel, tetapi saya harus secara manual menetapkan nomor baru untuk masing-masing setiap waktu.

Apakah mungkin memiliki penomoran otomatis menggunakan makro?

Larutan

Ini adalah makro yang dapat menambah (misalnya) nomor faktur. Dalam makro ini, nomor ditampilkan di sel "A1", tetapi dapat diubah sesuai kenyamanan Anda.

 Sub Increment_invoice () Dim num As Range Integer ("A1"). Pilih num = Range ("A1"). Nilai num = num + 1 Range ("A1"). Nilai = num End Sub 

Anda juga ingin menambahkan baris ini ke akhir makro sehingga setiap kali Anda mencetak faktur Anda, yang berikutnya akan ditambahkan secara otomatis sebagai berikut:

 Sub PRINT () ActiveWindow.SelectedSheets.PrintOut Salinan: = 1, Susun: = True Dim num As Integer Range ("A1"). Pilih num = Range ("A1"). Nilai num = num + 1 Range ("A1" ) .Nilai = num End Sub