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

Kako preprečiti kopiranje in lepljenje celice s spustnim seznamom v Excelu?

Za celico s spustnim seznamom za preverjanje veljavnosti podatkov, ko kopirate vsebino iz druge celice in jo prilepite, spustni seznam ne bo več nadomeščen z novo vsebino lepljenja. V nekaterih primerih želite s spustnim seznamom preprečiti kopiranje in lepljenje druge vsebine nad celico. Kaj bi storili, če bi se z njo ukvarjali? V tem članku boste našli metodo VBA za reševanje te težave.

Preprečite kopiranje in lepljenje celic s spustnim seznamom v Excelu


Preprečite kopiranje in lepljenje celic s spustnim seznamom v Excelu

1. Odprite delovni list s celico s spustnega seznama, ki jo želite preprečiti kopiranje in lepljenje.

2. Pritisnite druga + F11 tipke hkrati, da odprete Aplikacije Microsoft Visual Basic okno.

3. V Ljubljani Aplikacije Microsoft Visual Basic dvokliknite trenutno ime delovnega lista v levem podoknu, nato pa kopirajte in prilepite spodnjo kodo VBA v urejevalnik kod. Oglejte si posnetek zaslona:

Koda VBA: preprečite kopiranje in lepljenje celice s spustnim seznamom

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. Pritisnite druga + Q tipke za izhod iz Aplikacije Microsoft Visual Basic okno.

5. Ko prilepite vsebino v celico s spustnim seznamom, se prikaže pogovorno okno, ki vas opozori, da lepljenje ni dovoljeno. Oglejte si posnetek zaslona:

Opombe: Ta VBA deluje samo pri lepljenju ene celice. Če kopirate in prilepite v več celic, ne bo delovalo.

Preprosto ustvarite spustni seznam s potrditvenimi polji v Excelu:

O Spustni seznam s potrditvenimi polji uporabnost Kutools za Excel vam lahko pomaga enostavno ustvariti spustni seznam s potrditvenimi polji v določenem obsegu, trenutni delovni list, trenutni delovni zvezek ali vsi odprti delovni zvezki glede na vaše potrebe.
Prenesite celotno funkcijo 30-dnevna brezplačna sled Kutools za Excel zdaj!


Sorodni članki:

Kako ustvariti spustni seznam z več potrditvenimi polji v Excelu?
Mnogi uporabniki Excela ponavadi ustvarijo spustni seznam z več potrditvenimi polji, da lahko na seznamu naenkrat izberejo več elementov. S preverjanjem podatkov dejansko ne morete ustvariti seznama z več potrditvenimi polji. V tej vadnici vam bomo pokazali dva načina za ustvarjanje spustnega seznama z več potrditvenimi polji v Excelu. Ta vadnica ponuja metodo za reševanje težave.

Ustvari spustni seznam iz drugega delovnega zvezka v Excelu
Na delovnih listih v delovnem zvezku je zelo enostavno ustvariti spustni seznam za preverjanje veljavnosti podatkov. Če pa se podatki seznama, ki jih potrebujete za preverjanje podatkov, nahajajo v drugi delovni knjigi, kaj bi storili? V tej vadnici boste podrobno izvedeli, kako iz drugega delovnega zvezka v Excelu ustvarite spustni seznam.

Ustvarite spustni seznam, ki ga je mogoče iskati v Excelu
Za spustni seznam s številnimi vrednostmi iskanje pravega ni lahko delo. Prej smo uvedli način samodejnega dokončanja spustnega seznama, ko v spustnem polju vnesemo prvo črko. Poleg funkcije samodokončanja lahko po spustnem seznamu omogočite tudi iskanje za povečanje delovne učinkovitosti pri iskanju ustreznih vrednosti na spustnem seznamu. Če želite omogočiti iskanje po spustnem seznamu, poskusite z metodo v tej vadnici.

Samodejno izpolnite druge celice pri izbiri vrednosti v spustnem seznamu Excel
Recimo, da ste ustvarili spustni seznam na podlagi vrednosti v obsegu celic B8: B14. Ko izberete katero koli vrednost na spustnem seznamu, želite, da se ustrezne vrednosti v območju celic C8: C14 samodejno vnesejo v izbrano celico. Za rešitev težave vam bodo storitve v tej vadnici naredile uslugo.

Več vadnic za spustni seznam ...


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (12)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
To deluje, vendar ko prilepim vrednost, to omogoča podatke, ki niso s spustnega seznama. Vsak način za omejitev katere koli vrednosti, ki ni s seznama.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Dilip, ali si uspel rešiti težavo, tudi jaz imam podobno težavo. Dovoliti moram kopiranje, lepljenje samo za spustne vrednosti v celici za preverjanje veljavnosti podatkov, drugo moram omejiti. Ali lahko delite svojo rešitev. Hvala Rao
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, med izvajanjem tega makra sem dobil to napako pri odpravljanju napak "Application.Undo". Prosim, rešite to čim prej
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, zgoraj omenjena koda vba se ne zažene. Vljudno rešite.
Ta komentar je moderator na spletnem mestu minimiziral
Private Sub Worksheet_Change(ByVal Target As Range) Dim xValue As String Dim xCheck1 As String Dim xCheck2 As String Če Target.Count > 1 Nato Exit Sub End, če Application.EnableEvents = False xValue = Target.Value ob napaki Nadaljuj Naslednji x. Validation.InCellDropdown ob napaki PojdiTo 1 Application.Undo On Error Nadaljuj Naprej xCheck0 = Target.Validation.InCellDropdown On Error Pojdi na 2 Če xCheck0 = xCheck1 Potem Target = xValue Drugače MsgBox "Lepljenje ni dovoljeno!" End If Application.EnableEvents = True End Sub Ta makro ne deluje pri kopiranju iz drugega delovnega zvezka ali delovnega lista, zato mi prosim povejte, kako se tudi tem stvarem izognem
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala !! meni dobro deluje!!! kopiranje v eno celico je omejeno. če pa kopiram seznam celic in prilepim .., je lepljenje sprejeto. naj vidim, če lahko to nastavim .. vseeno hvala
Ta komentar je moderator na spletnem mestu minimiziral
Jepson, ali ti je uspelo rešiti težavo s kopiranjem in lepljenjem v več celic? Hvala vnaprej!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Dilip, ali lahko odpraviš težavo z dovoljenjem podatkov z uporabo vrednosti lepljenja.. tudi jaz se soočam z isto težavo.. pomagaj mi pri tem, prosim
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Dilip, ali lahko odpravite težavo z dovoljenjem podatkov z uporabo vrednosti za lepljenje
Ta komentar je moderator na spletnem mestu minimiziral
ste uspeli rešiti problem kopiranja in lepljenja v več celic? Hvala vnaprej!
Ta komentar je moderator na spletnem mestu minimiziral
Ne, nisem ugotovil. Čez nekaj časa se nisem poskušal rešiti.
Ta komentar je moderator na spletnem mestu minimiziral
Delam, vendar potem, ko vnesete kodo, ne morete ničesar RAZVELJATI. Niti en korak nazaj ni dovoljen.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL