Excel - makro do automatycznego numerowania faktur

Kwestia

Przechowuję moje faktury w Excelu, ale muszę ręcznie przypisać każdemu z nich nowy numer za każdym razem.

Czy możliwe jest automatyczne numerowanie za pomocą makra?

Rozwiązanie

Jest to makro, które może zwiększać (na przykład) numer faktury. W tym makrze liczba jest wyświetlana w komórce „A1”, ale można ją zmienić według własnego uznania.

 Sub Increment_invoice () Dim num As Integer Range („A1”). Wybierz num = Range („A1”). Wartość num = num + 1 Range („A1”). Value = num End Sub 

Chcesz również dodać te linie na końcu makra, aby za każdym razem, gdy drukujesz fakturę, następna zostanie automatycznie zwiększona w następujący sposób:

 Sub PRINT () ActiveWindow.SelectedSheets.PrintOut Kopie: = 1, Collate: = True Dim num As Integer Range („A1”). Wybierz num = Range („A1”). Wartość num = num + 1 Range („A1” ) .Value = num End Sub