Excel - Otomatik fatura numaralandırma işlemini gerçekleştirmek için bir makro

Konu

Faturalarımı Excel altında saklıyorum, ancak her seferinde bunlara manuel olarak yeni bir numara atamam gerekiyor.

Bir makro kullanarak otomatik numaralandırmaya sahip olmak mümkün mü?

Çözüm

Bu, bir fatura numarasını artırabilen (örneğin) bir makrodur. Bu makroda, sayı "A1" hücresinde görüntülenir, ancak sizin rahatınız için değiştirilebilir.

 Alt Arttırma_invoisi () Dim num As Tam Sayı Aralığı ("A1"). Num = Range ("A1") seçin. Değer num = num + 1 Range ("A1") Değer = num End Sub 

Ayrıca, bu satırları bir makronun sonuna eklemek istersiniz, böylece faturanızı her yazdırdığınızda, bir sonraki satır otomatik olarak şu şekilde artırılır:

 Alt YAZDIR () ActiveWindow.SelectedSheets.PrintOut Kopyalar: = 1, Harmanla: = Tam Sayı Aralığı Olarak Gerçek Boyut sayısı ("A1"). Sayı seçin = Aralık ("A1"). Değer num = num + 1 Aralık ("A1" ) .Value = num End Sub