Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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


Печать нечетных, четных, текущих или заданных страниц листа

Kutools for Excel's Печать заданных страниц утилита может помочь вам быстро распечатать нечетные, четные, текущие или заданные страницы по мере необходимости.

doc при печати 2

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


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


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

1, Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

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

Sub IncrementPrint()
'updateby Extendoffice 20160530
    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 чтобы запустить этот код, и появится окно подсказки, чтобы напомнить вам ввести количество копий, которые вы хотите распечатать на текущем листе, см. снимок экрана:

doc при печати 1

4. Щелчок OK и текущий лист теперь печатается, и в то же время печатные рабочие листы пронумерованы как компания-001, Company-002, Company-003 ... в ячейке A1 по мере необходимости.

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


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.