Skip i'r prif gynnwys

Sut i eithrio cell neu ardal benodol rhag argraffu yn Excel?

Wrth argraffu taflen waith, efallai y bydd angen i chi eithrio gwerthoedd rhai celloedd neu arwynebedd rhag argraffu at ryw bwrpas. Mae dulliau yn yr erthygl hon yn mynd i ddangos i chi sut i eithrio rhai celloedd neu ardal rhag argraffu manylion.

Eithrio cell neu ardal benodol rhag argraffu trwy addasu fformat y gell
Eithrio cell neu ardal benodol rhag argraffu yn ôl cod VBA


Eithrio cell neu ardal benodol rhag argraffu trwy addasu fformat y gell

Fel isod llun a ddangosir, mae angen i chi eithrio'r rhesi rhif 5 a 9 wrth argraffu'r daflen waith. Cyn argraffu, gallwch addasu fformat cell neu ardal benodol i guddio cynnwys y gell i'w gyflawni. Gwnewch fel a ganlyn.

1. Dewiswch y gell neu'r ardal y byddwch chi'n ei heithrio rhag argraffu (yma dwi'n dewis ystodau lluosog A6: C6 ac A10: C10), yna pwyswch Ctrl + 1 allweddi ar yr un pryd i agor y blwch deialog Celloedd Fformat.

2. Yn y Celloedd Fformat blwch deialog, cliciwch Custom yn y Categori blwch o dan y Nifer tab, yna nodwch dri hanner colon ;; i mewn i'r math blwch, ac yn olaf cliciwch y OK botwm. Gweler y screenshot:

Nawr mae'r holl gynnwys mewn ystodau dethol wedi'i guddio ar unwaith fel y dangosir isod. Gallwch chi ddechrau argraffu'r daflen waith nawr.

Nodyn: Ar ôl argraffu, gallwch chi gael gwared ar y hanner colon rydych chi wedi'u nodi yng ngham 2 o'r blwch deialog Celloedd Fformat i arddangos cynnwys y gell.


Eithrio cell neu ardal benodol rhag argraffu yn ôl cod VBA

Heblaw am y dull uchod, gallwch gymhwyso'r cod VBA canlynol i guddio cynnwys celloedd neu ardal benodol yn awtomatig wrth argraffu taflen waith.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn yn y Prosiect cwarel, ac yna copïwch a gludwch y cod VBA isod i'r Y Llyfr Gwaith hwn (Cod) ffenestr.

Cod VBA: eithrio cell neu ardal benodol rhag argraffu yn Excel

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim xIndex As Long
    If ActiveSheet.Name = "Sheet1" Then
        Cancel = True
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        With ActiveSheet
            xIndex = .Range("A6:C6,A10:C10").Font.ColorIndex
            .Range("A6:C6,A10:C10").Font.Color = vbWhite
            .PrintOut
            .Range("A6:C6,A10:C10").Font.ColorIndex = xIndex
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
    MsgBox "Print completed!", vbInformation, "Kutools for Excel"
End Sub

Nodyn: Yn y cod, Sheet1 yw'r enw dalen weithredol y mae angen i chi ei argraffu, ac A6: C6, A10: C10 yw'r ystodau y byddwch chi'n eu heithrio o'r argraffu. Newidiwch nhw ar sail eich anghenion.

3. Gwasgwch Alt + Q allweddi ar yr un pryd i gau ffenestr Microsoft Visual Basic for Applications.

Nawr gallwch chi ddechrau argraffu eich taflen waith. Ar ôl gorffen argraffu, fe gewch chi a Kutools ar gyfer Excel blwch deialog fel y dangosir isod screenshot. A gallwch weld bod yr ystodau penodedig yn bylchau yn yr allbrint.


Erthyglau perthnasol:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad


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!
Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I've recieved an error in my line:

xIndex = .Range("B52:K92").Font.ColorIndex
This comment was minimized by the moderator on the site
Hi Maria,
After modifying the ranges in the VBA code, please press the "Save" button to save the code first, then go to print.
This comment was minimized by the moderator on the site
__________
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations