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 30-dnevno brezplačno pot 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.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!