Kako samodejno povečati vrednost celice po vsakem tiskanju?
Recimo, da imam stran delovnega lista, ki jo je treba natisniti v 100 izvodih, celica A1 je kontrolna številka Company-001, zdaj bi rad, da se število poveča za 1 po vsakem izpisu. To pomeni, da ko natisnem drugo kopijo, se številka samodejno poveča na Company-002, tretja kopija pa številka Company-003… sto kopija, številka bo Company-100. Ali obstaja kakšen trik za hitro in mogoče rešitev te težave v Excelu?
Samodejno priraste vrednost celice po vsakem tiskanju s kodo VBA
Samodejno priraste vrednost celice po vsakem tiskanju s kodo VBA
Običajno te naloge v Excelu ni mogoče rešiti neposredno, toda tukaj bom ustvaril kodo VBA, ki bo obravnavala to težavo.
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Samodejno priraste vrednost celice po vsakem tiskanju:
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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da vnesete število kopij, ki jih želite natisniti na trenutnem delovnem listu, glejte sliko zaslona:
4. Kliknite OK in vaš trenutni delovni list se zdaj tiska, hkrati pa so natisnjeni delovni listi oštevilčeni Company-001, Company-002, Company-003… v celici A1, kot potrebujete.
Opombe: V zgornji kodi celica A1 bodo vstavljene zaporedne številke, ki ste jih naročili, in izvirna vrednost celice v A1 bo očiščeno. In “Podjetje-00"Je zaporedna številka, jih lahko spremenite glede na vaše potrebe.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!