Sut i argraffu sawl copi gyda rhifau tudalennau dilyniant?
A ydych erioed wedi ceisio argraffu sawl copi o un ddalen gyda rhifau tudalennau dilyniant? Mae hynny'n golygu argraffu 10 copi o un ddalen, a llenwi'r Cell A1 yn y copi 1af gyda 001, yn yr 2il gopi gyda 002 ..., ac yn y 10fed copi gyda 010. Yn Excel, nid oes unrhyw nodwedd adeiledig y gellir ei datrys y swydd hon, ond yn yr erthygl hon, rwy'n cyflwyno cod macro i'ch helpu chi i argraffu sawl copi yn gyflym gyda rhif tudalen dilyniant yn Excel.
Argraffu copïau gyda gwahanol rifau yn ôl cod VBA
Argraffu copïau gyda gwahanol rifau yn ôl cod VBA
Yn dilyn isod camau i argraffu sawl copi o un ddalen gyda rhifau dilyniant yn ôl cod VBA
1. Galluogi'r ddalen rydych chi am ei hargraffu, a gwasgwch allweddi Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludo islaw'r cod i'r Modiwlau sgript. Gweler y screenshot:
VBA: Argraffu copïau gyda rhifau tudalennau dilyniant.
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
Nodyn: yn y cod, A1 yw'r gell rydych chi am osod rhif y dilyniant, 1 I 10 yn nodi i argraffu 10 copi, a "'00" & I. yw fformat y dilyniant, gallwch eu newid yn ôl yr angen.
3. Gwasgwch F5 allwedd i redeg y cod, ac mae deialog yn ymddangos i'ch atgoffa bod argraffu 10 copi. Cliciwch OK i gau'r ymgom, yna mae gan bob copi printiedig ei rif dilyniant ei hun.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!