Як надрукувати кілька копій із порядковими номерами сторінок?
Ви коли-небудь пробували надрукувати кілька копій одного аркуша з порядковими номерами сторінок? Це означає надрукувати 10 копій одного аркуша та заповнити комірку А1 в 1-й копії 001, у 2-й копії 002…, а в 10-й копії 010. В Excel немає жодної вбудованої функції, яку можна вирішити це завдання, але в цій статті я представляю макрокод, який допоможе швидко роздрукувати кілька копій із порядковим номером сторінки в Excel.
Роздрукуйте копії з різними номерами за кодом VBA
Роздрукуйте копії з різними номерами за кодом VBA
Виконуючи нижче кроки, надрукуйте кілька копій одного аркуша з порядковими номерами за кодом VBA
1. Увімкніть аркуш, який потрібно надрукувати, і натисніть клавіші Alt + F11, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, і вставте код нижче в Модулі сценарій. Дивіться знімок екрана:
VBA: Друк копій із порядковими номерами сторінок.
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Totally print" & (i - 1) &"copies", vbInformation, "Kutools for Excel"
End Sub
примітки: в коді, A1 - комірка, в яку потрібно розмістити порядковий номер, 1 To 10 вказує на друк 10 примірників, і "'00" & I це формат послідовності, ви можете змінювати їх, як вам потрібно.
3. прес F5 клавіша для запуску коду, і вискакує діалогове вікно, що нагадує вам про друк 10 копій. Клацніть OK щоб закрити діалогове вікно, кожна друкована копія має свій порядковий номер.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!