Hvordan udskrives flere kopier med sekvensnummer?
Har du nogensinde forsøgt at udskrive flere kopier af et ark med sekvensnummer? Det betyder at udskrive 10 kopier af et ark og udfylde celle A1 i 1. kopi med 001, i 2. kopi med 002… og i 10. kopi med 010. I Excel er der ingen indbygget funktion, der kan løse dette job, men i denne artikel introducerer jeg en makrokode, der hjælper dig med hurtigt at udskrive flere kopier med sekvensnummer i Excel.
Udskriv kopier med forskellige numre efter VBA-kode
Udskriv kopier med forskellige numre efter VBA-kode
Følgende trin nedenfor for at udskrive flere kopier af et ark med sekvensnumre efter VBA-kode
1. Aktivér det ark, du vil udskrive, og tryk på Alt + F11-tasterne for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt nedenstående kode til Moduler manuskript. Se skærmbillede:
VBA: Udskriv kopier med sekvensnummer.
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
Bemærk: i koden, A1 er den celle, du vil placere sekvensnummeret, 1 Til 10 angiver at udskrive 10 kopier, og "'00" og jeg er sekvensformatet, kan du ændre dem efter behov.
3. Trykke F5 tast for at køre koden, og der vises en dialogboks, der minder dig om, at der udskrives 10 eksemplarer. Klik på OK for at lukke dialogen, har hver udskrevet kopi sit eget sekvensnummer.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!