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

Conas feidhmeanna gearrtha, cóipeála agus greamaigh in Excel a dhíchumasú?

Má tá leabhar oibre agat le sonraí tábhachtacha is gá duit a chosaint ó bheith gearrtha, cóipeáilte agus greamaithe. Conas é a bhaint amach? Soláthraíonn an t-alt seo modh VBA duit na feidhmeanna gearrtha, cóipeála agus greamaigh a dhíchumasú ag an am céanna i leabhar oibre Excel.

Díchumasaigh feidhmeanna gearrtha, cóipeála agus greamaigh le cód VBA


Díchumasaigh feidhmeanna gearrtha, cóipeála agus greamaigh le cód VBA

Déan mar a leanas le do thoil chun na feidhmeanna gearrtha, cóipeála agus greamaigh a dhíchumasú i leabhar oibre Excel.

1. Sa leabhar oibre ní mór duit na feidhmeanna gearrtha, cóipeála agus greamaigh a dhíchumasú, brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil faoi dhó le do thoil An Leabhar Oibre seo ar chlé tionscadal pána, agus ansin cóipeáil agus greamaigh an cód VBA thíos sa An Leabhar Oibre seo (Cód) fuinneog. Féach an pictiúr:

Cód VBA: Díchumasaigh na feidhmeanna gearrtha, cóipeála agus greamaigh ag an am céanna in Excel

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. Ansin brúigh an Eile + Q eochracha chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Anois ní féidir leat sonraí a ghearradh nó a chóipeáil ón leabhar oibre seo, idir an dá linn, ní féidir sonraí a chóipeáil tú ó bhileoga nó leabhair oibre eile a ghreamú isteach sa leabhar oibre seo.

nótaí: Tá an fheidhm tarraing agus titim díchumasaithe freisin tar éis an cód VBA thuas a rith.


Earraí gaolmhara:


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 (50)
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ú
Déanaim mar atá thuas ach díchumasaítear feidhm na cóipe gearrtha agus an fheidhm atá caite in aon chomhad excel a osclaíonn mé .cén fáth?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, d'úsáid mé é seo chun "Gearr" a cheilt ó úsáideoirí agus oibríonn sé go hiontach mura bhfuil Tábla agat, is cosúil go míorúilteach an "Gearr" nuair a roghnaíonn tú cill sa Tábla, go díreach cad atá mé ag iarraidh a sheachaint. aon smaointe? go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat u Sir a chuid oibre. Ach sa leabhar saothair Iomlán. Mura bhfuil an Cód seo ag teastáil uaim ach bileog áirithe. An bhfuil sé Féideartha ??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an bhfuil freagra aimsithe agat?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat.Tá sé ag obair sa leabhar saothair iomlán. An féidir linn an códú a dhéanamh ach le haghaidh 1 bhileog. Cuidigh le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas an fheidhm gearrtha, cóipeála agus greamaigh ar ais a chumasú? Le do thoil comhairle!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Spéir a chara
Rith an VBA1 thíos le do thoil (cuir an cód sa mhodúl ThisWorkbook) chun an fheidhm gearrtha, cóipeála agus greamaigh i do leabhar oibre a dhíchumasú.

VBA1:
Fo-Chóip()
Le Feidhmchlár
.OnKey "^x", ""
.OnKey "^c", ""
.CommandBars("Cill").Rialuithe(1).Cumasaithe = Bréagach
.CommandBars("Cill").Rialuithe(2).Cumasaithe = Bréagach
Deireadh Le
Fo Deireadh

Agus rith an VBA2 chun na feidhmeanna seo go léir a chumasú ar ais chuig do leabhar oibre.

VBA2:
Fo-aisghabháilCóip()
Le Feidhmchlár
.OnKey "^x"
.OnKey "^c"
.CommandBars("Cill").Rialuithe(1).Cumasaithe = Fíor
.CommandBars("Cill").Rialuithe(2).Cumasaithe = Fíor
Deireadh Le
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní cosúil gur oibrigh sé seo domsa - ar cheart dom an bunchód VBA a scriosadh agus ansin an méid thuas a ghreamú isteach chun an fheidhm Gearr, cóipeála agus greamaigh a chumasú arís?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Is é an trácht VBA1in thuas athsholáthar an chóid bhunaidh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A chara,

Ba mhaith liom gearrtha, cóipeáil, greamaigh i mbileog excel 2007 a dhíchumasú
an féidir leat cód a roinnt chuige seo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Go raibh maith agat as do thuairim. Tá mé ag iarraidh a dhéanamh amach an réiteach le haghaidh Excel 2007. Fan go foighneach le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
An féidir "CUT" a dhíchumasú amháin? ach d’fhéadfainn an Cóipeáil agus an Greamaigh a úsáid fós?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Carmelo,
Cóipeáil agus greamaigh an cód thíos isteach i bhfuinneog an chóid Leabhar Oibre i do leabhar oibre agus ansin é a shábháil mar leabhar oibre Excel Macra-chumasaithe. Ansin díchumasófar an fheidhm "Gearr".

Rogha Sonraithe
Le Imeachtaí Príobháideacha Cmbrs Mar Bharra Ordú

Foleabhar Oibre Príobháideach_Oscail()
Socraigh Cmbrs = Application.CommandBars
Fo Deireadh

Fo-Leabhar Príobháideach_Activate ()
If Application.CutCopyMode = 2 Ansin
Application.CutCopyMode = 0
Deireadh Má
Fo Deireadh

Fo-Cmbrs_OnUpdate Príobháideach()
Más Leabhar Oibre Gníomhach Mé Ansin
If Application.CutCopyMode = 2 Ansin
Application.CutCopyMode = 0
msgstr "Gearr Oibríochtaí díchumasaithe"
Deireadh Má
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rinne mé iarracht díreach mar a dúirt tú ach ní tharlaíonn aon rud. A Ba mhaith díreach mar an gcéanna, Níl ach an
Díchumasaíodh an fheidhm "Gearr". Ní mór dom an rogha "gearrtha" a dhíchumasú ó rogha cnaipe Rightclick agus ón mbarra uirlisí.
Tá sé criostail féideartha ??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Oibríonn an cód go maith i mo chás. An féidir liom do leagan Oifige a bheith ar eolas agam?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi

Is tosaitheoir mé cóid VBA agus réitigh an cód seo 99% de na fadhbanna a bhí agam.

An féidir an leathán poll a ghlasáil (mar an dáileog cód seo) ach fós tá cill amháin díghlasáilte?
(Soiléiriú, ba mhaith liom cóip anuas a cheadú san eolas i gcill amháin sa bhileog poll).

Dea-mhéin
L
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Linda,
Is féidir leat an fhadhb a réiteach gan cód VBA a úsáid.
Cliceáil ar dheis ar an gcill agus roghnaigh Cealla Formáid ón roghchlár comhthéacs, díthiceáil an Bosca Glasáilte faoi Chosaint táb sa dialóg. Agus ansin an bhileog oibre a chosaint le pasfhocal.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí an-áthas orm an post seo a fháil ach tá beagán cabhrach ag teastáil uaim chun é seo a theorannú go dtí bileog oibre amháin i Leabhar Oibre il-bileog. Agus is gá fios a bheith agat conas é seo a dhéanamh gan idirghabháil úsáideora...tá an ASAP seo ag teastáil uainn ar leabhar oibre chun cabhrú le hearráidí a chosc.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Agus ná déan dearmad ainm do leatháin a chur in ionad "Sheet2" sa chód.

Poiblí mJWSName Mar Theaghrán

Foleabhar Oibre Príobháideach_Oscail()
mJWSName = "Bileog 2"
Fo Deireadh

Fo-Leabhar Príobháideach_Activate ()
Má tá ActiveSheet.Name = mJWSName Ansin
Application.CutCopyMode = Bréagach
Feidhmchlár.OnKey "^c", ""
Application.CellDragAndDrop = Bréagach
Deireadh Má
Fo Deireadh

Fo-Leabhar Príobháideach_Deactivate ()
Feidhmchlár.OnKey "^c", ""
Application.CellDragAndDrop = Fíor
Application.CutCopyMode = Bréagach
Fo Deireadh


Foleabhar Oibre Príobháideach_Fuinneog Gníomhachtaigh(ByVal Wn Mar Fhuinneog)
Má tá ActiveSheet.Name = mJWSName Ansin
Application.CutCopyMode = Bréagach
Feidhmchlár.OnKey "^c", ""
Application.CellDragAndDrop = Bréagach
Deireadh Má
Fo Deireadh

Foleabhar Oibre Príobháideach_WindowDeactivate(ByVal Wn As Fuinneog)
Feidhmchlár.OnKey "^c"
Application.CellDragAndDrop = Fíor
Application.CutCopyMode = Bréagach
Fo Deireadh

Foleabhar Oibre Príobháideach_BileogAthrú Roghnaithe(ByVal Sh Mar Réad, ByVal Target Mar Raon)
Ar Lean Earráid Aghaidh
Má tá Sh.Name = mJWSName Ansin
Application.CutCopyMode = Bréagach
Deireadh Má
Fo Deireadh

Foleabhar Oibre Príobháideach_Bileog Gníomhachtaigh(ByVal Sh As Object)
Ar Lean Earráid Aghaidh
Má tá Sh.Name = mJWSName Ansin
Feidhmchlár.OnKey "^c", ""
Application.CellDragAndDrop = Bréagach
Application.CutCopyMode = Bréagach
Deireadh Má
Fo Deireadh

Foleabhar Oibre Príobháideach_Bileog Díghníomhachtaigh(ByVal Sh Mar Réad)
Feidhmchlár.OnKey "^c"
Application.CellDragAndDrop = Fíor
Application.CutCopyMode = Bréagach
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ceist dheireanach amháin - Cá dtéann an cód seo agus conas a dhéantar é a fhorghníomhú? Leis an tionscadal a gcaithfidh sé seo oibriú leis, ceanglaítear comhad XLA den bhileog Excel ina bhfuil cuid mhór den chód. Ní fios an gá é seo a chur isteach i modúl nó sa chód ar chúl na bileoige seo. Go raibh maith agat...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as do threoir.Tá mé ag iarraidh in oifig 2013 , ach níor athraigh aon rud.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, oibríonn an cód go maith go raibh maith agat.
Mar sin féin, cumasaíodh an rogha inléite amháin. (mura bhfuil tú ag iarraidh a mhodhnú). Má shocraigh mé ..Comhad, ach amháin mar, uirlisí, roghanna ginearálta, moltar léamh amháin .. ansin ní oibríonn an cód.

Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn sé go maith i ndáiríre, go raibh míle maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat oibríonn sé go foirfe ... an féidir é a chur i bhfeidhm ar raon ach ar bhealach éigin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Ár leithscéal ní féidir leat cabhrú leis sin. Fáilte chuig aon cheist a phostáil inár bhfóram: https://www.extendoffice.com/forum.html. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat SIR
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, an-úsáideach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
gearrtha cóip ghreamú is infheidhme Leabhar saothair iomlán. Mura bhfuil an Cód seo ag teastáil uaim ach bileog áirithe. An bhfuil sé Féideartha ??
cabhrú le do thoil. ní mór dúinn ach leathán amháin feidhmeanna díchumasaithe. bileog eile táimid ag oibriú gach feidhm...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl an cód sin ag obair i mo excel 2016 le haghaidh bileog amháin in ionad an leabhair oibre iomlán
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ligeann sé seo fós pasting ó Notepad nó Microsoft Edge. Féach an bhfuil bealach ann chun greamú a chosc ó fhoinse ar bith.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Má choisceann ar ghreamú ó fhoinse ar bith, ní mór dúinn an ghné Notepad a chosc, rud a d'fhéadfadh míchaoithiúlacht a thabhairt. Ní mholaimid é seo. Ní féidir leis an leithscéal cabhrú leat le sin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'úsáid mé an cód seo & ba mhaith liom a Athchumasú arís? conas é a athchumasú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
bain úsáid as an gcód seo chun cóipeáil gearrtha & greamaigh a dhíchumasú



Fo-Leabhar Príobháideach_Activate ()

Application.CutCopyMode = Bréagach

Feidhmchlár.OnKey "^c", ""

Application.CellDragAndDrop = Bréagach

Fo Deireadh



Fo-Leabhar Príobháideach_Deactivate ()

Application.CellDragAndDrop = Fíor

Feidhmchlár.OnKey "^c"

Application.CutCopyMode = Bréagach

Fo Deireadh



Foleabhar Oibre Príobháideach_Fuinneog Gníomhachtaigh(ByVal Wn Mar Fhuinneog)

Application.CutCopyMode = Bréagach

Feidhmchlár.OnKey "^c", ""

Application.CellDragAndDrop = Bréagach

Fo Deireadh



Foleabhar Oibre Príobháideach_WindowDeactivate(ByVal Wn As Fuinneog)

Application.CellDragAndDrop = Fíor

Feidhmchlár.OnKey "^c"

Application.CutCopyMode = Bréagach

Fo Deireadh



Foleabhar Oibre Príobháideach_BileogAthrú Roghnaithe(ByVal Sh Mar Réad, ByVal Target Mar Raon)

Application.CutCopyMode = Bréagach

Fo Deireadh



Foleabhar Oibre Príobháideach_Bileog Gníomhachtaigh(ByVal Sh As Object)

Feidhmchlár.OnKey "^c", ""

Application.CellDragAndDrop = Bréagach

Application.CutCopyMode = Bréagach

Fo Deireadh



Foleabhar Oibre Príobháideach_Bileog Díghníomhachtaigh(ByVal Sh Mar Réad)

Application.CutCopyMode = Bréagach

Fo Deireadh





agus ba mhaith liom na feidhmeanna seo a chumasú arís
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn sé seo go hiontach, conas a dhéanfadh duine é seo a mhodhnú chun cóip / greamaigh a cheadú i gcolúin ar leith a bhfuil biachláir tarraingthe anuas ceangailte le raonta ainmnithe ionchur inghlactha agus gan ach an t-ionchur inghlactha. Mar shampla cheadódh ainm ar a bhfuil Jetson, George, 25, cóip/greamaigh de Jetson, George, 25 ach ní cheadódh sé Jeston, George, 26. Nó tarraing agus líonadh a mbeadh Jetson, George, 25 ansin 26 mar thoradh air. , ansin 27, etc.
I mo bhileog oibre ba mhaith liom gearrtha / cóipeáil / greamaigh a dhíchumasú go hiomlán i gcolúin áirithe, ansin gan ach cóip ghearrtha a cheadú de shonraí inghlactha ó anuas anuas.
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