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

Conas iliomad bileoga a chóipeáil arís agus arís eile in Excel?

Uaireanta, b’fhéidir go mbeidh orainn cóip nó iliomad cóipeanna de bhileoga oibre sonraithe a dhéanamh i leabhar oibre. Seo roinnt bealaí gasta chun cabhrú leat bileog oibre amháin nó bileoga oibre iolracha a chóipeáil go héasca arís agus arís eile in Excel.


Déan cóip amháin de bhileoga oibre iolracha uair amháin i leabhar oibre gníomhach nó i leabhar oibre eile le hordú Bog nó Cóipeáil

Leis an Bog nó Cóipeáil i Excel, is féidir leat cóip amháin de bhileog oibre, bileoga oibre iolracha ar leith nó gach bileog oibre a dhéanamh ina leabhar oibre gníomhach nó i leabhar oibre eile ag an am.

1. Sa leabhar oibre áirithe ina gcóipeálfaidh tú bileoga oibre, roghnaigh iliomad bileoga oibre ar an mbarra Bileog Cluaisín.
nótaí: Sealbhú CTRL eochair, is féidir leat cluaisíní leatháin neamh-in aice láimhe a roghnú trí iad a chliceáil ceann ar cheann ar an mbarra Tab Bileog; gabháltas Shift eochair, is féidir leat cluaisíní leatháin leatháin in aice láimhe a roghnú trí chliceáil ar an gcéad chluaisín bileog agus an ceann deireanach ar an mbarra Tab Bileog.

2. Cliceáil ar dheis ar an táb bileog roghnaithe ar an mbarra Bileog Cluaisín, agus roghnaigh Bog nó Cóipeáil ón roghchlár comhthéacs. Féach an pictiúr:
cóipeáil doc bileoga iolracha 01

3. Sa an Bog nó Cóipeáil bosca dialóige, sonraigh na socruithe seo a leanas le do thoil:
(1) Sonraigh le do thoil an leabhar oibre ceann scríbe a ndéanfaidh tú bileoga oibre a chóipeáil uaidh ón A chur in áirithe liosta anuas. Is féidir leat an leabhar oibre gníomhach, leabhar oibre oscailte eile, nó leabhar oibre nua a roghnú de réir mar is gá duit.
(2) Sonraigh suíomh na mbileog cóipeáilte ar bharra na Bileog Cluaisín, is féidir leat a roghnú i ndiaidh na mbileog uile atá ann.
(3) Seiceáil Cruthaigh cóip rogha, mura seiceálann tú an rogha seo, bogfar na bileoga oibre roghnaithe isteach sa leabhar oibre cinn scríbe.
(4) Cliceáil ar an OK cnaipe.

Anois ní dhéanfaidh sé ach cóip amháin de na bileoga oibre roghnaithe isteach sa leabhar oibre sonraithe. Chun iliomad cóipeanna de na bileoga oibre seo a dhéanamh, is féidir leat an oibríocht a athdhéanamh arís agus arís eile.

Níl ach cúpla cad a tharlaíonn chun iliomad cóipeanna de bhileoga oibre iolracha a dhéanamh sa leabhar oibre gníomhach

Go ginearálta, is féidir linn iliomad bileoga oibre a chóipeáil leis an Bog nó Cóipeáil gné in Excel. Mar sin féin, ní féidir leis an ngné seo ach cóip amháin a dhéanamh ag an am. Seo, le Kutools le haghaidh Excel's Cóipeáil Bileoga Oibre áirgiúlacht, is féidir leat an oiread cóipeanna de go leor bileoga oibre agus a theastaíonn uait sa leabhar oibre gníomhach a dhéanamh trí roinnt cliceáil amháin.


cóipeáil ad iliomad bileoga oibre 01

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

Déan cóipeanna iolracha de bhileog oibre shonraithe amháin i leabhar oibre gníomhach le cód VBA

Más mian leat 10 gcóip de bhileog oibre shonraithe a dhéanamh, beidh an Bog nó Cóipeáil beidh an t-ordú ar bhealach Tógann am, agus caithfidh tú an oibríocht a dhéanamh arís agus arís eile. Ach leis an gcód VBA seo a leanas, is féidir leat an bhileog oibre a chóipeáil go tapa 10 n-uaire ag an am céanna.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

VBA: Déan iliomad cóipeanna de bhileoga oibre áirithe i leabhar oibre gníomhach

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

nótaí: Sa chód thuas, cuir "Sheet1"le hainm na bileoige le cóipeáil.

3. Ansin brúigh F5 eochair chun an cód a rith, is cosúil go n-iarrann bosca pras líon na gcóipeanna bileoige atá uait.

4. Ansin cliceáil OK, cóipeáladh an bhileog oibre shonraithe 100 uair sa leabhar oibre gníomhach.


Déan cóipeanna iomadúla de bhileoga oibre iolracha i leabhar oibre gníomhach le Kutools for Excel

Cé go bhfuil sé simplí cóip de iliomad bileoga oibre a dhéanamh in Excel, más mian leat cóipeanna iolracha de bhileoga oibre iolracha a dhéanamh sa leabhar oibre reatha, b’fhéidir go mbeidh ort an Bog nó Cóipeáil mír ordaithe arís agus arís eile. Ar mhaith leat an rud a dhéanamh i gcliceáil amháin? Leis an Cóipeáil Bileoga Oibre fóntais an bhreiseáin tríú páirtí Kutools le haghaidh Excel, tá tú in ann cóipeanna iolracha de bhileoga oibre iolracha a dhéanamh i gcliceáil amháin in Excel.

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

1. Cliceáil Kutools Plus > Cóipeáil Bileoga Oibre. Féach an pictiúr:

nótaí: Cliceáil Kutools Plus > Bileog Oibre > Cóipeáil Bileoga Oibre gheobhaidh an ghné seo freisin.

2. Cuir socruithe i bhfeidhm sa Cóipeáil Bileoga Oibre Il bosca dialóige:
(1) Seiceáil na bileoga oibre ar mhaith leat go ndéanfaí iad a chóipeáil Cóipeáil na bileoga oibre roghnaithe alt seo.
(2) Sonraigh Líon na gcóipeanna.
(3) Socraigh suíomh na mbileog cóipeáilte, mar shampla, roimh gach bileog oibre nó dá éis, roimh an mbileog oibre reatha nó dá éis.
(4) Cliceáil ar an Ok cnaipe.

3. Tagann bosca pras amach le cur i gcuimhne duit gur cóipeáladh na bileoga oibre seiceáilte arís agus arís eile de réir mar is gá duit, cliceáil le do thoil OK cnaipe chun é a fhágáil. Féach an pictiúr:

seo Cóipeáil Bileoga Oibre Il gné de Kutools le haghaidh Excel déanfaidh sé cóipeanna iolracha de bhileoga oibre iolracha sonraithe sa leabhar oibre gníomhach le roinnt cliceáil amháin. Bíodh Triail In Aisce agat!


Déan cóip amháin de bhileoga oibre iolracha ó iliomad leabhar oibre go ceann nua

Má tá Kutools for Excel suiteáilte agat, is féidir leat a chuid a chur i bhfeidhm freisin Comhcheangail Bileoga Oibre gné chun cóip amháin de bhileoga oibre iolracha a dhéanamh ó iliomad leabhar oibre dúnta go leabhar oibre nua le roinnt cad a tharlaíonn ach in Excel.

Kutools le haghaidh Excel - Áirítear níos mó ná 300 uirlisí handy do Excel. Gné iomlán triail saor in aisce 30-lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

1. Cliceáil Kutools Plus > Chomhcheangail chun an ghné Comhcheangail Bileoga Oibre a ghníomhachtú.

2. Sna Bileoga Oibre Comhcheangailte - draoi Céim 1 de 3, féach le do thoil ar an Comhcheangail iliomad bileoga oibre ó leabhair oibre i mbileog oibre amháin rogha, agus cliceáil ar an Ar Aghaidh cnaipe. Féach an pictiúr:

3. Sna Bileoga Oibre Comhcheangailte - draoi Céim 2 de 3, déan mar a leanas an pictiúr a thaispeántar:
(1) Cliceáil Cuir > Comhad or Fillteán chun leabhair oibre a chur leis, cóipeálfaidh tú bileoga oibre.
(2) Sa Liosta leabhar oibre alt, seiceáil an leabhar oibre a gcóipeálfaidh tú a bhileoga oibre;
(3) Sa Liosta bileog oibre alt, seiceáil na bileoga oibre a chóipeálfaidh tú;
(4) Déan arís thuas (2) agus (3) chun bileoga oibre a roghnú as leabhair oibre eile a chóipeálfaidh tú.
(5) Cliceáil ar an Ar Aghaidh cnaipe.

4. Sna Bileoga Oibre Comhcheangail - draoi Céim 3 de 3, cumraigh na socruithe cóipeála de réir mar is gá duit, agus cliceáil ar an Críochnaigh cnaipe.

5. Anois sa dialóg nua, sonraigh fillteán ceann scríbe le do thoil chun an leabhar oibre nua a shábháil, ainmnigh an leabhar oibre nua sa Ainm comhaid bosca, agus cliceáil ar an Sábháil cnaipe. Féach an pictiúr:

Anois tiocfaidh dhá bhosca dialóige eile amach agus iarrfaidh tú ort an leabhar oibre nua a oscailt agus an cás teaglaim a shábháil, cliceáil cnaipí de réir mar is gá duit. Go dtí seo, rinne sé gach bileog oibre sonraithe a chóipeáil ó iliomad leabhar oibre ag an am.

Leis seo Comhcheangail (Bileoga Oibre) fóntais, is féidir leat bileoga oibre agus leabhair oibre a chóipeáil agus a chur le chéile go héasca mar a thaispeántar ar an liosta seo a leanas. Bíodh Triail In Aisce agat!
(1) Comhcheangail go tapa bileoga oibre / raonta éagsúla ó leabhair oibre go bileog oibre amháin;
(2) Déan gach bileog oibre den ainm céanna a chumasc / a chomhcheangal go tapa i mbileog oibre amháin;
(3) Bileoga oibre nó leabhair oibre a chumasc / a chomhcheangal go tapa in aon leabhar oibre amháin;
(4) Déan sonraí ó iliomad bileoga oibre a achoimriú / a ríomh go tapa i mbileog oibre amháin.


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 (25)
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ú
Ag baint úsáide as an gcód VBA, tá ainmniú na mbileog oibre dúblach in ord droim ar ais. Ligean le rá go ndéanfaidh mé 10 gcóip de Bhileog 1, agus beidh mé ag críochnú le Bileog 1, Bileog 1(10), Bileog 1(9), Bileog 1(8),.......an féidir iad a bheith sa ghnáth-ord?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhain mé triail as an gcód VBA agus fuair mé foscríbhinn as earráid raon (9). Chuir mé ainm na bileoige in ionad aon rud a d'fhéadfainn smaoineamh air a bhí sa leabhar oibre cheana féin. Aon smaoineamh cad a rinne mé mícheart? Chomh maith leis sin, an bhfuil bealach ann chun gach bileog a ainmniú go hincriminteach? Cheangail sé seo le ceist Mhichíl, táim cinnte. Tá mé ag buille faoi thuairim gurb é an freagra a bheadh ​​ar a cheist ná gur ghá duit an Tar éis an sprioc a shocrú go “bileog”+x ar bhealach éigin agus go mbainfeadh sé sin le mo cheist dá mbeadh bealach ann chun a shonrú cad ba cheart a ainmniú ar an mbileog nua. D'fhéadfainn "máistir" mo mháistir a athrú i gcónaí go "Lúnasa 0" nó cibé mí a bhí ann, ach bheadh ​​sé níos éasca di a thuiscint an ndearna an script an t-ainmniú go huathoibríoch.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, bhí an cód vba ollmhór
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Wow, go raibh maith agat as an gcód VBA. Cuidíonn sé go mór!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Ag baint úsáide as an gcód VBA, tá ainmniú na mbileog oibre dúblach in ord droim ar ais. Ligean le rá go ndéanfaidh mé 10 gcóip de Bhileog 1, agus beidh mé ag críochnú le Bileog 1, Bileog 1(10), Bileog 1(9), Bileog 1(8),.......an féidir iad a bheith sa ghnáth-ord?Le MichaelTadashi[/ceanglófar] An raibh aon duine in ann an cheist seo a fhreagairt? Caithfidh mé 72 cóip a chruthú, ach bheadh ​​sé riachtanach iad a chur in ord (1 trí 72, in ionad 72 go dtí 1) Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar][ceanglófar] Ag baint úsáide as an gcód VBA, tá ainmniú na mbileog oibre dúblach in ord droim ar ais. Ligean le rá go ndéanfaidh mé 10 gcóip de Bhileog 1, agus beidh mé ag críochnú le Bileog 1, Bileog 1(10), Bileog 1(9), Bileog 1(8),.......an féidir iad a bheith sa ghnáth-ord?Faoi juan[/ceanglófar] An raibh aon duine in ann an cheist seo a fhreagairt? Caithfidh mé 72 cóip a chruthú, ach bheadh ​​sé riachtanach iad a chur in ord (1 trí 72, in ionad 72 go dtí 1) Go raibh maith agat!Le MichaelTadashi[/ceanglófar]e] Más mian leat na cóipeanna leatháin a bheith in ord seicheamhach seachas ar gcúl, athraigh an líne seo a leanas... Tar éis:=Leabhar Oibre Gníomhach.Sheets("Bileog1") chuige seo... Tar éis:=Leabhar Oibre Gníomhach.Sheets(Bileoga Oibre.Count) Bhí cuma mar a leanas ar mo chód críochnaithe a úsáideann 2 leid InputBox chun comhaireamh cóip dinimiciúil agus ainm bileog oibre a cheadú. Fo-chóipeálaí() Dims Mar Teaghrán Dim uimhriúla Mar Slánuimhir Uimhreacha DimCóipeanna Mar Shlánuimhir numCopies = InputBox("Cé mhéad cóip atá uait?") s = InputBox("Cuir isteach ainm na mBileog Oibre is mian leat a chóipeáil") Le haghaidh uimhriú = 1 Le numCóipeanna Leabhar Oibre Gníomhach.Bileoga(í).Cóip _ Tar éis:=Leabhar Oibre Gníomhach.Bileoga(Bileoga Oibre.Comhaireamh) Fo-Cheann Eile
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom na cóipeanna a uimhriú go leanúnach. Más é I002 an t-ainm ar an mbileog ba mhaith liom a chóipeáil, agus ba mhaith liom go n-ainmneofar an chéad cheann eile I003, I004, I005 agus mar sin de.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cuardaigh le haghaidh focal "Tar éis" agus é a athrú go "Roimh". Cruthóidh sé seo cóipeanna san ord ceart "Roimh" Bileog 1. Is é an t-aon rud le cuimhneamh ná go dtosóidh an t-uimhriú i gcónaí ó (2) mar go n-áireofar an bhunbhileog mar an chéad chóip i gcónaí. Chomh maith leis sin is féidir leat ainm an chluaisín a bhfuil tú ag iarraidh a chóipeáil a chur in ionad "Sheet1".
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sea oibríonn sé go raibh maith agat D'éirigh liom cóipeanna iolracha de bhileog oibre amháin a dhéanamh sa leabhar oibre céanna trí úsáid a bhaint as cód vba thnx go leor.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas a chóipeáil leis an leithid colún céanna
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Leithead na gcolún céanna leis an mBileog Oibre bhunaidh nó an bhfuil tú ag iarraidh go mbeadh leithid de cholún mar an gcéanna?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fuair ​​​​mé an earráid chéanna le Theou agus is cosúil nach ndeachaigh aon duine i ngleic leis. Tá mo chuid cluaisíní ainmnithe cheana féin PO 51, PO 52, etc. agus chuir mé PO 1 in ionad Sheet51 chun é sin a chóipeáil agus fuair an earráid síntiús as raon (9) Lean mé cód Schuyler chun an t-ordú ceart a fháil, ach faighim an earráid fós agus is mar gheall ar an dá líne seo i gcónaí: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Bileoga Oibre.Count)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Fuair ​​​​mé an earráid chéanna le Theou agus is cosúil nach ndeachaigh aon duine i ngleic leis. Tá mo chuid cluaisíní ainmnithe cheana féin PO 51, PO 52, etc. agus chuir mé PO 1 in ionad Sheet51 chun é sin a chóipeáil agus fuair an earráid síntiús as raon (9) Lean mé cód Schuyler chun an t-ordú ceart a fháil, ach faighim an earráid fós agus is mar gheall ar an dá líne seo i gcónaí: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Bileoga Oibre.Count)Le Debbi[/ceanglófar] An féidir leat do chód iomlán a chur san áireamh chun é a dhéanamh níos fusa dífhabhtú? Ciallaíonn "earráid síntiús as an raon" de ghnáth go ndéanann an cód tagairt do rud éigin nach bhfuil ann. Faighim é seo i mo chód féin nuair a bhíonn clóscríobh nó rud éigin den chineál sin agam.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Faighim earráid nach sainmhínítear 'numtimes'...?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
áit a gcuirfidh mé an cód seo thuas isteach i vba should I create common button then inside ?? maidir le.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Lean na céimeanna thíos:
1. Cóipeáil an cód thuas
2. Coinnigh síos na heochracha ALT + F11, agus osclaíonn sé an fhuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúl, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.
4.Then brúigh eochair F5 chun an cód a rith
5. Is cosúil go n-iarrann bosca pras líon na gcóipeanna bileog atá uait.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a bhain mé triail as ar dtús, fuair mé an teachtaireacht earráide toisc nár athraigh mé an t-ainm Sheet1. Tar éis dom a thuiscint cad ba chúis leis an earráid, rinne mé taighde beag eile, mar ní raibh mé ag iarraidh a bheith ag iontráil ainm na leatháin isteach sa macra de láimh. Agus nuair is gá dom an ghné seo, tá sé beagnach i gcónaí don bhileog reatha. Chuir mé an líne a = activesheet.name agus d'athbhreithnigh mé an líne tar éis:=activeworkbook.sheets("sheet1") le activeworkbook.sheets(a).copy _ D'oibrigh sé sin go han-mhaith, ach thug mé faoi deara gur aisiompaíodh an t-uimhriú ... níor chuir sé sin isteach orm mar bhí mé chun na bileoga nua a athainmniú de láimh ar aon nós. Nuair a chonaic mé post Schuyler, rinne mé athbhreithniú breise ar an líne activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) Táim sásta anois leis an toradh. Mo mhacra críochnaithe: Fo-chóipeanna() Dim x Mar Shlánuimhir x = InputBox("Cuir isteach líon na n-amanna chun Bileog 1 a chóipeáil") Le haghaidh numtimes = 1 Go x ActiveWorkbook.Sheets("Bileog1").Cóip _ Tar éis:=ActiveWorkbook.Sheets( Bileoga Oibre.Count) An Chéad Deireadh Fo --- Go n-éirí leat, a Bharraigh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat Barry. Is é do mhacra críochnaithe an t-aon rud a d'oibrigh domsa.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
fuair mé earráid chomhréire ar "After:=ActiveWorkbook.Sheets(Worksheets.Count)


ach níl a fhios agam cad atá mícheart ... An féidir leat cabhrú liom le do thoil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cód VBA Iontach - chabhraigh sé go mór
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá mé nua leis seo Nílim ach ag iarraidh cóipeanna a dhéanamh den leathán céanna seo é an cód atá in úsáid agam. Fo-chóipeálaí() Dims Mar Teaghrán Dim uimhriúla Mar Slánuimhir Uimhreacha DimCóipeanna Mar Shlánuimhir numCopies = InputBox("Cé mhéad cóip atá uait?") s = InputBox("Cuir isteach ainm na mBileog Oibre is mian leat a chóipeáil") Le haghaidh uimhriú = 1 Chun numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Fo Deiridh nuair a bhainim úsáid as an gcód tugann sé an earráid "Earráid Chomhréire" dom ansin casann an téacs seo dearg ActiveWorkbook.Sheets (s).Cóip _ Tar éis:=Leabhar Oibre Gníomhach.Sheets(Worksheets.Cou nt) agus casann an téacs buí Fo-Chóipeálaí() cad is féidir liom a dhéanamh chun é a dheisiú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Tá mé nua leis seo Nílim ach ag iarraidh cóipeanna a dhéanamh den leathán céanna seo é an cód atá in úsáid agam. Fo-chóipeálaí() Dims Mar Teaghrán Dim uimhriúla Mar Slánuimhir Uimhreacha DimCóipeanna Mar Shlánuimhir numCopies = InputBox("Cé mhéad cóip atá uait?") s = InputBox("Cuir isteach ainm na mBileog Oibre is mian leat a chóipeáil") Le haghaidh uimhriú = 1 Chun numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Fo Deiridh nuair a bhainim úsáid as an gcód tugann sé an earráid "Earráid Chomhréire" dom ansin casann an téacs seo dearg ActiveWorkbook.Sheets (s).Cóip _ Tar éis:=Leabhar Oibre Gníomhach.Sheets(Worksheets.Cou nt) agus casann an téacs buí Fo-Chóipeálaí() cad is féidir liom a dhéanamh chun é a dheisiú.Le Tyler Dempsey[/ceanglófar] Seiceáil do chód faoi dhó agus cinntigh nach bhfuil spás agat ag ActiveWorkbook. Bileoga(cha). Cóip _ nó ag Bileoga (Bileoga Oibre.Leamh)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Tá mé nua leis seo Nílim ach ag iarraidh cóipeanna a dhéanamh den leathán céanna seo é an cód atá in úsáid agam. Fo-chóipeálaí() Dims Mar Teaghrán Dim uimhriúla Mar Slánuimhir Uimhreacha DimCóipeanna Mar Shlánuimhir numCopies = InputBox("Cé mhéad cóip atá uait?") s = InputBox("Cuir isteach ainm na mBileog Oibre is mian leat a chóipeáil") Le haghaidh uimhriú = 1 Chun numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Fo Deiridh nuair a bhainim úsáid as an gcód tugann sé an earráid "Earráid Chomhréire" dom ansin casann an téacs seo dearg ActiveWorkbook.Sheets (s).Cóip _ Tar éis:=Leabhar Oibre Gníomhach.Sheets(Worksheets.Cou nt) agus casann an téacs buí Fo-Chóipeálaí() cad is féidir liom a dhéanamh chun é a dheisiú.Le Tyler Dempsey[/quote] Seo é an cód cruinn ba mhaith leat a úsáid: Fo-Chóipeálaí() Dim s Mar Teaghrán Uimhreacha Tomhais Mar Slánuimhir Dim numCopies Mar Slánuimhir numCopies = InputBox("Cé mhéad cóip atá uait?") s = InputBox("Iontráil ainm na bileoige oibre is mian leat a chóipeáil") Le haghaidh uimhreacha = 1 Le huimhreachaCóipeanna ActiveWorkbook.Sheets(s).Cóip _ Tar éis:=Leabhar Oibre Gníomhach.Bileoga(Bileoga Oibre.Count) Fo-Deireadh Eile
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, shábháil an ceann deireanach mo shaol :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cód oibre

Fochóipeálaí()
Dim s Mar Teaghrán
Uimh numtimes Mar Slánuimhir
Uimh numCóipeanna Mar Slánuimhir
numCopies = InputBox("Cé mhéad cóip atá uait?")
s = InputBox("Cuir isteach ainm na bileoige oibre is mian leat a chóipeáil")
Le haghaidh uimhriú = 1 Go numCóipeanna
ActiveWorkbook.Sheets(s).Copy After:=Leabhar Oibre Gníomhach.Bileoga(Bileoga Oibre.Count)
Ar Aghaidh
Fo Deireadh

cóipeáil an líne iomlán ó ActiveWorkbook.Sheets ...... sin an fhadhb, agus roinnt spásanna

Lá iontach a bheith agat
Níl aon tráchtanna curtha suas anseo go fóill
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