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

Sut i gopïo taflenni lluosog sawl gwaith yn Excel?

Weithiau, efallai y bydd angen i ni wneud copi neu gopïau lluosog o daflenni gwaith penodol mewn llyfr gwaith. Dyma rai ffyrdd cyflym i'ch helpu chi i gopïo un daflen waith neu daflenni gwaith lluosog sawl gwaith yn Excel.


Gwnewch un copi o daflenni gwaith lluosog un tro yn llyfr gwaith gweithredol neu lyfr gwaith arall gyda gorchymyn Symud neu Gopïo

Efo'r Symud neu Gopïo gorchymyn yn Excel, gallwch wneud un copi o daflen waith, taflenni gwaith penodol lluosog neu'r holl daflenni gwaith yn llyfr gwaith gweithredol neu lyfr gwaith arall ar y tro.

1. Yn y llyfr gwaith penodol lle byddwch chi'n copïo taflenni gwaith, dewiswch daflenni gwaith lluosog ar y bar Taflen Tab.
Nodyn: Dal CTRL allwedd, gallwch ddewis tabiau dalennau nad ydynt yn gyfagos trwy eu clicio fesul un ar y bar Taflen Tab; daliad SHIFT allwedd, gallwch ddewis tabiau dalennau lluosog lluosog trwy glicio ar y tab dalen gyntaf a'r un olaf ar y bar Taflen Tab.

2. Cliciwch ar y dde ar y tab dalen a ddewiswyd ar y bar Sheet Tab, a dewiswch Symud neu Gopïo o'r ddewislen cyd-destun. Gweler y screenshot:
copi doc taflenni lluosog 01

3. Yn y Symud neu Gopïo blwch deialog, nodwch y gosodiadau canlynol:
(1) Nodwch y llyfr gwaith cyrchfan y byddwch chi'n copïo taflenni gwaith ohono o'r I archebu rhestr ostwng. Gallwch ddewis y llyfr gwaith gweithredol, llyfr gwaith agored arall, neu lyfr gwaith newydd yn ôl yr angen.
(2) Nodwch leoliad y taflenni wedi'u copïo ar y bar Taflen Tab, gallwch ddewis ar ôl yr holl daflenni sy'n bodoli.
(3) Gwiriwch Creu copi opsiwn, os na fyddwch yn gwirio'r opsiwn hwn, bydd y taflenni gwaith a ddewiswyd yn cael eu symud i'r llyfr gwaith cyrchfan.
(4) Cliciwch y OK botwm.

Nawr bydd yn gwneud dim ond un copi o'r taflenni gwaith a ddewiswyd i'r llyfr gwaith penodedig. I wneud sawl copi o'r taflenni gwaith hyn, gallwch ailadrodd y llawdriniaeth sawl gwaith.

Dim ond sawl clic i wneud sawl copi o daflenni gwaith lluosog mewn llyfr gwaith gweithredol

Yn gyffredinol, gallwn gopïo taflenni gwaith lluosog gyda'r Symud neu Gopïo nodwedd yn Excel. Fodd bynnag, dim ond un copi y gall y nodwedd hon ei wneud ar y tro. Yma, gyda Kutools ar gyfer Excel's Copi Taflenni Gwaith cyfleustodau, gallwch yn hawdd wneud cymaint o gopïau o lawer o daflenni gwaith ag sydd eu hangen arnoch yn y llyfr gwaith gweithredol gan sawl clic yn unig.


copïo ad taflenni gwaith lluosog 01

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim 30-diwrnod, dim angen cerdyn credyd! Get It Now

Gwnewch gopïau lluosog o un daflen waith benodol yn llyfr gwaith gweithredol gyda chod VBA

Os ydych chi am wneud 10 copi o daflen waith benodol, bydd y Symud neu Gopïo bydd gorchymyn yn ffordd llafurus, a rhaid ichi ailadrodd y llawdriniaeth lawer gwaith. Ond gyda'r cod VBA canlynol, gallwch chi gopïo'r daflen waith yn gyflym 10 gwaith ar unwaith.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

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

VBA: Gwnewch gopïau lluosog o daflenni gwaith penodol yn llyfr gwaith gweithredol

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Nodyn: Yn y cod uchod, disodli "Sheet1"gydag enw'r ddalen i'w chopïo.

3. Yna pwyswch F5 yn allweddol i redeg y cod, mae'n ymddangos bod blwch prydlon yn gofyn i chi nifer y copïau dalen rydych chi eu heisiau.

4. Yna cliciwch OK, mae'r daflen waith benodol wedi'i chopïo 100 gwaith yn y llyfr gwaith gweithredol.


Gwnewch gopïau lluosog o daflenni gwaith lluosog yn llyfr gwaith gweithredol gyda Kutools ar gyfer Excel

Er ei bod yn syml gwneud copi o daflenni gwaith lluosog yn Excel, os ydych chi am wneud sawl copi o daflenni gwaith lluosog yn y llyfr gwaith cyfredol, efallai y bydd yn rhaid i chi ddefnyddio'r Symud neu Gopïo eitem orchymyn dro ar ôl tro. Hoffech chi wneud y peth mewn un clic? Efo'r Copi Taflenni Gwaith cyfleustodau ychwanegiad trydydd parti Kutools ar gyfer Excel, gallwch wneud sawl copi o daflenni gwaith lluosog mewn un clic yn Excel.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim 30-diwrnod, dim angen cerdyn credyd! Get It Now

1. Cliciwch Kutools Byd Gwaith > Copi Taflenni Gwaith. Gweler y screenshot:

Nodyn: Clicio Kutools Byd Gwaith > Taflen Waith > Copi Taflenni Gwaith hefyd yn cael y nodwedd hon.

2. Cymhwyso gosodiadau yn y Copïwch Daflenni Gwaith Lluosog blwch deialog:
(1) Gwiriwch y taflenni gwaith rydych chi am gael copi ohonynt Copïwch y taflenni gwaith a ddewiswyd adran hon.
(2) Nodwch Nifer y copïau.
(3) Darganfyddwch leoliad y taflenni a gopïwyd, er enghraifft, cyn neu ar ôl yr holl daflenni gwaith, cyn neu ar ôl y daflen waith gyfredol.
(4) Cliciwch y Ok botwm.

3. Mae blwch prydlon yn galw allan i'ch atgoffa bod y taflenni gwaith wedi'u gwirio wedi'u copïo sawl gwaith yn ôl yr angen, cliciwch ar y OK botwm i'w adael. Gweler y screenshot:

Mae hyn yn Copïwch Daflenni Gwaith Lluosog nodwedd o Kutools ar gyfer Excel yn gwneud sawl copi o daflenni gwaith penodedig lluosog yn y llyfr gwaith gweithredol gyda sawl clic yn unig. Cael Treial Am Ddim!


Gwnewch un copi o daflenni gwaith lluosog o lyfrau gwaith lluosog yn un newydd

Os oes gennych Kutools for Excel wedi'i osod, gallwch hefyd gymhwyso ei Cyfuno Taflenni Gwaith nodwedd i wneud un copi o daflenni gwaith lluosog o lyfrau gwaith caeedig lluosog i mewn i lyfr gwaith newydd gyda sawl clic yn Excel yn unig.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim 30-diwrnod, dim angen cerdyn credyd! Get It Now

1. Cliciwch Kutools Byd Gwaith > Cyfunwch i actifadu'r nodwedd Cyfuno Taflenni Gwaith.

2. Yn y Taflenni Gwaith Cyfuno - Dewin Cam 1 o 3, gwiriwch y Cyfuno nifer o daflenni gwaith o lyfrau gwaith yn un daflen waith opsiwn, a chliciwch ar y Digwyddiadau botwm. Gweler y screenshot:

3. Yn y Taflenni Gwaith Cyfuno - Dewin Cam 2 o 3, gwnewch fel a ganlyn y llun a ddangosir:
(1) Cliciwch Ychwanegu > ffeil or Ffolder i ychwanegu llyfrau gwaith byddwch yn copïo taflenni gwaith ohonynt.
(2) Yn y Rhestr llyfr gwaith adran, gwiriwch y llyfr gwaith y byddwch chi'n copïo ei daflenni gwaith;
(3) Yn y Rhestr taflen waith adran, gwiriwch y taflenni gwaith y byddwch chi'n eu copïo;
(4) Ailadroddwch uchod (2) ac (3) i ddewis taflenni gwaith o lyfrau gwaith eraill y byddwch yn eu copïo.
(5) Cliciwch y Digwyddiadau botwm.

4. Yn y Taflenni Gwaith Cyfuno - Dewin Cam 3 o 3, ffurfweddwch y gosodiadau copïo yn ôl yr angen, a chliciwch ar y Gorffen botwm.

5. Nawr yn y dialog newydd, nodwch ffolder cyrchfan i achub y llyfr gwaith newydd, enwwch y llyfr gwaith newydd yn y enw ffeil blwch, a chliciwch ar y Save botwm. Gweler y screenshot:

Nawr bydd dau flwch deialog arall yn dod allan ac yn gofyn ichi agor y llyfr gwaith newydd ac arbed y senario cyfuniad, cliciwch botymau yn ôl yr angen. Hyd yn hyn, mae wedi copïo'r holl daflenni gwaith penodedig o sawl llyfr gwaith ar y tro.

Gyda hyn Cyfuno (Taflenni Gwaith) cyfleustodau, gallwch chi gopïo a chyfuno taflenni gwaith a llyfrau gwaith yn hawdd fel y dangosir y rhestr ganlynol. Cael Treial Am Ddim!
(1) Cyfuno nifer o daflenni gwaith / ystodau o lyfrau gwaith yn gyflym i un daflen waith;
(2) Uno / cyfuno'r holl daflenni gwaith o'r un enw yn gyflym ar draws llyfrau gwaith yn un daflen waith;
(3) Uno / cyfuno taflenni gwaith neu lyfrau gwaith yn gyflym mewn un llyfr gwaith;
(4) Crynhoi / cyfrifo data o daflenni gwaith lluosog yn gyflym i un daflen waith.


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 Office / Excel 2007-2021 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 (25)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gan ddefnyddio'r cod VBA, mae enwi'r taflenni gwaith dyblyg yn y drefn wrthdroi. Gadewch i ni ddweud fy mod yn gwneud 10 copi o Daflen 1, byddaf yn y pen draw gyda Daflen 1, Taflen 1(10), Taflen 1(9), Taflen 1(8), ........a yw'n bosibl eu cael yn y drefn arferol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais y cod VBA a chael gwall tanysgrifiad allan o ystod (9). Rhoddais enw'r ddalen yn lle unrhyw beth y gallwn feddwl amdano a oedd eisoes yn y llyfr gwaith. Unrhyw syniad beth wnes i'n anghywir? Hefyd, a oes ffordd i wneud iddo enwi pob dalen yn gynyddrannol? Byddai hyn yn cyd-fynd â chwestiwn Michael, rwy’n siŵr. Rwy'n dyfalu mai'r ateb i'w gwestiwn fyddai byddai angen i chi osod y targed After i "sheet"+x rhywsut a byddai hynny yn ei dro yn berthnasol i'm cwestiwn os oedd ffordd i nodi beth i'w enwi ar y ddalen newydd. Gallwn i bob amser newid "meistr" fy mhennaeth i "Awst 0" neu pa fis bynnag ydyw, ond byddai'n haws iddi ddeall a oedd y sgript yn gwneud yr enwi'n awtomatig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch, roedd y cod vba yn enfawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw, diolch am y cod VBA. Mae wir yn helpu llawer!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Gan ddefnyddio'r cod VBA, mae enwi'r taflenni gwaith dyblyg yn y drefn arall. Gadewch i ni ddweud fy mod yn gwneud 10 copi o Daflen 1, byddaf yn y pen draw gyda Daflen 1, Taflen 1(10), Taflen 1(9), Taflen 1(8), ........a yw'n bosibl eu cael yn y drefn arferol?Gan MichaelTadashi[/dyfyniad] Roedd unrhyw un yn gallu ateb y cwestiwn hwn? Dwi angen creu 72 copi, ond byddai angen eu cael mewn trefn (1 trwyt 72, yn hytrach na 72 trwy 1) Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad][dyfynbris] Gan ddefnyddio'r cod VBA, mae enwi'r taflenni gwaith dyblyg yn y drefn wrthdroi. Gadewch i ni ddweud fy mod yn gwneud 10 copi o Daflen 1, byddaf yn y pen draw gyda Daflen 1, Taflen 1(10), Taflen 1(9), Taflen 1(8), ........a yw'n bosibl eu cael yn y drefn arferol?Erbyn juan[/dyfyniad] Roedd unrhyw un yn gallu ateb y cwestiwn hwn? Dwi angen creu 72 copi, ond byddai angen eu cael mewn trefn (1 trwyt 72, yn hytrach na 72 trwy 1) Diolch!Gan MichaelTadashi[/quote]e] Os ydych am i'r copïau dalennau fod mewn trefn ddilyniannol yn hytrach nag yn ôl, newidiwch y llinell ganlynol... Ar ôl:=ActiveWorkbook.Sheets("taflen 1") i hyn... Ar ôl:=ActiveWorkbook.Sheets(Taflenni gwaith.Cyfrif) Roedd fy nghod gorffenedig yn edrych fel y canlynol sy'n defnyddio 2 awgrym InputBox i ganiatáu ar gyfer cyfrif copi deinamig ac enw taflen waith. Is-gopïwr() Dim s Fel Llinyn Dim numtimes Fel Cyfanrif Dim Copïau Fel Cyfanrif numCopies = InputBox("Sawl copi sydd ei angen arnoch?") s = InputBox("Rhowch enw'r Daflen Waith rydych am ei chopïo") Am nifer = 1 I rif Copïau Llyfr(au)GwaithActif
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae rhifo'r copïau parhaus. Os yw'r daflen rydw i eisiau ei chopïo yn cael ei henwi yn I002, ac rydw i eisiau i'r nesaf gael ei enwi yn I003, I004, I005 ac ati.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Chwiliwch am y gair "Ar ôl" a'i newid i "Cyn". Bydd hyn yn creu copïau yn y drefn gywir "Cyn" Taflen 1. Yr unig beth i'w gofio yw y bydd y rhifo bob amser yn dechrau o (2) gan y bydd y ddalen wreiddiol bob amser yn cael ei chyfrif fel copi 1af. Hefyd gallwch chi ddisodli "Taflen1" gydag enw'r tab rydych chi'n ceisio ei gopïo.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydy mae'n gweithio diolch Rwyf wedi llwyddo i wneud copïau lluosog o un daflen waith yn yr un llyfr gwaith trwy ddefnyddio cod vba thnx yn aml.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i gopïo gyda'r un lled colofnau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un lled colofnau â'r Daflen Waith wreiddiol neu a ydych chi am i led pob colofn fod yr un peth?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais yr un camgymeriad â Theou ac nid yw'n ymddangos bod unrhyw un wedi mynd i'r afael ag ef. Mae fy nhabiau eisoes wedi'u henwi PO 51, PO 52, ac ati a rhoddais PO 1 yn lle Sheet51 i gopïo hynny a chael y gwall tanysgrifio allan o ystod (9) Dilynais god Schuyler i gael y drefn gywir, ond rwy'n dal i gael y gwall ac mae bob amser oherwydd y ddwy linell yma: ActiveWorkbook.Sheets(s).Copy _ Cyn:=ActiveWorkbook.Sheets(Worksheets.Count)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Cefais yr un gwall â Theou ac mae'n ymddangos nad oes neb wedi mynd i'r afael ag ef. Mae fy nhabiau eisoes wedi'u henwi PO 51, PO 52, ac ati a rhoddais PO 1 yn lle Sheet51 i gopïo hynny a chael y gwall tanysgrifio allan o ystod (9) Dilynais god Schuyler i gael y drefn gywir, ond rwy'n dal i gael y gwall ac mae bob amser oherwydd y ddwy linell yma: ActiveWorkbook.Sheets(s).Copy _ Cyn:=ActiveWorkbook.Sheets(Worksheets.Count)Gan Debbi[/quote] A allwch chi gynnwys eich cod cyflawn i'w gwneud yn haws dadfygio? Mae "gwall tanysgrifio allan o ystod" fel arfer yn golygu bod y cod yn cyfeirio at rywbeth nad yw'n bodoli. Rwy'n dod o hyd i hwn yn fy nghod fy hun pan mae gen i deip neu rywbeth o'r natur yna.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael gwall nad yw 'numtimes' wedi'i ddiffinio...?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
lle byddaf yn mewnosod y cod hwn uchod yn vba ddylwn i greu botwm cyffredin yna tu mewn?? o ran.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dilynwch y camau isod:
1. Copïwch y cod uchod
2. Daliwch y bysellau ALT + F11 i lawr, ac mae'n agor ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwl , a gludwch y cod canlynol yn Ffenestr y Modiwl.
4.Yna pwyswch F5 allwedd i redeg y cod
5. Mae blwch prydlon yn ymddangos i ofyn i chi faint o gopïau dalen rydych chi eu heisiau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan geisiais ef gyntaf, cefais y neges gwall oherwydd ni newidiais yr enw Sheet1. Ar ôl i mi sylweddoli beth achosodd y gwall, ymchwiliais ychydig ymhellach, gan nad oeddwn am roi enw'r ddalen â llaw yn y macro. A phan fydd angen y nodwedd hon arnaf, mae bron bob amser ar gyfer y daflen gyfredol. Ychwanegais y llinell a = activesheet.name Ac adolygais y llinell ar ôl:=activeworkbook.sheets("sheet1") i activeworkbook.sheets(a).copy _ Gweithiodd hynny'n dda iawn, ond sylwais fod y rhifo wedi'i wrthdroi ... wnaeth hynny ddim fy mhoeni gan fy mod yn mynd i ailenwi'r dalennau newydd â llaw beth bynnag. Pan welais swydd Schuyler, adolygais ymhellach y llinell activeworkbook.sheets(a).copy _ i ar ôl:=activeworkbook.sheets(worksheets.count) Rwyf bellach yn fodlon â'r canlyniad. Fy macro gorffenedig: Is gopïau() Dim x Fel Cyfanrif x = InputBox("Rhowch nifer o weithiau i gopïo Dalen1") Ar gyfer numtimes = 1 I x ActiveWorkbook.Sheets("Taflen1").Copi _ Ar ôl:=ActiveWorkbook.Sheets( Taflenni Gwaith.Cyfri) Diwedd Nesaf Is --- Pob lwc, Y Barri
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn Barry. Eich macro gorffenedig yw'r unig beth a weithiodd i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais wall cystrawen ar "After:=ActiveWorkbook.Sheets(Worksheets.Count)


ond dwi ddim yn gwybod beth sy'n bod... Allwch chi fy helpu os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod VBA gwych - wedi helpu'n fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n newydd i hyn rwy'n ceisio gwneud copïau o'r un ddalen dyma'r cod yr wyf yn ei ddefnyddio. Is-gopïwr() Dim s Fel Llinyn Dim numtimes Fel Cyfanrif Dim Copïau Fel Cyfanrif numCopies = InputBox("Faint o gopïau sydd eu hangen arnoch?") s = InputBox("Rhowch enw'r Daflen Waith yr ydych am ei chopïo") Am numtimes = 1 I numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) End End Is pan fyddaf yn defnyddio'r cod mae'n rhoi gwall "Syntax Error" i mi, yna mae'r testun hwn yn troi'n goch ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) ac mae'r testun yn troi'n felyn Is-gopïwr() beth alla i ei wneud i'w drwsio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]Rwy'n newydd i hyn rwy'n ceisio gwneud copïau o'r un ddalen dyma'r cod rwy'n ei ddefnyddio. Is-gopïwr() Dim s Fel Llinyn Dim numtimes Fel Cyfanrif Dim Copïau Fel Cyfanrif numCopies = InputBox("Sawl copi sydd ei angen arnoch?") s = InputBox("Rhowch enw'r Daflen Waith rydych am ei chopïo") Am nifer = 1 I numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) End End Is pan fyddaf yn defnyddio'r cod mae'n rhoi gwall "Syntax Error" i mi, yna mae'r testun hwn yn troi'n goch ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) ac mae'r testun yn troi'n felyn Is-gopïwr() beth alla i ei wneud i'w drwsio.Gan Tyler Dempsey[/quote] Gwiriwch eich cod ddwywaith a gwnewch yn siŵr nad oes gennych le yn ActiveWorkbook. Dalen(ni).Copi _ neu yn Sheets(Worksheets.Cou nt)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]Rwy'n newydd i hyn rwy'n ceisio gwneud copïau o'r un ddalen dyma'r cod rwy'n ei ddefnyddio. Is-gopïwr() Dim s Fel Llinyn Dim numtimes Fel Cyfanrif Dim Copïau Fel Cyfanrif numCopies = InputBox("Sawl copi sydd ei angen arnoch?") s = InputBox("Rhowch enw'r Daflen Waith rydych am ei chopïo") Am nifer = 1 I numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) End End Is pan fyddaf yn defnyddio'r cod mae'n rhoi gwall "Syntax Error" i mi, yna mae'r testun hwn yn troi'n goch ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) ac mae'r testun yn troi'n felyn Is-gopïwr() beth alla i ei wneud i'w drwsio.Gan Tyler Dempsey[/quote] Dyma'r union god rydych am ei ddefnyddio: Is-gopïwr() Dim s Fel Llinyn Dim numtimes Fel Cyfanrif Dim numCopies Fel Cyfanrif numCopies = InputBox("Sawl copi sydd ei angen arnoch?") s = InputBox("Rhowch enw'r Daflen Waith yr ydych am ei chopïo") Ar gyfer numtimes = 1 I rif Copïau ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i chi, achubodd yr un olaf fy mywyd :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod Gweithio

Is-gopïwr()
Dim s Fel Llinyn
Dim numtimes Fel Cyfanrif
Dim numCopïau Fel Cyfanrif
numCopies = InputBox ("Sawl copi sydd ei angen arnoch?")
s = InputBox ("Rhowch enw'r Daflen Waith rydych chi am ei chopïo")
Am rhifo = 1 I rifCopïau
ActiveWorkbook.Sheets(s).Copi After:=ActiveWorkbook.Sheets(Worksheets.Count)
Digwyddiadau
Is-End

copïwch y llinell gyfan o ActiveWorkbook.Sheets ..... dyna oedd y broblem, a rhai bylchau

Cael diwrnod gwych
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL