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

 Sut i awto gwerth celloedd cynyddran ar ôl pob argraffu?

Gan dybio, mae gen i dudalen taflen waith y mae angen ei hargraffu 100 copi, y gell A1 yw'r rhif gwirio Company-001, nawr, hoffwn i'r nifer gynyddu 1 ar ôl pob allbrint. Mae hynny'n golygu pan fyddaf yn argraffu'r ail gopi, bydd y nifer yn cael ei gynyddu i Gwmni-002 yn awtomatig, y trydydd copi, y rhif fydd Cwmni-003 ... cant copi, y rhif fydd Company-100. A oes unrhyw dric i ddatrys y broblem hon yn Excel yn gyflym ac o bosibl?

Gwerth celloedd cynyddiad awto ar ôl pob argraffu gyda chod VBA


swigen dde glas saeth Gwerth celloedd cynyddiad awto ar ôl pob argraffu gyda chod VBA

Fel rheol, nid oes unrhyw ffordd uniongyrchol ichi ddatrys y dasg hon yn Excel, ond, yma, byddaf yn creu cod VBA i ddelio ag ef.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Gwerth celloedd cynyddiad awto ar ôl pob argraffu:

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i nodi nifer y copïau rydych chi am argraffu'r daflen waith gyfredol, gweler y screenshot:

cynyddiad doc wrth argraffu 1

4. Cliciwch OK botwm, ac mae eich taflen waith gyfredol yn cael ei hargraffu nawr, ac ar yr un pryd, mae'r taflenni gwaith printiedig wedi'u rhifo Company-001, Company-002, Company-003 ... yng nghell A1 yn ôl yr angen.

Nodyn: Yn y cod uchod, y gell A1 yn cael ei fewnosod y rhifau dilyniant a archebwyd gennych, a gwerth gwreiddiol y gell A1 yn cael ei glirio. Ac ““Cwmni-00”Yw rhif y dilyniant, gallwch eu newid i'ch angen.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (47)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn anhygoel, dyma'n union yr hyn sydd ei angen arnaf, fodd bynnag, roeddwn i'n meddwl tybed a oes ffordd i ddechrau argraffu o'r rhif sydd wedi'i nodi yn cell "A1"? Er enghraifft, os ydw i wedi argraffu 100 copi, ar y rhediad argraffu nesaf bydd angen i mi argraffu o rif 101 a chyfrif i fyny oddi yno. Rwyf wedi rhoi cynnig ar ychydig o addasiadau cod ond mae'n ymddangos ei fod yn cymryd y rhif a gofnodwyd yn y gell hy 101, ychwanegu 1 ac yna mae gweddill y printiau yn sownd gyda'r un rhif hwnnw, hy 102... Gwerthfawrogir eich cymorth yn fawr : -)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os na wnaethoch chi ddod o hyd i ateb yn barod gallwch olygu llinell 17 o'r cod i hyn: ActiveSheet.Range("A1").Value = Ystod ("A1").Gwerth + 1
Bydd hyn yn ychwanegu +1 at y rhif sydd gennych yng nghell A1.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n anfon at fy argraffydd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dod o hyd i'r codau wedi'u haddasu ynghlwm.

A dyma fe yn y testun:
Argraffu Is Gynnydd()
'diweddaru erbyn Extendoffice
Dim xEnd Fel Amrywiad
Dim xStart Fel Amrywiad
Dim xScreen Fel Boolean
Dim I Cyn Hir
Ar Ail-ddechrau Gwall Nesaf
Mewnbwn LI:
xStart = Application.InputBox ("Rhowch y rhif cyntaf:"", "Kutools ar gyfer Excel")
xEnd = Application.InputBox ("Rhowch y rhif olaf:"", "Kutools ar gyfer Excel")
If TypeName(xCount) = "Boolean" Yna Gadael Is
Os (xStart = "") Neu (Ddim yn Rhifol(xStart)) Neu (xStart < 1) Yna
msgstr "Gwall wedi'i nodi, rhowch eto", vbInformation, "Kutools for Excel"
GoTo LIInput
arall
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Anghywir
Am I = xStart I xEnd
ActiveSheet.Range("A1").Value = " Cwmni-00" & I
ActiveSheet.PrintOut
Digwyddiadau
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi angen rhifau cyfresol fel IA1-055242, IA1-055243, IA1-055244 .....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am bostio hwn, mae'n ddefnyddiol iawn. Fy nghwestiwn yw hyn: mae gen i 2 god bar gwahanol y mae angen eu cynyddu ar un dudalen, sut alla i addasu'r cod i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf ofyn hyn ar bostiad ar wahân... Mae fy rhifau cyfresol yn dechrau gyda ZERO, ond pan fyddaf yn rhedeg y rhaglen mae'n dileu'r sero. Ceisiais drosi'r maes rhif yn destun, ond nid oedd hynny'n ei drwsio. Syniadau eraill?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
R-Click Cell, Fformat, Custom, Lle mae'n dweud 'Cyffredinol', disodli hynny gyda chymaint o sero ag y bydd eich rhif cyfresol. Bydd hyn yn gorfodi swm y sero sydd ei angen o flaen eich rhif cyfresol. Os oes gennyf grŵp o rifau cyfresol sy'n gyfresi 10 digid, rwy'n nodi 0000000000 yn y maes Math i gael '0004563571' i'w arddangos yn y maes rhif cyfresol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Art. Ceisiais hynny ond roedd y cod bar yn parhau i ddileu'r sero blaenllaw ... hyd yn oed ar ôl gwneud fformat rhif arferol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae fy rhif cyfresol yn dechrau gyda 227861 sut alla i argraffu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
wedi'i argraffu fel 30 copi ond nawr ni allaf argraffu, rhedeg y sgript lawer o weithiau ond ddim yn gweithio, peidiwch â gwneud unrhyw beth :(
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch am yr uchod, yn ddefnyddiol iawn. a yw'n bosibl arbed a chofio'r gwerth olaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Pieter,
I arbed a chofio'r gwerth printiedig olaf pan fyddwch chi'n argraffu y tro nesaf, dylech gymhwyso'r cod VBA canlynol:

Argraffu Is Gynnydd()
Dim xCyfrif Fel Amrywiad
Dim xScreen Fel Boolean
Dim I Cyn Hir
Dim xM Cyhyd
Dim xMNWS Fel Taflen Waith
Dim xAWS Fel Taflen Waith
Ar Ail-ddechrau Gwall Nesaf
Mewnbwn LI:
xCount = Application.InputBox ("Rhowch nifer y copïau rydych am eu hargraffu:"", "Kutools ar gyfer Excel")
If TypeName(xCount) = "Boolean" Yna Gadael Is
Os (xCount = "") Neu (Ddim yn Rhifol(xCount)) Neu (xCount < 1) Yna
MsgBox "gwall wedi'i nodi, rhowch eto", vbInformation, "Kutools for Excel"
GoTo LIInput
arall
xScreen = Application.ScreenUpdating
Gosod xAWS = ActiveSheet
Ar Gwall Ewch I EMarkNumbersheet
Gosod xMNWS = Taflenni ("IncrementPrint_MarkNumberSheet")
Taflen Rhif EMark:
Os yw xMNWS Yn Dim Yna
Gosod xMNWS = Application.Worksheets.Add(Math:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Gwerth = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
arall
xM = xMNWS.Range("A1").Gwerth
Gorffennwch Os
Application.ScreenUpdating = Anghywir
Am I = 1 I xCount
xM = xM+1
xAWS.Range("A1").Value = "Cwmni-00" & xM
xAWS.PrintOut
Digwyddiadau
xMNWS.Range("A1").Gwerth = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Gorffennwch Os
Is-End

Os oes angen i chi ailosod y rhif printiedig i'r rhif rhagosodedig, rhedwch y cod isod yn gyntaf, ac yna gweithredwch y cod uchod i'w argraffu.

Sub IncrementPrint_Reinstall()
Dim xMNWS Fel Taflen Waith
Ar Gwall Ewch I EMarkNumbersheet
Gosod xMNWS = Taflenni ("IncrementPrint_MarkNumberSheet")
Taflen Rhif EMark:
Os Na Ydy xMNWS Yn Dim Yna
Application.DisplayAlerts = Gau
xMNWS.Visible = xlSheetHidden
xMNWS.Dileu
Application.DisplayAlerts = Gwir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch i chi am y cod hwn... Mae gen i gwestiwn. Defnyddiais y cod hwn ond mae'r gyfres yn neidio fel 0071,0072,0073. digwydd fel 3x rhwng cyfresi 1-100. Felly caeais y vba heb arbed ail osod y cod ond mae'n argraffu y gyfres ddiwethaf a arbedwyd (0032). Fy nghwestiwn yw sut alla i argraffu'n barhaus heb i'r gyfres neidio a sut alla i ail-argraffu gan ddechrau ar 101? bydd yn gwerthfawrogi eich ateb yn fawr. sori am hyn. Nid wyf yn rhaglennydd, gobeithio eich bod yn deall. Diolch! 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch am bostio hwn, mae'n ddefnyddiol iawn. Fy nghwestiwn yw hyn: mae gen i 2 god bar gwahanol y mae angen eu cynyddu ar un dudalen, sut alla i addasu'r cod i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Desmond,
Os oes gennych chi 2 le ar un dudalen (fel 2 Gwpon neu 2 dempled / 2 daleb ac ati), yna gallwch chi geisio defnyddio'r cod isod. (Gan dybio bod eich cod bar 1af a'ch 2il god bar mewn celloedd "A1" ac "A20" ar yr un dudalen, bydd y cod hwn yn cynyddu gwerthoedd fel Company-001 a Company-002 ar y dudalen gyntaf a Company-003 a Company-004 ar yr ail dudalen ac yn y blaen Gallwch olygu'r rhif cell ac enw'r cwmni fel y dymunwch yn llinellau 20, 21, 23, 24 a 28,29 o'r cod. 
Bydd hefyd yn gofyn ichi nodi'r rhif cychwyn a'r rhif gorffen (Diolch i'r athrylith am y rhan hon o'r cod). Felly, er enghraifft, eich rhif cychwyn. yw 1 ac yn diweddu rhif. 8, bydd yn argraffu 4 tudalen o 1,2 ar y dudalen 1af, 3,4 ar yr 2il dudalen, 5,6 ar y 3ydd tudalen ac yn olaf 7,8 ar y 4edd dudalen. Gobeithio y bydd yn eich helpu chi neu unrhyw un sy'n chwilio am y math hwn o angen / gofyniad. 
Cod wedi'i Addasu:-------------------------------------------- ----------- Is-Argraffiad Cynydd()
'diweddaru erbyn Extendoffice
Dim xEnd Fel Amrywiad
Dim xStart Fel Amrywiad
Dim xScreen Fel Boolean
Dim I Cyn Hir
Ar Ail-ddechrau Gwall Nesaf
Mewnbwn LI:
xStart = Application.InputBox ("Rhowch y rhif cyntaf:"", "Kutools ar gyfer Excel")
xEnd = Application.InputBox ("Rhowch y rhif olaf:"", "Kutools ar gyfer Excel")
If TypeName(xCount) = "Boolean" Yna Gadael Is
Os (xStart = "") Neu (Ddim yn Rhifol(xStart)) Neu (xStart < 1) Yna
msgstr "Gwall wedi'i nodi, rhowch eto", vbInformation, "Kutools for Excel"
GoTo LIInput
arall
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Anghywir
Am I = xStart I xEnd
Os byddaf Mod 2 = 0 Yna
ActiveSheet.Range("A1").Value = " Cwmni-00" & I + 1
ActiveSheet.Range("A20").Value = " Cwmni-00" & I
arall
ActiveSheet.Range("A20").Value = " Cwmni-00" & I + 1
ActiveSheet.Range("A1").Value = " Cwmni-00" & I
ActiveSheet.PrintOut
Gorffennwch Os
Digwyddiadau
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
Gorffennwch Os
Is-End

---------------------------------------------- ---------------------------------------------- ----- Diolch, RNS
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fy nghell yw I3 a'r rhif yw 2298 pan fyddaf yn ceisio'r (Cod VBA: Gwerth cell cynyddiad awtomatig ar ôl pob argraffu :) mae'n rhoi 22981 i mi sut ydw i'n ei gael i 2298,2299,2300
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Jennifer,
I ddelio â'ch problem, defnyddiwch y cod VBA canlynol:
Nodyn: Newidiwch y testun rhagddodiad a'r rhif i'ch un chi.

Is-Argraffiad_Rhif()
Dim xCyfrif Fel Amrywiad
Dim xScreen Fel Boolean
Dim I Cyn Hir
Dim xStr Fel Llinyn
Dim xInt Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
xStr = "Cwmni-"' testun rhagddodiad
xInt = 2291' rhif
Mewnbwn LI:
xCount = Application.InputBox ("Rhowch nifer y copïau rydych am eu hargraffu:"", "Kutools ar gyfer Excel")
If TypeName(xCount) = "Boolean" Yna Gadael Is
Os (xCount = "") Neu (Ddim yn Rhifol(xCount)) Neu (xCount < 1) Yna
MsgBox "gwall wedi'i nodi, rhowch eto", vbInformation, "Kutools for Excel"
GoTo LIInput
arall
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Anghywir
Am I = 1 I xCount
xInt = xInt+1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
Digwyddiadau
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Gorffennwch Os
Is-End

Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo allwch chi fy helpu gyda hyn? Rwyf am i'r xINT fod yn fwy na 5 digid. Bob tro rwy'n rhoi rhif gyda 6 digid, mae'r cyfrif yn mynd yn ôl i 1. Sut gallaf atal hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diddorol iawn er fy mod yn chwilio am ateb gwahanol na allwn ddod o hyd iddo a hyd yn oed pe bawn i'n ceisio addasu'r cod na allai ei gyflawni hyd yn hyn. Yn dilyn eich enghraifft byddai angen i mi argraffu'r un dudalen 100 o weithiau, i mewn i'r un PDF er enghraifft ac ar bob tudalen cynyddwyd rhif y dudalen. FEL a ddywedais ceisiais y dull coladu ond fel y deallais mae'n caniatáu ichi argraffu gyda'ch gilydd os oes angen copïau lluosog o'r un allbrint arnoch.diolch ymlaen llaw Giuseppe
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r cod hwn yn gweithio'n wych, ond ar ôl gwerth celloedd 32767 eto mae'n mynd yn ôl i 1. Ar ôl y gwerth hwn mae'n argraffu o rif 1.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr iawn, mae'n gweithio i mi. Ac rwy'n llwyddo i wneud ychydig o fân newidiadau i weddu i'm hanghenion. Gwerthfawrogi'n fawr eich rhannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jennifer, Rhowch gynnig ar hyn
Argraffu Is Gynnydd()
'diweddaru erbyn Extendoffice 20160530
Dim xCyfrif Fel Amrywiad
Dim xScreen Fel Boolean
Dim I Cyn Hir
Ar Ail-ddechrau Gwall Nesaf
Mewnbwn LI:
xCount = Application.InputBox ("Rhowch nifer y copïau rydych am eu hargraffu:"", "Kutools ar gyfer Excel")
If TypeName(xCount) = "Boolean" Yna Gadael Is
Os (xCount = "") Neu (Ddim yn Rhifol(xCount)) Neu (xCount < 1) Yna
MsgBox "gwall wedi'i nodi, rhowch eto", vbInformation, "Kutools for Excel"
GoTo LIInput
arall
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Anghywir
Am I = 1 I xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Gwerth + 1
Digwyddiadau
'Active Sheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch miliwn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n dda ar gyfer argraffu # cynyddrannol. Sut ydw i'n argraffu pob 5ed, 10, pan fo angen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i ddewis pa werthoedd yr wyf am eu hargraffu? er enghraifft argraffais ddilyniant 1 i 30 ond mae angen ailargraffu dilyniant 15 i 19 eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei dwi eisiau newid nifer y rhif cell K11 ar ôl argraffu i 1-2-3-4-5-6 ac ati pls allwch chi helpu? a hefyd yn dweud wrthyf sut i alw bod swyddogaeth pls help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn yn meddwl tybed sut i wneud newid bach fel ei fod yn argraffu 1 o 10, 2 o 10, 3 o 10, ac ati.
Fel arall mae hyn yn gweithio'n wych. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, fy enw i yw suresh Mae gen i ddata mewn fformat excel heb unrhyw rif cyfresol sy'n hoffi enghraifft o fil ffordd. Mae angen i mi ei gymryd fel print 100 tudalen ac mae angen i mi argraffu'r rhif cyfresol beth bynnag sydd ei angen arnaf o 4 digid ond wrth argraffu mae'n rhaid i mi wneud mewn ffordd â llaw. a allwch chi egluro pwy i'w argraffu yn awtomatig cynhyrchu'r cod rhif cyfresol wrth argraffu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych!! Nid wyf yn rhaglennydd ond llwyddais i newid y cyfeirnod Cell a'r rhif unigryw roeddwn i eisiau. Wedi gweithio'n wych i mi Dduw bendithia chi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw hefyd yn bosibl ychwanegu at y cod hwn, fel bod 2 gopi yn cael eu hargraffu'n awtomatig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddwn yn meddwl y gallech newid y rhan hon:ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut

i
ActiveSheet.Range("A1").Value = " Cwmni-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

i gael 2 gopi o bob un.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn i'n meddwl tybed a allwch chi argraffu'r ffeil yn syth ar ôl ei hailagor ac mae'n dal i ddilyn y rhif dilyniannol?
Yr hyn rydw i'n ei wneud ar hyn o bryd yw bob tro rydw i'n agor y ffeil, ALT + F11 yna F5 a nodi nifer y copïau . Yna bydd yn argraffu'r ffeil gyda'r rhif cywir, yna'n arbed eto. a phan fyddaf yn ailagor eto, does ond angen i mi wneud yr un cam.
Os oes cod lle gallwch chi ei argraffu'n syth bob tro y byddwch chi'n agor y ffeil a bydd yn dal i ddilyn y rhifo dilyniannol?
Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn i'n meddwl tybed a allwch chi argraffu'r ffeil yn syth ar ôl ei hailagor ac mae'n dal i ddilyn y rhif dilyniannol?

Yr hyn rydw i'n ei wneud ar hyn o bryd yw bob tro rydw i'n agor y ffeil, ALT + F11 yna F5 a nodi nifer y copïau . Yna bydd yn argraffu'r ffeil gyda'r rhif cywir, yna'n arbed eto. a phan fyddaf yn ailagor eto, does ond angen i mi wneud yr un cam.

Os oes cod lle gallwch chi ei argraffu'n syth bob tro y byddwch chi'n agor y ffeil a bydd yn dal i ddilyn y rhifo dilyniannol?

Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am rannu uchod cod. Mae'n ddefnyddiol iawn i bawb. A allwn ychwanegu cod yn fwy ar gyfer cynyddu 8 rhif yn lle 1 ar ôl printiau? Aros am eich ateb. Diolch
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir