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

Sut i atal copi a gludo dros gell gyda'r gwymplen yn Excel?

Ar gyfer cell sydd â rhestr ostwng dilysu data, wrth gopïo cynnwys o gell arall a'i gludo iddi, bydd y gwymplen wedi diflannu a'i chynnwys pastio newydd. Mewn rhai achosion, rydych chi am atal copïo a gludo cynnwys arall dros y gell gyda'r gwymplen, beth fyddech chi'n ei wneud i ddelio ag ef? Yn yr erthygl hon, byddwch yn cael dull VBA o ddelio â'r broblem hon.

Atal copïo a gludo dros gell gyda gwymplen yn Excel


Atal copïo a gludo dros gell gyda gwymplen yn Excel

1. Agorwch y daflen waith gyda'r gwymplen rydych chi am atal copi a gludo.

2. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr.

3. Yn y Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr, cliciwch ddwywaith enw'r daflen waith gyfredol yn y cwarel chwith, yna copïwch a gludwch y cod VBA isod i mewn i olygydd y Cod. Gweler y screenshot:

Cod VBA: Atal copi a gludo dros gell gyda'r gwymplen

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
    Dim xValue As String
    Dim xCheck1 As String
    Dim xCheck2 As String
    Dim xRg As Range
    Dim xArrCheck1() As String
    Dim xArrCheck2() As String
    Dim xArrValue()
    Dim xCount, xJ As Integer
    Dim xBol As Boolean
'    If Target.Count > 1 Then
'        Exit Sub
'        End If
    xCount = Target.Count
    ReDim xArrCheck1(1 To xCount)
    ReDim xArrCheck2(1 To xCount)
    ReDim xArrValue(1 To xCount)
    Application.EnableEvents = False
    On Error Resume Next
    xJ = 1
    For Each xRg In Target
        xArrValue(xJ) = xRg.Value
         xArrCheck1(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    Application.Undo

    xJ = 1
    For Each xRg In Target
        xArrCheck2(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    xBol = False
    For xJ = 1 To xCount
        If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
            xBol = True
            Exit For
        End If
    Next

    If xBol Then
       MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
    Else
        xJ = 1
        For Each xRg In Target
            xRg.Value = xArrValue(xJ)
            xJ = xJ + 1
        Next

    End If

    Application.EnableEvents = True
End Sub

4. Gwasgwch Alt + Q allweddi i adael y Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr.

5. Pan fyddwch yn pastio cynnwys i gell gyda rhestr ostwng, bydd blwch deialog yn ymddangos i'ch atgoffa na chaniateir y pastio. Gweler y screenshot:

Nodyn: Mae'r VBA hwn yn gweithio mewn pastio un gell yn unig. Os ydych chi'n copïo a gludo mewn sawl cell, ni fydd yn gweithio.

Yn hawdd creu rhestr ostwng gyda blychau gwirio yn Excel:

Mae practis meddygol Rhestr ostwng gyda Blychau Gwirio cyfleustodau Kutools ar gyfer Excel yn gallu'ch helpu chi i greu rhestr ostwng yn hawdd gyda blychau gwirio mewn ystod benodol, taflen waith gyfredol, llyfr gwaith cyfredol neu'r holl lyfrau gwaith sydd wedi'u hagor yn seiliedig ar eich anghenion.
Lawrlwythwch y nodwedd lawn 30-diwrnod am ddim llwybr o Kutools ar gyfer Excel nawr!


Erthyglau cysylltiedig:

Sut i greu gwymplen gyda blychau gwirio lluosog yn Excel?
Mae llawer o ddefnyddwyr Excel yn tueddu i greu gwymplen gyda blychau gwirio lluosog er mwyn dewis nifer o eitemau o'r rhestr bob tro. Mewn gwirionedd, ni allwch greu rhestr gyda blychau gwirio lluosog gyda Dilysu Data. Yn y tiwtorial hwn, rydyn ni'n mynd i ddangos dau ddull i chi greu gwymplen gyda blychau gwirio lluosog yn Excel. Mae'r tiwtorial hwn yn darparu'r dull i ddatrys y broblem.

Creu rhestr ostwng o lyfr gwaith arall yn Excel
Mae'n eithaf hawdd creu gwymplen dilysu data ymhlith taflenni gwaith mewn llyfr gwaith. Ond os yw'r data rhestr sydd ei angen arnoch ar gyfer dilysu'r data yn lleoli mewn llyfr gwaith arall, beth fyddech chi'n ei wneud? Yn y tiwtorial hwn, byddwch yn dysgu sut i greu rhestr gollwng o lyfr gwaith arall yn Excel yn fanwl.

Creu rhestr ostwng y gellir ei chwilio yn Excel
Ar gyfer rhestr ostwng sydd â nifer o werthoedd, nid yw dod o hyd i un iawn yn waith hawdd. Yn flaenorol rydym wedi cyflwyno dull o gwblhau rhestr ostwng yn awtomatig wrth nodi'r llythyr cyntaf yn y gwymplen. Heblaw am y swyddogaeth awtocomplete, gallwch hefyd wneud y rhestr ostwng yn chwiliadwy am wella'r effeithlonrwydd gweithio wrth ddod o hyd i werthoedd cywir yn y gwymplen. Ar gyfer chwilio rhestr ostwng, rhowch gynnig ar y dull yn y tiwtorial hwn.

Auto poblogi celloedd eraill wrth ddewis gwerthoedd yn rhestr ostwng Excel
Gadewch i ni ddweud eich bod wedi creu rhestr ostwng yn seiliedig ar y gwerthoedd yn ystod celloedd B8: B14. Pan ddewiswch unrhyw werth yn y gwymplen, rydych chi am i'r gwerthoedd cyfatebol yn ystod celloedd C8: C14 gael eu poblogi'n awtomatig mewn cell ddethol. Ar gyfer datrys y broblem, bydd y dulliau yn y tiwtorial hwn yn ffafrio chi.

Mwy o sesiynau tiwtorial ar gyfer y gwymplen ...


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 (12)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio ond pan fyddaf yn gludo gwerth mae hyn yn caniatáu data nad yw o'r gwymplen. Unrhyw ffordd i gyfyngu ar unrhyw werth nad yw o'r rhestr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Dilip, A oeddech chi'n gallu datrys y mater, roedd gen i broblem debyg hefyd. Mae'n rhaid i mi ganiatáu copi, pastio dim ond ar gyfer gwerthoedd cwymplen yn y gell dilysu data arall y mae'n rhaid i mi ei chyfyngu. Allwch chi rannu'ch datrysiad. Diolch Rao
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Er fy mod yn rhedeg y macro hwn cefais y gwall dadfygio hwn "Application.Undo". Mae Pls yn datrys hyn cyn gynted â phosibl
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, uchod nid yw cod vba sôn am run.kindly datrys.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-ddalen Waith Breifat_Newid(ByVal Targed Fel Ystod) Dim xGwerth Fel Llinyn Dim xCheck1 Fel Llinyn Dim xCheck2 Fel Llinyn Os Targed.Cyfrif > 1 Yna Gadael Is-Ddiwedd Os Cais.EnableEvents = Gau xValue = Targed.Gwerth Ar Gwall Ail-ddechrau Nesaf xCheck1 = Targed. Validation.InCellDropdown Ar Gwall GoTo 0 Application.Undo On Error Resume Next xCheck2=Targed.Validation.InCellDropdown Ar Gwall GoTo 0 If xCheck1=xCheck2 Yna Target=xValue Else MsgBox "Ni chaniateir pastio!" Diwedd Os Application.EnableEvents = Diwedd Gwir Is Nid yw'r Macro hwn yn gweithio wrth gopïo o lyfr gwaith neu daflen waith wahanol bryd hynny felly dywedwch wrthyf sut i osgoi'r pethau hyn hefyd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn !! gweithio'n iawn i mi !!! cyfyngir ar gopïo i mewn i un gell. ond os ydw i'n copïo rhestr o gelloedd a gludo .., derbynnir y past. gadewch i mi weld os gallaf diwnio hyn i fyny .. diolch beth bynnag
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Jepson, a wnaethoch chi lwyddo i ddatrys y mater o gopïo a gludo i gelloedd lluosog? Diolch ymlaen llaw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Dilip, a allwch chi drwsio'r mater o ganiatáu data gan ddefnyddio gwerthoedd pastio... rydw i hefyd yn wynebu'r un mater...helpwch fi ar hyn os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Dilip, a allwch chi ddatrys y mater o ganiatáu data gan ddefnyddio gwerthoedd past
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a wnaethoch chi lwyddo i ddatrys y mater o gopïo a gludo i gelloedd lluosog? Diolch ymlaen llaw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Na, ni wnes i ei chyfrifo. Wnes i ddim ceisio datrys ar ôl ychydig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n gweithio OND ar ôl i chi roi'r cod ni allwch DDATGELU unrhyw beth. Ni chaniateir un cam yn ôl.
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