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

Πώς να αποτρέψετε την αντιγραφή και επικόλληση σε κελί με αναπτυσσόμενη λίστα στο Excel;

Για ένα κελί με αναπτυσσόμενη λίστα επικύρωσης δεδομένων, όταν αντιγράφετε περιεχόμενο από άλλο κελί και επικολλάτε σε αυτό, η αναπτυσσόμενη λίστα θα φύγει και θα αντικατασταθεί με το νέο περιεχόμενο επικόλλησης. Σε ορισμένες περιπτώσεις, θέλετε να αποτρέψετε την αντιγραφή και επικόλληση άλλου περιεχομένου πάνω από το κελί με την αναπτυσσόμενη λίστα, τι θα κάνατε για να το αντιμετωπίσετε; Σε αυτό το άρθρο, θα λάβετε μια μέθοδο VBA για την αντιμετώπιση αυτού του προβλήματος.

Αποτροπή αντιγραφής και επικόλλησης σε κελί με αναπτυσσόμενη λίστα στο Excel


Αποτροπή αντιγραφής και επικόλλησης σε κελί με αναπτυσσόμενη λίστα στο Excel

1. Ανοίξτε το φύλλο εργασίας με το αναπτυσσόμενο κελί λίστας που θέλετε να αποτρέψετε την αντιγραφή και επικόλληση.

2. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Εφαρμογές της Microsoft Visual Basic παράθυρο.

3. Στο Εφαρμογές της Microsoft Visual Basic παράθυρο, κάντε διπλό κλικ στο όνομα του τρέχοντος φύλλου εργασίας στο αριστερό παράθυρο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στον επεξεργαστή κώδικα. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Αποτροπή αντιγραφής και επικόλλησης σε κελί με αναπτυσσόμενη λίστα

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. Τύπος άλλος + Q πλήκτρα για έξοδο από το Εφαρμογές της Microsoft Visual Basic παράθυρο.

5. Όταν επικολλάτε περιεχόμενο σε ένα κελί με αναπτυσσόμενη λίστα, θα εμφανιστεί ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι δεν επιτρέπεται η επικόλληση. Δείτε το στιγμιότυπο οθόνης:

Note: Αυτό το VBA λειτουργεί μόνο σε επικόλληση με ένα κελί. Εάν αντιγράψετε και επικολλήσετε σε πολλά κελιά, δεν θα λειτουργήσει.

Δημιουργήστε εύκολα αναπτυσσόμενη λίστα με πλαίσια ελέγχου στο Excel:

Η καλύτερη Αναπτυσσόμενη λίστα με πλαίσια ελέγχου χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει να δημιουργήσετε εύκολα αναπτυσσόμενη λίστα με πλαίσια ελέγχου σε ένα καθορισμένο εύρος, τρέχον φύλλο εργασίας, τρέχον βιβλίο εργασίας ή όλα τα ανοιχτά βιβλία εργασίας με βάση τις ανάγκες σας.
Κατεβάστε την πλήρη λειτουργία 30-ημέρα δωρεάν διαδρομή του Kutools για Excel τώρα!


Σχετικά άρθρα:

Πώς να δημιουργήσετε αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου στο Excel;
Πολλοί χρήστες του Excel τείνουν να δημιουργούν αναπτυσσόμενη λίστα με πολλαπλά πλαίσια ελέγχου για να επιλέγουν πολλά στοιχεία από τη λίστα ανά φορά. Στην πραγματικότητα, δεν μπορείτε να δημιουργήσετε μια λίστα με πολλά πλαίσια ελέγχου με επικύρωση δεδομένων. Σε αυτό το σεμινάριο, θα σας δείξουμε δύο μεθόδους για να δημιουργήσετε αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου στο Excel. Αυτό το σεμινάριο παρέχει τη μέθοδο για την επίλυση του προβλήματος.

Δημιουργήστε αναπτυσσόμενη λίστα από άλλο βιβλίο εργασίας στο Excel
Είναι πολύ εύκολο να δημιουργήσετε μια αναπτυσσόμενη λίστα επικύρωσης δεδομένων μεταξύ των φύλλων εργασίας σε ένα βιβλίο εργασίας. Αλλά αν τα δεδομένα της λίστας που χρειάζεστε για την επικύρωση δεδομένων εντοπίζονται σε άλλο βιβλίο εργασίας, τι θα κάνατε; Σε αυτό το σεμινάριο, θα μάθετε πώς μπορείτε να δημιουργήσετε μια αναπτυσσόμενη λίστα από άλλο βιβλίο εργασίας στο Excel λεπτομερώς.

Δημιουργήστε μια αναπτυσσόμενη λίστα με δυνατότητα αναζήτησης στο Excel
Για μια αναπτυσσόμενη λίστα με πολλές τιμές, η εύρεση μιας κατάλληλης δεν είναι εύκολη δουλειά. Προηγουμένως έχουμε εισαγάγει μια μέθοδο αυτόματης συμπλήρωσης της αναπτυσσόμενης λίστας κατά την εισαγωγή του πρώτου γράμματος στο αναπτυσσόμενο πλαίσιο. Εκτός από τη λειτουργία αυτόματης συμπλήρωσης, μπορείτε επίσης να κάνετε αναζήτηση στην αναπτυσσόμενη λίστα για ενίσχυση της αποτελεσματικότητας λειτουργίας στην εύρεση κατάλληλων τιμών στην αναπτυσσόμενη λίστα. Για να κάνετε αναζήτηση στην αναπτυσσόμενη λίστα, δοκιμάστε τη μέθοδο σε αυτό το σεμινάριο.

Αυτόματη συμπλήρωση άλλων κελιών κατά την επιλογή τιμών στην αναπτυσσόμενη λίστα του Excel
Ας υποθέσουμε ότι έχετε δημιουργήσει μια αναπτυσσόμενη λίστα με βάση τις τιμές στην περιοχή κελιών B8: B14. Όταν επιλέγετε οποιαδήποτε τιμή στην αναπτυσσόμενη λίστα, θέλετε οι αντίστοιχες τιμές στην περιοχή κελιών C8: C14 να συμπληρώνονται αυτόματα σε ένα επιλεγμένο κελί. Για την επίλυση του προβλήματος, οι μέθοδοι σε αυτό το σεμινάριο θα σας βοηθήσουν.

Περισσότερα μαθήματα για την αναπτυσσόμενη λίστα ...


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (12)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτουργεί, αλλά όταν επικολλώ την τιμή, επιτρέπονται δεδομένα που δεν προέρχονται από την αναπτυσσόμενη λίστα. Οποιοσδήποτε τρόπος περιορισμού οποιασδήποτε τιμής δεν είναι από τη λίστα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Dilip, Μπόρεσες να επιλύσεις το πρόβλημα, έχω κι εγώ παρόμοιο πρόβλημα. Πρέπει να επιτρέψω την αντιγραφή, επικόλληση μόνο για τις αναπτυσσόμενες τιμές στο κελί επικύρωσης δεδομένων, άλλα πρέπει να περιορίσω. Μπορείτε να μοιραστείτε τη λύση σας. Ευχαριστώ Ράο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, ενώ εκτελούσα αυτήν τη μακροεντολή, έλαβα αυτό το σφάλμα εντοπισμού σφαλμάτων "Application.Undo". Παρακαλώ επιλύστε αυτό το ASAP
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, παραπάνω ο κώδικας vba δεν εκτελείται. ευγενικά επιλύστε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ιδιωτικό δευτερεύον φύλλο εργασίας_Αλλαγή (ByVal στόχος ως εύρος) Dim xValue ως συμβολοσειρά Dim xCheck1 Ως συμβολοσειρά Dim xCheck2 ως συμβολοσειρά εάν Target.Count > 1 Στη συνέχεια, πραγματοποιήστε έξοδο από το δευτερεύον τέλος εάν Application.EnableEvents = False xValue = Target.Value On Error. Validation.InCellDropdown On Error GoTo 1 Application.Undo On Error Resume Next xCheck0 = Target.Validation.InCellDropdown On Error GoTo 2 Εάν xCheck0 = xCheck1 Τότε Target = xValue Else MsgBox "Δεν επιτρέπεται η επικόλληση!" End If Application.EnableEvents = True End Sub Αυτή η μακροεντολή δεν λειτουργεί κατά την αντιγραφή από διαφορετικό βιβλίο εργασίας ή φύλλο εργασίας, οπότε πείτε μου πώς να αποφύγω αυτά τα πράγματα επίσης
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ !! μου δουλεύει μια χαρά!!! Η αντιγραφή σε ένα μόνο κελί είναι περιορισμένη. αλλά αν αντιγράψω μια λίστα κελιών και επικολλήσω..., η επικόλληση γίνεται αποδεκτή. επιτρέψτε μου να δω αν μπορώ να το ρυθμίσω .. ευχαριστώ πάντως
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Jepson, κατάφερες να επιλύσεις το θέμα της αντιγραφής και επικόλλησης σε πολλαπλά κελιά; Ευχαριστώ εκ των προτέρων!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Dilip, μπορείς να διορθώσεις το πρόβλημα της επιτρεπόμενων δεδομένων χρησιμοποιώντας τιμές επικόλλησης.. αντιμετωπίζω και εγώ το ίδιο πρόβλημα. Βοηθήστε με σε αυτό παρακαλώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Dilip, μπορείς να διορθώσεις το πρόβλημα της επιτρεπόμενων δεδομένων χρησιμοποιώντας τιμές επικόλλησης
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
καταφέρατε να επιλύσετε το θέμα της αντιγραφής και επικόλλησης σε πολλά κελιά; Ευχαριστώ εκ των προτέρων!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όχι, δεν το κατάλαβα. Δεν προσπάθησα να λύσω μετά από λίγο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργώ ΑΛΛΑ αφού βάλεις τον κωδικό δεν μπορείς να ΑΝΑΙΡΕΣΕΙΣ τίποτα. Δεν επιτρέπεται ούτε ένα βήμα πίσω.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL