Sut i argraffu pob dalen ac eithrio un ddalen benodol yn Excel?
Wrth weithio Excel, efallai mai argraffu taflenni fydd y swydd ddyddiol gyffredinol i chi. Fodd bynnag, a ydych erioed wedi ceisio argraffu pob dalen ond un ddalen benodol? Er enghraifft, llyfr gwaith yma, rydych chi am argraffu pob dalen ond y ddalen o'r enw “Cyfanswm”, sut allwch chi ei thrin yn gyflym?
Argraffwch yr holl ddalen ac eithrio un gyda VBA
Argraffwch rai tudalennau sydd eu hangen arnoch Kutools for Excel
Argraffwch yr holl ddalen ac eithrio un gyda VBA
Dyma god VBA sy'n gallu argraffu pob dalen ac eithrio un ddalen benodol.
1. Gweithredwch y llyfr gwaith rydych chi am argraffu'r taflenni, a gwasgwch Alt + F11 allwedd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > modiwle, pastiwch y cod islaw sgript y Modiwl.
VBA: Taflen Argraffu ac eithrio un
Sub printsheets()
'UpdatebyExtendoffice20161031
Dim xWs As Worksheet
Application.ScreenUpdating = False
For Each xWs In ThisWorkbook.Worksheets
If xWs.Visible = True Then
If xWs.Name <> "Total" Then
With xWs.PageSetup
.PrintArea = "A1:B15" ' USE YOUR PRINTAREA
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
xWs.PrintOut
End If
End If
Next xWs
Application.ScreenUpdating = False
MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub
Nodyn: Yn y cod, mae'r Cyfanswm in Os xWs.Name <> "Cyfanswm" Yna ac MsgBox "Nid yw Cyfanswm y Daflen wedi'u hargraffu" yw enw'r ddalen nad ydych chi am ei hargraffu, a A1: B15 in .PrintArea = "A1: B15" yw'r ystod rydych chi am ei hargraffu o bob dalen. Gallwch eu newid yn ôl yr angen.
3. Gwasgwch F5 allwedd i redeg y cod, ac yna mae deialog yn galw allan i'ch atgoffa nad yw'r ddalen benodol wedi'i hargraffu. Gweler y screenshot:
4. Cliciwch OK i gau'r ymgom.
Argraffwch rai tudalennau sydd eu hangen arnoch Kutools for Excel
Os ydych chi eisiau argraffu tudalennau gwastad neu od yn unig, neu dudalennau penodol dalen, gallwch wneud cais Kutools for Excel'S Argraffu Tudalennau Penodedig cyfleustodau a all eich ffafrio yn gyflym.
| Kutools for Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod Kutools for Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools for Excel Nawr!)
1. Gweithredwch y ddalen rydych chi am argraffu rhai tudalennau arni, cliciwch Kutools Byd Gwaith > Argraffu > Argraffu Tudalennau Penodedig. Gweler y screenshot:
2. Yna yn y Argraffu Tudalennau Penodedig deialog, gwiriwch yr opsiynau yn seiliedig ar eich angen argraffu. Gweler y screenshot:
3. Cliciwch print i argraffu'r tudalennau.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
