Note: The other languages of the website are Google-translated. Back to English

 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


mboilgeog cheart gorm saighead 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:

incrimint doc agus é á phriontáil 1

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.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (51)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cód seo iontach, is é go díreach cad a theastaíonn uaim, áfach, bhí mé ag smaoineamh an bhfuil bealach ann chun priontáil a thosú ón uimhir a iontráladh i gcill "A1"? Mar shampla, má tá 100 cóip clóite agam, ar an gcéad rith priontála eile beidh orm priontáil ó uimhir 101 agus comhaireamh suas as sin. Bhain mé triail as roinnt coigeartuithe cóid ach ní cosúil go nglacfaidh sé ach an uimhir a iontráladh sa chill .i. 101, cuir 1 leis agus ansin tá an chuid eile de na priontaí greamaithe leis an uimhir amháin sin, .i. 102... Ba mhór againn do chúnamh : -)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Murar aimsigh tú réiteach cheana féin is féidir leat líne 17 den chód a chur in eagar dó seo: ActiveSheet.Range("A1").Value = Raon ("A1").Luach + 1
Cuirfidh sé seo +1 leis an uimhir atá agat i gcill A1.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní sheolann sé chuig mo phrintéir
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

en exécutant la macra ça efface le ainm de ma cealla.
Je voudrais par exemple avoir A1= 153, is féidir le tuiscint 10 gcóip. J'ai dis feuilles imprimée de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164 .
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais aussi si possible na pas à avoir aller dans basic. je voudrais que la macro s'active directement via l'option impression. An féidir ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

en exécutant la macra ça efface le ainm agus A1.

je voudrais si c'est possible par exemple A1=153 et faire une imprisean de 10 gcóip. donc je récupéré 10 imprisean numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164 .

Je voudrais aussi si possible ne pas à avoir utiliser basic pour l'impression. je voudrais pouvoir declancher directement la macro en utilisant l'option impression tout simplement.

Doirt Merci aide vótálaí
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, kaji,
Chun do fhadhb a réiteach, cuir an cód thíos i bhfeidhm le do thoil:
Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
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
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat, má tá aon fhadhb eile agat, le do thoil trácht anseo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Faigh na cóid leasaithe ceangailte.

Agus seo é i dtéacs:
Fo-Incrimint()
'nuashonrúby Extendoffice
Dim xEnd Mar Leagan
Dim xStart Mar Leagan
Dim xscreen Mar Boole
Dim I Chomh Fada
Ar Lean Earráid Aghaidh
Ionchur LI:
xStart = Application.InputBox("Cuir isteach an chéad uimhir:"", "Kutools le haghaidh Excel")
xEnd = Application.InputBox("Cuir isteach an uimhir dheireanach:"", "Kutools le haghaidh Excel")
Má tá TypeName(xCount) = "Boolean" Ansin Scoir Fo
Más rud é (xStart = "") Nó (Ní hUimhriúil(xStart)) Nó (xStart < 1) Ansin
msgstr "Earráid iontrála, cuir isteach arís le do thoil", vbInformation, "Kutools for Excel"
Téigh go LInput
Eile
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Bréagach
Chun I = xStart Chun xEnd
ActiveSheet.Range("A1").Value = " Cuideachta-00" & I
ActiveSheet.PrintOut
Ar Aghaidh
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScáileán
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn sraithuimhreacha uaim mar IA1-055242, IA1-055243, IA1-055244 .....
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as é seo a phostáil, tá sé an-chabhrach. Is í an cheist atá agam ná seo: Tá 2 bharrachóid dhifriúla agam a chaithfear a incrimintiú ar leathanach amháin, conas is féidir liom an cód a mhodhnú chun é sin a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is oth liom é seo a iarraidh ar phostáil ar leith... Tosaíonn mo shraithuimhreacha le ZERO, ach nuair a rithim an clár cuireann sé deireadh leis na nialais. Rinne mé iarracht an réimse uimhreacha a thiontú go téacs, ach níor réitigh sin é. Smaointe eile?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
R-Cliceáil Cill, Formáid, Saincheaptha, Nuair a deir sé 'Ginearálta', cuir an oiread nialais agus a bheidh do shraithuimhir ina ionad sin. Cuirfidh sé seo iallach ar an méid nialais a bheidh ag teastáil os comhair do shraithuimhir. Má tá grúpa sraithuimhreacha agam ar sraithuimhreacha 10 ndigit iad, cuirim 0000000000 isteach sa réimse Cineál chun ‘0004563571’ a fháil le taispeáint sa réimse sraithuimhir.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat Art. Rinne mé iarracht é sin ach lean an barrachóid ag fáil réidh leis na príomh-nialais ... fiú tar éis formáid uimhreach saincheaptha a dhéanamh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tosaíonn mo shraithuimhir le 227861 conas is féidir liom priontáil as
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
clóite cosúil le 30 cóip ach anois ní féidir liom a phriontáil, rith an script go minic ach ní ag obair, ná déan faic :(
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat as an méid thuas, thar a bheith cabhrach. an bhfuil sé indéanta an luach deireanach a shábháil agus a mheabhrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Pieter,
Chun an luach deireanach clóite a shábháil agus a mheabhrú nuair a phriontáilfidh tú an chéad uair eile, ba cheart duit an cód VBA seo a leanas a chur i bhfeidhm:

Fo-Incrimint()
Dim xCount As Change
Dim xscreen Mar Boole
Dim I Chomh Fada
Dim xM Chomh fada
Dim xMNWS Mar Bhileog Oibre
Dim xAWS Mar Bhileog Oibre
Ar Lean Earráid Aghaidh
Ionchur LI:
xCount = Application.InputBox("Cuir isteach líon na gcóipeanna is mian leat a phriontáil:"", "Kutools le haghaidh Excel")
Má tá TypeName(xCount) = "Boolean" Ansin Scoir Fo
Más rud é (xCount = "") Nó (Ní hUimhriúil(xCount)) Nó (xCount < 1) Ansin
MsgBox "earráid iontrála, cuir isteach arís", vbInformation, "Kutools le haghaidh Excel"
Téigh go LInput
Eile
xScreen = Application.ScreenUpdating
Socraigh xAWS = ActiveSheet
Ar Earráid TéighChun EMarkNumberSheet
Socraigh xMNWS = Bileoga ("IncrimentPrint_MarkNumbersheet")
Bileog Uimhir Ríomhmharcála:
Mura rud ar bith é xMNWS ansin
Socraigh xMNWS = Feidhmchlár.Bileoga Oibre.Add(Cineál:=xlBileog Oibre)
xMNWS.Name = "IncrimentPrint_MarkNumberSheet"
xMNWS.Range("A1").Luach = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Eile
xM = xMNWS.Raon("A1").Luach
Deireadh Má
Application.ScreenUpdating = Bréagach
Chun I = 1 Go xCount
xM = xM+1
xAWS.Range("A1").Value = "Cuideachta-00" & xM
xAWS.PrintOut
Ar Aghaidh
xMNWS.Range("A1").Luach = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScáileán
Deireadh Má
Fo Deireadh

Más gá duit an uimhir chlóite a athshocrú go dtí an uimhir réamhshocraithe, rith an cód thíos ar dtús, agus ansin rith an cód thuas le priontáil.

Fo-IncrimentPrint_Athshuiteáil()
Dim xMNWS Mar Bhileog Oibre
Ar Earráid TéighChun EMarkNumberSheet
Socraigh xMNWS = Bileoga ("IncrimentPrint_MarkNumbersheet")
Bileog Uimhir Ríomhmharcála:
Mura bhfuil xMNWS An Rud ar bith Ansin
Application.DisplayAlerts = Bréagach
xMNWS.Visible = xlSheetHidden
xMNWS.Scrios
Application.DisplayAlerts = Fíor
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, go raibh maith agat as an gcód seo.. Tá ceist agam. D'úsáid mé an cód seo ach tá an tsraith ag léim cosúil le 0071,0072,0073. tharla cosúil le 3x idir sraith 1-100. Mar sin dhún mé an vba gan sábháil athshuiteáil an cód ach phriontáil sé an tsraith dheireanach a sábháladh (0032). Is í an cheist atá agam ná conas is féidir liom priontáil go leanúnach gan léim na sraithe agus conas is féidir liom athphriontáil arís ag tosú ar 101? beidh meas mór ar do fhreagra. leithscéal as seo. Ní ríomhchláraitheoir mé, tá súil agam go dtuigeann tú. Go raibh maith agat! 
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat as é seo a phostáil, tá sé an-chabhrach. Is í an cheist atá agam ná seo: Tá 2 bharrachóid dhifriúla agam a chaithfear a incrimintiú ar leathanach amháin, conas is féidir liom an cód a mhodhnú chun é sin a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Deasún,
Má tá 2 áit agat ar leathanach amháin (cosúil le 2 Cúpón nó 2 theimpléad / 2 dhearbhán srl.), is féidir leat triail a bhaint as an gcód thíos. (Ag glacadh leis go bhfuil do 1ú barrachód agus an dara barrachód i gcealla "A2" agus "A1" den leathanach céanna, méadóidh an cód seo luachanna mar Company-20 agus Company-001 ar an gcéad leathanach agus Company-002 agus Company-003 ar an dara leathanach agus mar sin de Is féidir leat uimhir na cille agus ainm na cuideachta a chur in eagar mar is mian leat i línte 004, 20, 21, 23 agus 24 den chód. 
Iarrfaidh sé ort freisin an uimhir tosaigh agus an uimhir chríochnaithe a chur isteach (Buíochas le geniusman as an gcuid seo den chód). Mar sin mar shampla d'uimhir tosaigh. is 1 agus dar críoch uimh. 8, priontálfaidh sé 4 leathanach de 1,2 ar an 1 leathanach, 3,4 ar an 2ú leathanach, 5,6 ar an 3ú leathanach agus ar deireadh 7,8 ar an 4ú leathanach. Tá súil agam go gcuideoidh sé leat nó le haon duine atá ag lorg an chineál seo riachtanas/riachtanas. 
Cód Athraithe:-------------------------------------------- ------------ Fo-IncrimentPrint()
'nuashonrúby Extendoffice
Dim xEnd Mar Leagan
Dim xStart Mar Leagan
Dim xscreen Mar Boole
Dim I Chomh Fada
Ar Lean Earráid Aghaidh
Ionchur LI:
xStart = Application.InputBox("Cuir isteach an chéad uimhir:"", "Kutools le haghaidh Excel")
xEnd = Application.InputBox("Cuir isteach an uimhir dheireanach:"", "Kutools le haghaidh Excel")
Má tá TypeName(xCount) = "Boolean" Ansin Scoir Fo
Más rud é (xStart = "") Nó (Ní hUimhriúil(xStart)) Nó (xStart < 1) Ansin
msgstr "Earráid iontrála, cuir isteach arís le do thoil", vbInformation, "Kutools for Excel"
Téigh go LInput
Eile
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Bréagach
Chun I = xStart Chun xEnd
Má Mé Mod 2 = 0 Ansin
ActiveSheet.Range("A1").Value = " Cuideachta-00" & I + 1
ActiveSheet.Range("A20").Value = " Cuideachta-00" & I
Eile
ActiveSheet.Range("A20").Value = " Cuideachta-00" & I + 1
ActiveSheet.Range("A1").Value = " Cuideachta-00" & I
ActiveSheet.PrintOut
Deireadh Má
Ar Aghaidh
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScáileán
Deireadh Má
Fo Deireadh

------------------------------------------------ ------------------------------------------------ ----- Go raibh maith agat, RNS
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is é I3 mo chill agus is í an uimhir 2298 nuair a bhainim triail as (Cód VBA: Luach cille incriminte uathoibríoch tar éis gach priontála :) tugann sé 22981 dom conas a gheobhaidh mé é go 2298,2299,2300
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, jennifer,
Chun déileáil le d’fhadhb, cuir an cód VBA seo a leanas i bhfeidhm:
Nóta: Athraigh téacs agus uimhir an réimír chuig do cheann féin.

Fo-IncrimintPrint_Num()
Dim xCount As Change
Dim xscreen Mar Boole
Dim I Chomh Fada
Dim xStr Mar Teaghrán
Dim xInt As Slánuimhir
Ar Lean Earráid Aghaidh
xStr = "Cuideachta-" 'téacs réimír
xInt = 2291 'uimhir
Ionchur LI:
xCount = Application.InputBox("Cuir isteach líon na gcóipeanna is mian leat a phriontáil:"", "Kutools le haghaidh Excel")
Má tá TypeName(xCount) = "Boolean" Ansin Scoir Fo
Más rud é (xCount = "") Nó (Ní hUimhriúil(xCount)) Nó (xCount < 1) Ansin
MsgBox "earráid iontrála, cuir isteach arís", vbInformation, "Kutools le haghaidh Excel"
Téigh go LInput
Eile
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Bréagach
Chun I = 1 Go xCount
xInt = xInt+1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
Ar Aghaidh
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScáileán
Deireadh Má
Fo Deireadh

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit an féidir leat cabhrú liom le seo? Ba mhaith liom go mbeadh an xINT níos mó ná 5 dhigit. Gach uair a chuirim uimhir a bhfuil 6 dhigit uirthi, téann an comhaireamh siar go dtí 1. Conas is féidir liom é sin a chosc?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an-suimiúil cé go bhfuil mé ag lorg réiteach difriúil nach raibh mé in ann teacht air agus fiú dá ndearna mé iarracht an cód a shaincheapadh nach bhféadfaí a bhaint amach go dtí seo. isteach sa PDF céanna mar shampla agus ar gach leathanach mhéadaigh uimhir an leathanaigh.Mar a dúirt mé bhain mé triail as an modh comhthiomsaithe ach de réir mar a thuig mé ligeann sé duit priontáil le chéile má theastaíonn uait cóipeanna iolracha den phriontáil chéanna.buíochas roimh ré Giuseppe
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá an cód seo ag obair den scoth, ach tar éis luach cille 32767 arís tá sé ag dul ar ais go 1. Tar éis an luach seo tá sé á phriontáil ó uimhir 1.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh míle maith agat, oibríonn sé domsa. Agus éiríonn liom roinnt mionathrú a dhéanamh a oireann do mo chuid riachtanas. Buíoch as do chomhroinnt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Jennifer, Bain triail as seo
Fo-Incrimint()
'nuashonrúby Extendoffice 20160530
Dim xCount As Change
Dim xscreen Mar Boole
Dim I Chomh Fada
Ar Lean Earráid Aghaidh
Ionchur LI:
xCount = Application.InputBox("Cuir isteach líon na gcóipeanna is mian leat a phriontáil:"", "Kutools le haghaidh Excel")
Má tá TypeName(xCount) = "Boolean" Ansin Scoir Fo
Más rud é (xCount = "") Nó (Ní hUimhriúil(xCount)) Nó (xCount < 1) Ansin
MsgBox "earráid iontrála, cuir isteach arís", vbInformation, "Kutools le haghaidh Excel"
Téigh go LInput
Eile
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Bréagach
Chun I = 1 Go xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Luach + 1
Ar Aghaidh
'Bileog Ghníomhach.Range("J18").ClearContents'

Application.ScreenUpdating = xScáileán
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat milliún
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn sé go maith chun # incriminteach a phriontáil. Conas a phriontáilim gach 5ú, 10, nuair is gá?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil bealach ann chun na luachanna is mian liom a phriontáil a roghnú? mar shampla chlóbhuail mé seicheamh 1 go 30 ach is gá seicheamh 15 go 19 a athphriontáil arís.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
hug ba mhaith liom uimhir na cille K11 a athrú tar éis priontála go 1-2-3-4-5-6 srl pls an féidir leat cabhrú? agus freisin inis dom conas glaoch ar an bhfeidhm sin pls cabhrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí mé ag smaoineamh ar conas athrú beag a dhéanamh ionas go bprionnaíonn sé 1 de 10, 2 de 10, 3 de 10, etc.
Seachas sin oibríonn sé seo go hiontach. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, is é mo ainm suresh tá sonraí agam i bhformáid Excel gan aon sraithuimhir a thaitníonn le bille slí mar shampla. Caithfidh mé é a phriontáil mar 100 leathanach agus is gá dom an tsraithuimhir a phriontáil cibé rud a theastaíonn uaim ó 4 dhigit ach agus mé ag priontáil caithfidh mé a dhéanamh de láimh. an féidir leat a mhíniú cé atá le priontáil uathoibríoch an cód sraithuimhir a ghiniúint agus tú ag priontáil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go hiontach!! Ní ríomhchláraitheoir mé ach d’éirigh liom an tagairt Cill agus an t-uimhriú uathúla a bhí uaim a athrú. D'oibrigh go hiontach dom Dia duit!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir cur leis an gcód seo freisin, ionas go ndéanfar 2 chóip a phriontáil go huathoibríoch?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Shílfinn go bhféadfá an chuid seo a athrú:ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut

chun
ActiveSheet.Range("A1").Value = " Cuideachta-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

chun 2 chóip de gach ceann a fháil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí mé ag smaoineamh ar an bhféadann tú an comhad a phriontáil díreach tar éis é a athoscailt agus leanann sé an uimhir sheicheamhach fós?
Is é an rud atá á dhéanamh agam faoi láthair ná gach uair a osclóidh mé an comhad, ALT + F11 ansin F5 agus cuirim líon na gcóipeanna in iúl. Déanfaidh sé an comhad a phriontáil ansin leis an uimhriú ceart, ansin sábháil arís. agus nuair a athosclóidh mé arís, níl le déanamh agam ach an chéim chéanna a dhéanamh.
Má tá cód ann inar féidir leat é a phriontáil go díreach gach uair a osclaíonn tú an comhad agus an leanfaidh sé an t-uimhriú seicheamhach fós?
go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí mé ag smaoineamh ar an bhféadann tú an comhad a phriontáil díreach tar éis é a athoscailt agus leanann sé an uimhir sheicheamhach fós?

Is é an rud atá á dhéanamh agam faoi láthair ná gach uair a osclóidh mé an comhad, ALT + F11 ansin F5 agus cuirim líon na gcóipeanna in iúl. Déanfaidh sé an comhad a phriontáil ansin leis an uimhriú ceart, ansin sábháil arís. agus nuair a athosclóidh mé arís, níl le déanamh agam ach an chéim chéanna a dhéanamh.

Má tá cód ann inar féidir leat é a phriontáil go díreach gach uair a osclaíonn tú an comhad agus an leanfaidh sé an t-uimhriú seicheamhach fós?

go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat as an gcód thuas a roinnt. Tá sé an-chabhrach do gach duine. An féidir linn roinnt cód breise a chur leis chun 8 n-uimhir a mhéadú seachas 1 tar éis priontaí? Ag fanacht le do fhreagra. Go raibh maith agat
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL