Як автоматично збільшити значення комірки після кожного друку?
Припустимо, у мене є сторінка робочого аркуша, яку потрібно надрукувати в 100 примірниках, клітинка А1 - це номер чека Компанія-001, тепер я хотів би, щоб кількість збільшувалася на 1 після кожного роздруківки. Це означає, що коли я надрукую другу копію, число буде автоматично збільшено до Company-002, третя копія, номер буде Company-003 ... сто копій, номер буде Company-100. Чи існує якась хитрість, щоб швидко та можливо вирішити цю проблему в Excel?
Автоматичне збільшення значення комірки після кожного друку за допомогою коду VBA
Автоматичне збільшення значення комірки після кожного друку за допомогою коду VBA
Зазвичай у Excel немає прямого способу вирішити це завдання, але тут я створив код VBA для вирішення цього питання.
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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. Клацання OK , і ваш поточний аркуш друкується зараз, і в той же час друковані аркуші мають нумерацію Company-001, Company-002, Company-003… у клітинці A1, як вам потрібно.
примітки: У наведеному вище коді клітинка A1 буде вставлено порядкові номери, які ви замовили, і вихідне значення комірки в A1 буде очищено. І “Компанія-00”- це порядковий номер, ви можете змінити їх відповідно до своїх потреб.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!