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

Sut i greu Botwm Gorchymyn i gopïo a gludo data yn Excel?

Gan dybio bod angen i chi gopïo ystod o gelloedd i le arall yn aml ar ôl newid y data, bydd y dull copïo a gludo â llaw yn ffyslyd ac yn cymryd amser. Sut i wneud i'r berthynas gopïo a gludo hon redeg yn awtomatig? Bydd yr erthygl hon yn dangos i chi sut i ddefnyddio botwm gorchymyn i gopïo a gludo data gyda dim ond un clic.

Creu Botwm Gorchymyn i gopïo a gludo data gyda chod VBA


Creu Botwm Gorchymyn i gopïo a gludo data gyda chod VBA

Gwnewch fel a ganlyn i gopïo a gludo data yn awtomatig wrth glicio Botwm Gorchymyn.

1. Mewnosodwch Botwm Gorchymyn trwy glicio Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli ActiveX). Gweler y screenshot:

2. Tynnwch Botwm Gorchymyn yn eich taflen waith a chliciwch arno ar y dde. Dewiswch Gweld y Cod o'r ddewislen cyd-destun.

3. Yn y popping up Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, disodli'r cod gwreiddiol yn ffenestr y Cod gyda chod VBA islaw.

Cod VBA: Defnyddiwch Botwm Gorchymyn i gopïo a gludo data yn Excel

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Nodyn: Yn y cod, CommandButton1 yw enw'ch Botwm Gorchymyn a fewnosodwyd. A1: C17 yw'r ystod y mae angen i chi ei chopïo, a J1: L17 yw'r amrediad cyrchfan i gludo data. Newidiwch nhw yn ôl yr angen.

4. Gwasgwch Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. A diffoddwch y Modd Dylunio o dan y tab Datblygwr.

5. Nawr cliciwch y Botwm Gorchymyn, bydd yr holl ddata yn ystod A1: C17 yn cael ei gopïo a'i gludo i ystod J1: L17 heb fformatio'r gell.


Erthyglau perthnasol:


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 (53)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi defnyddio'r swyddogaeth hon yn fy llyfr gwaith. Rwy'n defnyddio botymau x gweithredol i gopïo a gludo data o fewn yr un ddalen ar dudalennau lluosog. Fodd bynnag, mae yna ddalennau heb fotymau x gweithredol na macros sy'n cael data wedi'i gludo o'r meysydd priodol ar y ddalen nad ydw i eisiau. Help?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf gael y cod a fydd yn copïo ystod I4:L26 o Daflen 2 (o'r enw TransferSheet) (bydd y botwm ar y ddalen hon) i Daflen 1 (o'r enw JobsToDo) ar res C (llinell 1af sy'n wag gan y bydd data'n cael ei ychwanegu'n gyson os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut gallwch chi newid y cod i gludo'r canlyniadau i dudalen arall yn y llyfr gwaith? a sut ydych chi'n cael y mewnosod rhes cyn rhoi'r data newydd i mewn fel nad yw'n ei drosysgrifo
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jason,
Os ydych chi am gludo'r canlyniadau i daflenni gwaith arall yn y llyfr gwaith, rhowch gynnig ar y cod VBA isod.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xTaflen, xDWS Fel Taflen Waith
Dim xFNum Fel Cyfanrif
Dim xSRg Fel Ystod

Ar Ail-ddechrau Gwall Nesaf
Gosod xSRg = Application.InputBox ("Dewiswch gell i gludo'r amrediad:"", "Kutools for Excel", xTxt , , , , , 8)
Os yw xSRg Yn Ddim Yna Gadael Is

Application.ScreenUpdating = Anghywir
Ystod ("A1:C17"). Copi
xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=Anghywir, Trawsosod:=Anghywir
Application.ScreenUpdating = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut mae'r fformiwla i ni gopïo ffeiliau
yna ei gludo i'r ddalen nesaf. a gludwch yr un nesaf gwnewch le neu daliwch ati i fynd i lawr heb ddileu'r past blaenorol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Gall y cod VBA isod eich helpu i ddatrys y broblem. Rhowch gynnig arni. Diolch.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xTaflen, xDWS Fel Taflen Waith
Dim xFNum Fel Cyfanrif
Dim xSRg Fel Ystod

Ar Ail-ddechrau Gwall Nesaf
Gosod xSRg = Application.InputBox ("Dewiswch gell i gludo'r amrediad:"", "Kutools for Excel", xTxt , , , , , 8)
Os yw xSRg Yn Ddim Yna Gadael Is

Application.ScreenUpdating = Anghywir
Ystod ("A1:C17"). Copi
xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=Anghywir, Trawsosod:=Anghywir
Application.ScreenUpdating = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os hoffwn wneud ciw past?
I egluro ymhellach. Rwy'n clicio CommandButton1 yna mae'n copïo A1. Pan dwi wedi defnyddio past, y copi o A1 - Wedyn dwi isio copio A2 heb glicio botwm arall, er mwyn i mi allu gludo A2 ar unwaith, rhywle arall. Yna Pan fyddaf wedi defnyddio past, mae'r copi o A2 wedyn yn copïo A3. Os yw hynny'n bosibl? A all hyn hefyd weithio yn y cefndir wrth ddefnyddio taflen Excel arferol, a cheisiwch wneud y weithred hon lle rydw i'n copïo o Excel, ac yna gludwch raglen hollol wahanol fel porwr rhyngrwyd, rhaglen arall, gair, ffeil txt, ac ati ?

Roedd yr erthygl hon yn ddefnyddiol iawn beth bynnag, diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Magnus,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn ehangu'r cam hwn... Ar ôl gludo'r gwerthoedd gwirioneddol nid fformiwlâu... mae angen i mi gopïo'r gell newydd a gludo mewn rhaglen arall nad yw'n rhagori, a ddylai fod angen i mi glicio'r botwm copïo'r fformiwla o a cell benodol a heibio'r gwerth gwirioneddol mewn un arall, yna copïwch y gwerth newydd hwnnw i'r clipfwrdd windows i'r gorffennol mewn app arall. Gobeithio bod hyn yn gwneud synnwyr, a gwerthfawrogwch eich help i wybod sut i ychwanegu'r cod newydd... dwi'n gwybod beth rydw i eisiau iddo ei wneud, jyst ddim yn gyfarwydd â sut i'w godio...
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'r cod wedi'i ddiweddaru yn yr erthygl, rhowch gynnig arni. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A fyddai'n bosibl i'r botwm gorchymyn gludo'r ystod a ddewiswyd ar unwaith i ddalen benodol (yn y gell wag nesaf) yn hytrach na gorfod mewnbynnu bob tro yr hoffech gludo'r data?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Adam,
Gall y cod VBA isod eich helpu i ddatrys y broblem.
Mae angen i chi ddisodli'r "Taflen4" ac "A1:C17" yn y cod gyda'ch dalen a'ch amrediad penodedig.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xSWName Fel Llinyn
Dim xTaflen Fel Taflen Waith
Dim xPSsheet Fel Taflen Waith
Dim xIntR Fel Cyfanrif
xSWName = "Taflen 4"
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xSheet = ActiveSheet
Os yw xSheet.Name <> "Diffiniadau" Ac xSheet.Name <> " fx " A xSheet.Name <> "Angen" Yna
xSheet.Range("A1:C17").Copi
Gosod xPSheet = Taflenni Gwaith.Item(xSWName)
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=Anghywir, Trawsosod:=Anghywir
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
da iawn , mae angen i mi gopïo a gludo llawer o amser a yw'n bosibl gwneud dewis i gludo rhes o ddata i 3 rhes neu 5 rhes beth bynnag yr hoffwn ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennym ni all eich helpu gyda hynny
Lleihawyd y sylw hwn gan y safonwr ar y wefan
syr sut i gopïo amrediad y gell yn y daflen waith gyfredol a'i gludo i daflenni gwaith arall ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gall y cod VBA isod eich helpu i ddatrys y broblem.
Mae angen i chi ddisodli'r "Taflen4" ac "A1:C17" yn y cod gyda'ch dalen a'ch amrediad penodedig.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xSWName Fel Llinyn
Dim xTaflen Fel Taflen Waith
Dim xPSsheet Fel Taflen Waith
Dim xIntR Fel Cyfanrif
xSWName = "Taflen 4"
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xSheet = ActiveSheet
Os yw xSheet.Name <> "Diffiniadau" Ac xSheet.Name <> " fx " A xSheet.Name <> "Angen" Yna
xSheet.Range("A1:C17").Copi
Gosod xPSheet = Taflenni Gwaith.Item(xSWName)
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=Anghywir, Trawsosod:=Anghywir
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os ydw i eisiau Copïo hwn nid yn y llyfr gwaith cyfredol ond i mewn i lyfr gwaith arall (sydd dal heb ei agor) yn excel. Sut mae newid y cod VBA hwn yn unol â hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Robbert,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Diolch am roi sylwadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i qusrion Mae gen i ddalen 1 gyda cholofn dyddiad b3:b33 ac rydw i eisiau i hwnnw gael ei gopïo i daflen 2 B33:b63 ei destun ond dwi angen yr un fformat ar gyfer testun hy maint lliw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Awdur,

Mae'r erthygl a grybwyllwyd gennych uchod yn ddefnyddiol iawn i mi. Nid wyf yn cael eu defnyddio i ragori cod a gorchymyn. Dwi dal angen gwybod yn hytrach na'r erthygl hon. Rwy'n iawn gyda'r copi a'i bastio i'r ddalen nesaf. Ond dwi dal angen gwybod "sut i bastio ac ychwanegu i linell newydd yn y ddalen nesaf bob tro dwi'n pwyso'r botwm". Fel arall, bydd fy nata ar y ddalen nesaf yn cael ei ddisodli bob tro. Byddwn yn ddiolchgar iawn ac yn edrych ymlaen at weld eich ateb.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Kyaw Ye Min,
Sori am ateb mor hwyr. Dilynwch y camau a disodli'r cod gyda'r isod. Yn y cod, Taflen 4 yw'r daflen waith cyrchfan y byddwch yn copïo data iddi, a fyddech cystal â'i newid a'r ystod a gopïwyd A1:C17 yn ôl yr angen. Diolch am eich sylw.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xSWName Fel Llinyn
Dim xTaflen Fel Taflen Waith
Dim xPSsheet Fel Taflen Waith
Dim xIntR Fel Cyfanrif
xSWName = "Taflen 4"
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xSheet = ActiveSheet
Os yw xSheet.Name <> "Diffiniadau" Ac xSheet.Name <> " fx " A xSheet.Name <> "Angen" Yna
xSheet.Range("A1:C17").Copi
Gosod xPSheet = Taflenni Gwaith.Item(xSWName)
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=Anghywir, Trawsosod:=Anghywir
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, helpwch os gwelwch yn dda. Mae angen yr un peth â'r uchod arnaf ond mae angen i mi gludo beth bynnag yw'r gell weithredol i linell newydd (os yn bosibl uwchben cofnodion blaenorol) mewn taflen waith wahanol. Gwerthfawrogi unrhyw help gyda hyn yn fawr. Cofion Gorau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, helpwch fy achos, rwyf am gael botwm i gynhyrchu macro lle mae gennyf ragori ac allforio'r data lle yn y <""> i gair, diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gennyf na chefais eich pwynt. Byddai'n braf pe gallech egluro gyda mwy o fanylion yr hyn yr ydych yn ceisio ei wneud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n edrych am rywfaint o help ar y gall defnyddiwr glicio ar rif rhes ac yna taro'r botwm gorchymyn y bydd yn gwneud copi o'r rhes honno a'i fewnosod yn y rhes oddi tano.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae'n ddrwg gennym gall eich helpu gyda hynny eto. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
master bagaimana jika berbeda sheet a copy data yg diinginkan
contoh sheet1 data hanya kolom B & kolom D copi ke sheet2
diolch i chi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
anfonwch VBAcode i gopïo cynnwys cell sengl gan ddefnyddio botwm gorchymyn cliciwch heb ddefnyddio blwch testun fel y bydd yn gallu gludo mewn unrhyw raglen fel notepad, msword
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl gwneud botwm sy'n copïo un gell ddethol ar un ddalen i ddalen arall? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo lexi,
Gall y cod VBA isod eich helpu i ddatrys y broblem. Newidiwch "Taflen 3" i enw'r ddalen yn ôl yr angen.
Dewiswch gell a gwasgwch y botwm gorchymyn i wneud iddo weithio.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xSWName Fel Llinyn
Dim xTaflen Fel Taflen Waith
Dim xPSsheet Fel Taflen Waith
Dim xIntR Fel Cyfanrif
xSWName = "Taflen 3"
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xSheet = ActiveSheet
Os yw xSheet.Name <> "Diffiniadau" Ac xSheet.Name <> " fx " A xSheet.Name <> "Angen" Yna
Dewis.CurrentRegion.Select
Dewis.Copy
Gosod xPSheet = Taflenni Gwaith.Item(xSWName)
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=Anghywir, Trawsosod:=Anghywir
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo!
A oes ffordd i wneud cod fel y gallaf gael botwm i gopïo ystod (gadewch i ni ddweud A1:D5).
Ac yna ei gludo i A6:D10.

Ac os byddaf yn pwyso'r botwm unwaith eto bydd yn copïo A1: D5 i A11: D15.

Ac yn y blaen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jonas,
Mae'n ddrwg gennym ni all eich helpu am hynny. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych - dwi wedi addasu ar gyfer fy s.sheet ond dwi angen iddo fod yn fwy deinamig a defnyddio labeli yn hytrach na chod caled y lleoliadau celloedd.
Hy yn yr ystod A2-A6 darganfyddwch yr enw 'Jamie' ac yna darganfyddwch yr enw yng Ngholofn K2 a gludwch

Dwi hefyd angen pob clic i +1 a rhedeg yr un copi a gludo ond i'r golofn nesaf h.y

cliciwch 1 - pastio i C1, Cliciwch 2 - pastio i C2 ac ati

enghraifft:

Colofn A Colofn B ...... Colofn K Colofn L
1. Enw Oriau a weithiwyd Enw C1 C2 C3 C4
2. Jamie 22 Sammy
3. Sammy 40 Judith
4. Judith 18 Jamie
5. Tammy 16 Keith
6. Keith 42 Tammy


Byddem yn gwerthfawrogi'n fawr unrhyw help.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i godio ar gyfer copïo cell o ystod a1 i a5 i'w gludo i c1 ac i'r gell nesaf sydd ar gael yn olynol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a hefyd, copïo a gludo cell un ar y tro.
Diolch am eich help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bois. mae angen rhywfaint o help ar hyn, os gwelwch yn dda. Mae angen i mi greu botwm 10 * yn fy nhaflen waith (Taflen 1) a fydd yn copïo 3 cell, Enghraifft: Taflen 1, A1, B1, C1. yna gludwch hwnnw yn Nhaflen 2 A1, B1, C1. yna os ydw i'n clicio ar fotwm 4, enghraifft: Taflen 1, A4, B4, C4, mae angen i hyn orffen yn Nhaflen2, A2, B2, C2. Os byddaf yn clicio ar Fotwm 2 yna mae'n rhaid iddo basio yn Nhaflen 2, A3, B3, C3. Rwy'n gobeithio bod hyn yn gwneud synnwyr.
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