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

Hogyan lehet megakadályozni az Excel legördülő listájával történő másolást és beillesztést a cellába?

Adatellenőrzéssel rendelkező legördülő lista esetén a cellák másolásakor és a beillesztéskor a legördülő lista eltűnik, és az új beillesztési tartalommal helyettesíthető. Bizonyos esetekben meg szeretné akadályozni, hogy más tartalmat másoljon és illesszen be a legördülő listával ellátott cellára. Mit tenne annak érdekében? Ebben a cikkben egy VBA módszert kap a probléma kezelésére.

Az Excel legördülő listájával megakadályozhatja a cellák másolását és beillesztését


Az Excel legördülő listájával megakadályozhatja a cellák másolását és beillesztését

1. Nyissa meg a munkalapot azzal a legördülő lista cellával, amely megakadályozza a másolást és beillesztést.

2. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic alkalmazások ablak.

3. Ban,-ben Microsoft Visual Basic alkalmazások ablakban kattintson duplán az aktuális munkalap nevére a bal oldali ablaktáblán, majd másolja és illessze be az alábbi VBA kódot a Code editorba. Lásd a képernyőképet:

VBA kód: A legördülő listával megakadályozhatja a másolást és beillesztést a cellára

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. nyomja meg más + Q gombokkal lépjen ki a Microsoft Visual Basic alkalmazások ablak.

5. Ha tartalmat illeszt be egy cellába egy legördülő listával, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy a beillesztés nem megengedett. Lásd a képernyőképet:

Megjegyzések: Ez a VBA csak egysejtű beillesztésben működik. Ha több cellába másol és beilleszt, nem fog működni.

Könnyen létrehozhat legördülő listát az Excel jelölőnégyzeteivel:

A Legördülő lista jelölőnégyzetekkel hasznossága Kutools az Excel számára segítségével könnyedén létrehozhat egy legördülő listát egy meghatározott tartományba tartozó jelölőnégyzetekkel, az aktuális munkalap, az aktuális munkafüzet vagy az összes megnyitott munkafüzettel az Ön igényei szerint.
Töltse le a teljes funkciót 30-napos ingyenes Kutools for Excel nyomvonal most!


Kapcsolódó cikkek:

Hogyan hozható létre legördülő lista több jelölőnégyzettel az Excelben?
Sok Excel felhasználó hajlamos többszörös jelölőnégyzetekkel rendelkező legördülő listát létrehozni annak érdekében, hogy egyszerre több elemet jelöljön ki a listából. Valójában nem hozhat létre több jelölőnégyzetet tartalmazó listát az adatellenőrzéssel. Ebben az oktatóanyagban két módszert mutatunk be az Excel több jelölőnégyzettel rendelkező legördülő lista létrehozására. Ez az oktatóanyag bemutatja a probléma megoldásának módszerét.

Hozzon létre legördülő listát az Excel másik munkafüzetéből
Nagyon egyszerű létrehozni egy adatellenőrzési legördülő listát a munkafüzetek munkalapjai között. De ha az adatellenőrzéshez szükséges listaadatokat egy másik munkafüzetben találja meg, mit tenne? Ebben az oktatóanyagban megtudhatja, hogyan hozhat létre részletesen egy legördülő listát az Excel másik munkafüzetéből.

Hozzon létre egy kereshető legördülő listát az Excelben
A sok értéket tartalmazó legördülő lista számára nem könnyű megtalálni a megfelelőt. Korábban bevezettük a legördülő lista automatikus kitöltésének módszerét, amikor az első betűt beírjuk a legördülő mezőbe. Az automatikus kiegészítés funkció mellett kereshetővé is teheti a legördülő listát a munka hatékonyságának növelése érdekében a megfelelő értékek megtalálásához a legördülő listában. A legördülő lista kereshetővé tételéhez próbálkozzon az oktatóanyag módszerével.

Automatikusan kitölti a többi cellát, amikor kiválasztja az értékeket az Excel legördülő listában
Tegyük fel, hogy létrehozott egy legördülő listát a B8: B14 cellatartomány értékei alapján. Bármelyik értéket választva a legördülő listából, azt szeretné, hogy a C8: C14 cellatartomány megfelelő értékei automatikusan feltöltődjenek egy kiválasztott cellában. A probléma megoldásához az oktatóanyagban szereplő módszerek kedveznek.

További útmutatók a legördülő listához ...


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (12)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez működik, de amikor értéket illesztek be, olyan adatokat engedélyez, amelyek nem szerepelnek a legördülő listában. Bármilyen mód a listában nem szereplő értékek korlátozására.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Dilip! Sikerült megoldani a problémát, nekem is hasonló problémám van. Csak az adatellenőrzési cellában lévő legördülő értékeknél kell engedélyeznem a másolást, beillesztést, másokat korlátoznom kell. Megosztanád a megoldást. Köszi Rao
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! A makró futtatása közben az „Application.Undo” hibakeresési hibaüzenetet kaptam. Kérem mielőbb oldja meg
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, fent említett vba kód nem fut.kindly megoldani.
A weboldal moderátora ezt a megjegyzést minimalizálta
Private Sub Worksheet_Change(ByVal Target As Range) Dim xValue As String Dim xCheck1 As String Dim xCheck2 As String Dim xCheck1 As String If Target.Count > 1 then Exit Sub End if Application.EnableEvents = False xÉrték = Target.Value On Error 0 = Cél.Érték Hiba esetén Folytatás xCheck. Validation.InCellDropdown On Error GoTo 2 Application.Undo Error Resume Next xCheck0 = Target.Validation.InCellDropdown On Error GoTo 1 If xCheck2 = xCheckXNUMX then Target = xValue Else MsgBox "Nem engedélyezett a beillesztés!" End If Application.EnableEvents = True End Sub Ez a makró nem működik, ha más munkafüzetről vagy munkalapról másol, akkor kérem, mondja meg, hogyan kerülhetem el ezeket a dolgokat is
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon szépen köszönjük !! nekem jól működik!!! az egyetlen cellába másolás korlátozott. de ha kimásolom a cellák listáját és beillesztem..., akkor a beillesztés elfogadásra kerül. hadd lássam, fel tudom-e hangolni.. amúgy köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Jepson, sikerült megoldani a több cellába történő másolás és beillesztés problémáját? Előre is köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Dilip, meg tudja oldani az adatok beillesztési értékekkel történő engedélyezésének problémáját? én is ugyanezzel a problémával szembesülök. Segítsen nekem ebben kérem
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Dilip! Meg tudja-e oldani az adatok beillesztéssel történő engedélyezésének problémáját?
A weboldal moderátora ezt a megjegyzést minimalizálta
sikerült megoldani a több cellába másolás és beillesztés problémáját? Előre is köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem, nem én találtam ki. Egy idő után nem próbáltam megoldani.
A weboldal moderátora ezt a megjegyzést minimalizálta
Működöm, DE miután megadtad a kódot, nem tudsz VISSZA VISSZAVONNI semmit. Egyetlen lépés sem megengedett.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi