Как автоматично да увеличавам стойността на клетката след всяко отпечатване?
Да предположим, че имам страница от работен лист, която трябва да бъде отпечатана в 100 копия, клетката A1 е номерът на проверката Company-001, сега бих искал числото да се увеличава с 1 след всяка разпечатка. Това означава, че когато отпечатам второто копие, номерът автоматично ще бъде увеличен до Company-002, третото копие, номерът ще бъде Company-003… сто копия, номерът ще бъде Company-100. Има ли някакъв трик за бързо и евентуално решаване на този проблем в Excel?
Автоматично увеличаване на стойността на клетката след всяко отпечатване с VBA код
Автоматично увеличаване на стойността на клетката след всяко отпечатване с VBA код
Обикновено няма директен начин да решите тази задача в Excel, но тук ще създам VBA код, за да се справя с нея.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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% и намалява стотици кликвания на мишката за вас всеки ден!