Come impedire la copia e incolla sulla cella con l'elenco a discesa in Excel?
Per una cella con un elenco a discesa di convalida dei dati, quando si copia il contenuto da un'altra cella e si incolla su di essa, l'elenco a discesa scomparirà e verrà sostituito con il nuovo contenuto da incollare. In alcuni casi, vuoi impedire di copiare e incollare altri contenuti sulla cella con l'elenco a discesa, cosa faresti per risolverlo? In questo articolo, otterrai un metodo VBA per affrontare questo problema.
Impedisci copia e incolla sulla cella con l'elenco a discesa in Excel
Impedisci copia e incolla sulla cella con l'elenco a discesa in Excel
1. Aprire il foglio di lavoro con la cella dell'elenco a discesa che si desidera impedire di copiare e incollare.
2. Stampa altro + F11 tasti contemporaneamente per aprire il file Applicazioni Microsoft Visual Basic finestra.
3. Nel Applicazioni Microsoft Visual Basic finestra, fare doppio clic sul nome del foglio di lavoro corrente nel riquadro di sinistra, quindi copiare e incollare il codice VBA sottostante nell'editor del codice. Vedi screenshot:
Codice VBA: impedisce di copiare e incollare sulla cella con l'elenco a discesa
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 Sub4. Stampa altro + Q tasti per uscire da Applicazioni Microsoft Visual Basic finestra.
5. Quando incolli il contenuto in una cella con un elenco a discesa, verrà visualizzata una finestra di dialogo per ricordarti che non è consentito incollare. Vedi screenshot:
Note:: Questo VBA funziona solo con l'incollaggio di una singola cella. Se copi e incolli in più celle, non funzionerà.
Crea facilmente un elenco a discesa con caselle di controllo in Excel:
I Elenco a discesa con caselle di controllo utilità di Kutools for Excel può aiutarti a creare facilmente un elenco a discesa con caselle di controllo in un intervallo specificato, foglio di lavoro corrente, cartella di lavoro corrente o tutte le cartelle di lavoro aperte in base alle tue esigenze.
Scarica subito il percorso gratuito completo di 30 giorni di Kutools per Excel!
Articoli correlati:
Come creare un elenco a discesa con più caselle di controllo in Excel?
Molti utenti di Excel tendono a creare un elenco a discesa con più caselle di controllo per selezionare più elementi dall'elenco alla volta. In realtà, non puoi creare un elenco con più caselle di controllo con la convalida dei dati. In questo tutorial, ti mostreremo due metodi per creare un elenco a discesa con più caselle di controllo in Excel. Questo tutorial fornisce il metodo per risolvere il problema.
Crea un elenco a discesa da un'altra cartella di lavoro in Excel
È abbastanza facile creare un elenco a discesa di convalida dei dati tra i fogli di lavoro all'interno di una cartella di lavoro. Ma se i dati dell'elenco necessari per la convalida dei dati si trovano in un'altra cartella di lavoro, cosa faresti? In questo tutorial imparerai come creare un elenco a discesa da un'altra cartella di lavoro in Excel in dettaglio.
Crea un elenco a discesa ricercabile in Excel
Per un elenco a discesa con numerosi valori, trovarne uno corretto non è un lavoro facile. In precedenza abbiamo introdotto un metodo di completamento automatico dell'elenco a discesa quando si immette la prima lettera nella casella a discesa. Oltre alla funzione di completamento automatico, è anche possibile rendere ricercabile l'elenco a discesa per migliorare l'efficienza lavorativa nel trovare i valori corretti nell'elenco a discesa. Per rendere ricercabile l'elenco a discesa, prova il metodo in questo tutorial.
Compilare automaticamente altre celle quando si selezionano i valori nell'elenco a discesa di Excel
Supponiamo che tu abbia creato un elenco a discesa basato sui valori nell'intervallo di celle B8: B14. Quando si seleziona un valore nell'elenco a discesa, si desidera che i valori corrispondenti nell'intervallo di celle C8: C14 vengano inseriti automaticamente in una cella selezionata. Per risolvere il problema, i metodi in questo tutorial ti faranno un favore.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
