Cum se crește automat valoarea celulei după fiecare tipărire?
Presupunând că am o pagină de foaie de lucru necesară pentru a fi tipărită 100 de exemplare, celula A1 este numărul de verificare Company-001, acum, aș dori ca numărul să crească cu 1 după fiecare tipărire. Asta înseamnă că atunci când imprim cel de-al doilea exemplar, numărul va fi mărit automat la Compania-002, al treilea exemplar, numărul va fi Compania-003 ... o sută de exemplare, numărul va fi Compania-100. Există vreun truc pentru a rezolva această problemă în Excel rapid și posibil?
Creșteți automat valoarea celulei după fiecare tipărire cu cod VBA
Creșteți automat valoarea celulei după fiecare tipărire cu cod VBA
În mod normal, nu există o modalitate directă de a rezolva această sarcină în Excel, dar, aici, voi crea un cod VBA pentru a face față acesteia.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: creșterea automată a valorii celulei după fiecare tipărire:
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. Apoi apăsați F5 tasta pentru a rula acest cod și apare o casetă de prompt pentru a vă reaminti să introduceți numărul de copii pe care doriți să le imprimați foaia de lucru curentă, vedeți captura de ecran:
4. Clic OK butonul, iar foaia dvs. de lucru curentă se tipărește acum și, în același timp, foile de lucru tipărite sunt numerotate Compania-001, Compania-002, Compania-003 ... în celula A1, după cum aveți nevoie.
notițe: În codul de mai sus, celula A1 vor fi inserate numerele de ordine pe care le-ați comandat și valoarea inițială a celulei în A1 va fi șters. Și "Compania-00”Este numărul de ordine, le puteți schimba în funcție de nevoile dvs.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!