Skip to main content

Conas leathanaigh nó bileog oibre áirithe a phriontáil bunaithe ar luach cille in Excel?

Údar: Siluvia Athraithe Deiridh: 2024-11-21

An raibh ort riamh leathanaigh nó bileoga oibre ar leith a phriontáil in Excel bunaithe ar luach cille? Cibé an bhfuil sé ag priontáil uimhir leathanaigh ar leith nó bileog oibre iomlán nuair a chomhlíontar coinníoll, soláthraíonn an treoir seo modhanna céim ar chéim chun é a chur i gcrích.

Priontáil leathanach áirithe bunaithe ar luach cille le cód VBA
Priontáil bileog oibre áirithe bunaithe ar luach cille le cód VBA


Priontáil leathanach áirithe bunaithe ar luach cille le cód VBA

Mar shampla, teastaíonn uait leathanach áirithe mar leathanach 1 den bhileog oibre reatha a phriontáil go huathoibríoch agus uimhir leathanach 1 á iontráil i gcill A1 sa bhileog oibre reatha. Is féidir leat é seo a leanas a dhéanamh chun é a bhaint amach.

1. Roghnaigh sa chill tá uimhir an leathanaigh a theastaíonn uait a phriontáil bunaithe air, ansin brúigh Eile agus F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog. Ansin cliceáil Ionsáigh > Modúil.

2. Ansin an Microsoft Visual Basic d’Fheidhmchláir pop suas an fhuinneog, cóipeáil agus greamaigh an cód VBA seo a leanas isteach sa cód fhuinneog.

Cód VBA: Leathanach priontála bunaithe ar luach cille

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. Brúigh F5 eochair chun an cód a rith. Sa popping suas Kutools for Excel bosca dialóige, cliceáil an Is ea cnaipe chun an leathanach áirithe a phriontáil, nó cliceáil ar an Uimh cnaipe chun an bosca dialóige a fhágáil mura dteastaíonn uait a phriontáil. Féach an pictiúr:

Scáileán den Kutools for Excel bosca dialóige chun leathanach ar leith a phriontáil bunaithe ar luach cille

Ansin osclaítear fuinneog réamhamhairc leathanach áirithe den bhileog oibre reatha, cliceáil le do thoil ar an Print cnaipe chun priontáil a thosú.

Gabháil scáileáin den fhuinneog Réamhamhairc Priontála


Priontáil leathanach áirithe bunaithe ar luach cille le cód VBA

Má cheaptar gur mhaith leat an bhileog oibre ghníomhach a phriontáil nuair is ionann luach i gcill B2 den bhileog seo agus uimhir 1001. Is féidir leat é a bhaint amach leis an gcód VBA seo a leanas. Déan mar a leanas le do thoil.

1. Cliceáil ar dheis ar an Cluaisín Bileog gur mhaith leat a phriontáil bunaithe ar luach cille, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis.

2. Ansin an Microsoft Visual Basic d’Fheidhmchláir tagann an fhuinneog aníos, cóipeáil agus greamaigh an cód VBA seo a leanas i bhfuinneog an Chóid.

Cód VBA: Bileog oibre priontála bunaithe ar luach cille

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

Scáileán a thaispeánann cá háit le cód VBA a chur isteach le priontáil bunaithe ar luach cille in Excel

nótaí: Is féidir leat an luach cille agus cille sa chód a athrú de réir mar is gá duit.

3. Brúigh Eile + Q a dhúnadh Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Agus uimhir 1001 á iontráil i gcill B2, a Kutools for Excel bosca dialóige aníos, cliceáil le do thoil ar an Is ea cnaipe chun priontáil a thosú. Nó cliceáil ar an Uimh cnaipe chun an bosca dialóige a fhágáil go díreach gan é a phriontáil. Féach an pictiúr:

Scáileán den Kutools for Excel bosca dialóige chun priontáil bileog oibre a dhearbhú bunaithe ar luach na cille

Leid: Más mian leat leathanaigh neamh-chomhleanúnacha ar nós leathanaigh 1, 6 agus 9 a phriontáil go díreach sa bhileog oibre reatha, nó gan ach gach leathanach cothrom nó corr a phriontáil, is féidir leat triail a bhaint as an Priontáil Leathanaigh Sonraithe fóntais de Kutools for Excel mar a thaispeántar thíos an pictiúr.

Scáileán den Kutools for Excel Fóntais Priontáil Leathanaigh Shonraithe le haghaidh priontála roghnach

Kutools for Excel - Supercharge Excel le níos mó ná 300 uirlisí riachtanacha. Bain sult as gnéithe AI ​​saor in aisce go buan! Get sé anois


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Ag tabhairt aire Kutools Feidhmeanna...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile
Úsáid Kutools i do theanga is fearr leat – tacaíonn sé le Béarla, Spáinnis, Gearmáinis, Fraincis, Sínis, agus breis is 40 teanga eile!

Supercharge Do Scileanna Excel le Kutools for Excel, agus Éifeachtúlacht Taithí Cosúil Riamh Roimhe. Kutools for Excel Tairiscintí os cionn 300 Ardghné chun Táirgiúlacht a Mhéadú agus Am a Shábháil.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...


Office Tab Tugann sé comhéadan Tabbed chuig Oifig, agus Déan do chuid Oibre i bhfad níos éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!