Conas leathanaigh nó bileog oibre áirithe a phriontáil bunaithe ar luach cille in Excel?
An ndearna tú iarracht riamh leathanach nó bileog oibre áirithe a phriontáil bunaithe ar luach cille in Excel? Agus conas é a bhaint amach? Is féidir le modhanna san alt seo cabhrú leat é a réiteach go mion.
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 Sub3. Brúigh F5 eochair chun an cód a rith. Sa popping suas Kutools le haghaidh 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:
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ú.
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
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 le haghaidh 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:
Earraí gaolmhara:
- Conas limistéar clóite dinimiciúil a chruthú in Excel?
- Conas an leathanach deireanach de bhileog oibre in Excel a phriontáil?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair 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á!
