Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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 Ydw 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 Ydw 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 dadlwythwch y feddalwedd am ddim heb unrhyw gyfyngiad mewn 30 diwrnod.


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ryan · 1 years ago
    This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      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
      • To post as a guest, your comment is unpublished.
        Manny · 6 months ago
        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