Skip i'r prif gynnwys

Sut i argraffu rhai tudalennau neu daflen waith yn seiliedig ar werth celloedd yn Excel?

A ydych erioed wedi ceisio argraffu tudalen neu daflen waith benodol yn seiliedig ar werth cell yn Excel? A sut i'w gyflawni? Gall dulliau yn yr erthygl hon eich helpu i'w ddatrys yn fanwl.

Argraffu tudalen benodol yn seiliedig ar werth celloedd gyda chod VBA
Argraffu taflen waith benodol yn seiliedig ar werth celloedd gyda chod VBA

Argraffu tudalen benodol yn seiliedig ar werth celloedd gyda chod VBA

Er enghraifft, rydych chi am i dudalen benodol fel tudalen 1 o'r daflen waith gyfredol gael ei hargraffu'n awtomatig wrth nodi tudalen rhif 1 yng nghell A1 yn y daflen waith gyfredol. Gallwch wneud fel a ganlyn i'w gyflawni.

1. Dewiswch fod y gell yn cynnwys rhif y dudalen rydych chi am ei hargraffu yn seiliedig, yna pwyswch Alt ac F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Yna cliciwch Mewnosod > Modiwlau.

2. Yna y Microsoft Visual Basic ar gyfer Ceisiadau ffenestri pops i fyny, copïwch a gludwch y cod VBA canlynol i'r Côd ffenestr.

Cod VBA: Argraffu tudalen yn seiliedig ar werth celloedd

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. Gwasgwch F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, cliciwch y Ydy botwm i argraffu'r dudalen benodol, neu cliciwch ar y Na botwm i adael y blwch deialog os nad ydych chi eisiau argraffu. Gweler y screenshot:

Yna mae ffenestr rhagolwg tudalen benodol y daflen waith gyfredol yn agor, cliciwch y print botwm i ddechrau argraffu.

Argraffu tudalen benodol yn seiliedig ar werth celloedd gyda chod VBA

Gan dybio eich bod am argraffu'r daflen waith weithredol pan fo gwerth yng nghell B2 y ddalen hon yn hafal i rif 1001. Gallwch ei chyflawni gyda'r cod VBA canlynol. Gwnewch fel a ganlyn.

1. De-gliciwch y Tab Dalen eich bod am argraffu yn seiliedig ar werth celloedd, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yna y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr yn ymddangos, copïwch a gludwch y cod VBA canlynol i mewn i'r ffenestr Cod.

Cod VBA: Argraffu taflen waith yn seiliedig ar werth celloedd

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

Nodyn: Gallwch chi newid gwerth cell a chell yn y cod yn ôl yr angen.

3. Gwasgwch Alt + Q i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Wrth nodi rhif 1001 yng nghell B2, a Kutools ar gyfer Excel blwch deialog yn ymddangos, cliciwch ar y Ydy botwm i ddechrau argraffu. Neu cliciwch y Na botwm i adael y blwch deialog yn uniongyrchol heb ei argraffu. Gweler y screenshot:

Tip: Os ydych chi eisiau argraffu tudalennau nad ydynt yn olynol yn uniongyrchol fel tudalen 1, 6 a 9 yn y daflen waith gyfredol, neu argraffu dim ond pob tudalen eilrif neu od, gallwch roi cynnig ar y Argraffu Tudalennau Penodedig pf cyfleustodau Kutools ar gyfer Excel fel y dangosir isod screenshot. Gallwch chi fynd i lawrlwythwch y feddalwedd am ddim heb unrhyw gyfyngiad mewn 30 diwrnod.

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 Gorau:  12 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 (4)
No ratings yet. Be the first to rate!
Ryan
Ryan
This comment was minimized by the moderator on the site
This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
Reply
0
0
crystal
crystal     Ryan
This comment was minimized by the moderator on the site
Hi Ryan,
If you want to print consecutive pages such as 1-5 in a worksheet based on a cell value, please specify a cell such as A1 as Text formatting, type 1-5 into it, keep this cell selecting, and then run the below VBA code.

Sub Print_Pages()
Dim xPage As String
Dim xYesorNo As Integer
Dim xI As String
Dim xPArr() As String
Dim xIS, xIE, xF, xNum As Integer
xPage = ActiveCell.Value
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
xPArr() = Split(xPage, "-")
If UBound(xPArr) = 0 Then
If IsEmpty(xPage) And IsNumeric(xPage) Then
MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
xNum = Int(xPage)
ActiveSheet.PrintOut from:=xNum, To:=xNum, preview:=True
ElseIf UBound(xPArr) = 1 Then
On Error GoTo Err01
xIS = Int(xPArr(0))
xIE = Int(xPArr(1))
If xIS < xIE Then
For xF = xIS To xIE
ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
Next
Else
For xF = xIE To xIS
ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
Next
End If
Else
MsgBox "Please enter the valid data", vbOKOnly, "Kutools for Excel"
Exit Sub
End If
Else
Exit Sub
End If
Exit Sub
Err01:
MsgBox "Please enter the correct page scope", vbOKOnly, "Kutools for Excel"
End Sub
Reply
Report
0
0
Manny
Manny     crystal
This comment was minimized by the moderator on the site
Thank you. I have the same issue I want to print pages based on cell value. Lets say variable changes i.e page 1-5 and then some time 2-6. So I have a field which will calculate and will put that in text format as suggested.But for some reason it doesnt work for me. It doesnt prints any pages.Can you please advise
Reply
0
0
R
R     Manny
This comment was minimized by the moderator on the site
Did you ever figure out how to get this working?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations