Как автоматически увеличивать значение ячейки после каждой печати?

Предположим, у меня есть страница рабочего листа, которую нужно напечатать 100 копий. В ячейке A1 находится номер чека Компания-001, и теперь я хочу, чтобы номер увеличивался на 1 после каждой печати. Это означает, что при печати второй копии номер автоматически изменится на Компания-002, для третьей копии — на Компания-003… для сотой копии номер будет Компания-100. Есть ли какой-нибудь способ быстро решить эту проблему в Excel?

Автоматическое увеличение значения ячейки после каждой печати с помощью кода VBA

Автоматическое увеличение значения ячейки после каждой печати с помощью кода VBA

Обычно в Excel нет прямого способа решить эту задачу, но здесь я создам код VBA для её выполнения.

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Автоматическое увеличение значения ячейки после каждой печати:

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код, и появится диалоговое окно, которое предложит вам ввести количество копий, которые вы хотите напечатать для текущего рабочего листа, см. скриншот:

4. Нажмите кнопку ОК, и ваш текущий рабочий лист начнет печататься. При этом распечатанные рабочие листы будут пронумерованы как Компания-001, Компания-002, Компания-003… в ячейке A1, как вам нужно.

Примечание: В приведенном выше коде в ячейку A1 будут вставлены последовательные номера, а исходное значение ячейки A1 будет очищено. «Компания-00» является номером последовательности, который можно изменить по своему усмотрению.