Kako natisniti več kopij z zaporednimi številkami strani?
Ste že kdaj poskusili natisniti več kopij enega lista z zaporednimi številkami strani? To pomeni, da natisnete 10 kopij enega lista in celico A1 v 1. kopiji napolnite z 001, v 2. kopijo z 002…, v 10. kopijo pa z 010. V Excelu ni vgrajene funkcije, ki bi jo lahko rešili to delo, vendar v tem članku predstavljam kodo makra, ki vam pomaga hitro natisniti več kopij z zaporedno številko strani v Excelu.
Natisnite kopije z različnimi številkami s kodo VBA
Natisnite kopije z različnimi številkami s kodo VBA
Po spodnjih korakih natisnite več kopij enega lista z zaporednimi številkami s kodo VBA
1. Omogočite list, ki ga želite natisniti, in pritisnite tipki Alt + F11, da odprete Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite spodnjo kodo v Moduli skripta. Oglejte si posnetek zaslona:
VBA: natisnite kopije z zaporednimi številkami strani.
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Totally print" & (i - 1) &"copies", vbInformation, "Kutools for Excel"
End Sub
Opombe: v kodi, A1 je celica, v katero želite postaviti zaporedno številko, 1 Za 10 označuje tiskanje 10 kopij in "'00" in jaz je oblika zaporedja, jih lahko spremenite po potrebi.
3. Pritisnite F5 tipko za zagon kode in odpre se pogovorno okno, ki vas opomni, da natisnite 10 kopij. Kliknite OK Če želite zapreti pogovorno okno, ima vsaka natisnjena kopija svojo zaporedno številko.
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!