Come aumentare automaticamente il valore della cella dopo ogni stampa?
Supponendo di avere una pagina del foglio di lavoro da stampare in 100 copie, la cella A1 è il numero di controllo Company-001, ora, vorrei che il numero aumentasse di 1 dopo ogni stampa. Ciò significa che quando stampo la seconda copia, il numero verrà automaticamente aumentato a Company-002, la terza copia, il numero sarà Company-003 ... cento copie, il numero sarà Company-100. C'è qualche trucco per risolvere questo problema in Excel rapidamente e possibilmente?
Incremento automatico del valore della cella dopo ogni stampa con codice VBA
Incremento automatico del valore della cella dopo ogni stampa con codice VBA
Normalmente, non esiste un modo diretto per risolvere questo compito in Excel, ma, qui, creerò un codice VBA per affrontarlo.
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: valore della cella di incremento automatico dopo ogni stampa:
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. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di inserire il numero di copie che desideri stampare il foglio di lavoro corrente, vedi screenshot:
4. Clic OK pulsante e il foglio di lavoro corrente sta stampando ora e, allo stesso tempo, i fogli di lavoro stampati sono numerati Company-001, Company-002, Company-003 ... nella cella A1 di cui hai bisogno.
Note:: Nel codice sopra, la cella A1 verranno inseriti i numeri di sequenza che hai ordinato e il valore della cella originale in A1 sarà cancellato. E "Azienda-00"È il numero di sequenza, puoi modificarli secondo le tue necessità.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
