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.