Excel - макрос для автоматической нумерации счетов

вопрос

Я храню свои счета в Excel, но каждый раз мне приходится вручную присваивать новый номер.

Можно ли иметь автоматическую нумерацию с помощью макроса?

Решение

Это макрос, который может увеличивать (например) номер счета. В этом макросе номер отображается в ячейке «А1», но его можно изменить для вашего удобства.

 Sub Increment_invoice () Dim num As Integer Range ("A1"). Выберите num = Range ("A1"). Значение num = num + 1 Range ("A1"). Значение = num End Sub 

Вы также хотите добавить эти строки в конец макроса, чтобы каждый раз, когда вы печатали свой счет, следующий автоматически увеличивался следующим образом:

 Sub PRINT () ActiveWindow.SelectedSheets.PrintOut Копии: = 1, Сортировка: = True Dim num As Целочисленный диапазон («A1»). Выберите num = Range («A1»). Значение num = num + 1 Range («A1» ) .Value = num End Sub