Conas luach cille incriminte uathoibríoch a dhéanamh tar éis gach priontála?
Ag ceapadh, tá leathanach bileog oibre agam a theastaíonn le 100 cóip a phriontáil, is í cill A1 an uimhir seiceála Company-001, anois, ba mhaith liom go dtiocfaidh méadú 1 ar an líon tar éis gach asphrionta. Ciallaíonn sé sin nuair a phriontálfaidh mé an dara cóip, méadófar an uimhir go Cuideachta-002 go huathoibríoch, an tríú cóip, is é an uimhir Cuideachta-003… céad chóip, is é an uimhir Cuideachta-100. An bhfuil aon chleas ann an fhadhb seo a réiteach in Excel go tapa agus b’fhéidir?
Luach cille incriminte uathoibríoch tar éis gach priontála le cód VBA
Luach cille incriminte uathoibríoch tar éis gach priontála le cód VBA
De ghnáth, ní bhíonn aon bhealach díreach ann chun an tasc seo a réiteach in Excel, ach, anseo, cruthóidh mé cód VBA chun déileáil leis.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Luach cille incriminte uathoibríoch tar éis gach priontála:
Sub IncrementPrint()
'updateby Extendoffice
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Next
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit líon na gcóipeanna a theastaíonn uait an bhileog oibre reatha a phriontáil, féach an scáileán:
4. Cliceáil OK cnaipe, agus tá do bhileog oibre reatha á priontáil anois, agus ag an am céanna, tá na bileoga oibre clóite uimhrithe Company-001, Company-002, Company-003… i gcill A1 de réir mar is gá duit.
nótaí: Sa chód thuas, an chill A1 cuirfear isteach na huimhreacha seicheamh a d’ordaigh tú, agus an luach bunaidh cille iontu A1 glanfar. Agus “Cuideachta-00"Is í an uimhir seicheamh, is féidir leat iad a athrú go do riachtanas.
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á!
