Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com evitar copiar i enganxar amb cel·la la llista desplegable d'Excel?

Per a una llista desplegable de cel·la amb validació de dades, quan copieu el contingut d'una altra cel·la i enganxeu-hi, la llista desplegable s'apagarà i se substituirà pel nou contingut enganxat. En alguns casos, voleu impedir que es copieu i enganxeu altres continguts a la cel·la amb la llista desplegable, què faríeu per fer-ho? En aquest article, obtindreu un mètode VBA per fer front a aquest problema.

Eviteu copiar i enganxar la cel·la amb la llista desplegable a Excel


Prevalgui ràpidament les entrades duplicades en una columna d'Excel

amb Kutools for Excel's Evita entrades duplicades utilitat, podeu evitar fàcilment entrades duplicades en una columna d'Excel.


fletxa blau dreta bombolla Eviteu copiar i enganxar la cel·la amb la llista desplegable a Excel


1. Obriu el full de treball amb la cel·la de llista desplegable que voleu prevenir copiar i enganxar.

2. Premeu Alt + F11 tecles simultànies per obrir el Aplicacions de Microsoft Visual Basic finestra.

3. A la Aplicacions de Microsoft Visual Basic finestra, feu doble clic al nom del full de càlcul actual al panell esquerre i, a continuació, copieu i enganxeu el codi VBA a sota a l'editor de codi. Mostra la captura de pantalla:

Codi VBA: impedeix copiar i enganxar la cel·la amb la llista desplegable

Private Sub Worksheet_Change(ByVal Target As Range)
	Dim xValue As String
	Dim xCheck1 As String
	Dim xCheck2 As String
	If Target.Count > 1 Then
		Exit Sub
		End If
		Application.EnableEvents = False
		xValue                   = Target.Value
		On Error Resume Next
		xCheck1                  = Target.Validation.InCellDropdown
		On Error GoTo 0
		Application.Undo
		On Error Resume Next
		xCheck2 = Target.Validation.InCellDropdown
		On Error GoTo 0
		If xCheck1 = xCheck2 Then
			Target = xValue
		Else
			MsgBox "No pasting allowed!"
		End If
		Application.EnableEvents = True
	End Sub

4. Premeu Alt + Q claus per sortir del Aplicacions de Microsoft Visual Basic finestra.

5. Quan enganxeu contingut a una cel·la amb una llista desplegable, apareixerà un quadre de diàleg per recordar-vos que no es permet enganxar. Mostra la captura de pantalla:

Nota: Aquest VBA només funciona en un cel lular únic. Si copieu i enganxeu a diverses cel·les, no funcionarà.


fletxa blau dreta bombollaArticles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Eva · 1 years ago
    I works BUT after you put the code you cannot UNDO anything. Not a single step back is allowed.
  • To post as a guest, your comment is unpublished.
    Dilip · 1 years ago
    No, I did not figure it out. I didn't try to resolve after a while.
  • To post as a guest, your comment is unpublished.
    arvind raj · 1 years ago
    did you manage to resolve the issue of copying and pasting into multiple cells? Thanks in advance!
  • To post as a guest, your comment is unpublished.
    Amit Jain · 1 years ago
    Hi Dilip,

    are you able to fix the issue of allowing data using paste values
  • To post as a guest, your comment is unpublished.
    Amit Jain · 1 years ago
    Hi Dilip,

    are you able to fix the issue of allowing data using paste values..i am also facing the same issue..help me on this please