VBA Application.CutCopyMode = Λάθος
Εάν έχετε καταγράψει μακροεντολές κατά την αντιγραφή και επικόλληση, πιθανότατα έχετε δει την ακόλουθη γραμμή κώδικα:
| 1 | Application.CutCopyMode = Λάθος |
Αυτή η γραμμή κώδικα "καθαρίζει" το πρόχειρο*. Εάν έχετε αντιγράψει ένα κελί Excel, η εκτέλεση αυτής της γραμμής κώδικα θα αφαιρέσει την κίνηση γύρω από το αντιγραμμένο κελί:
Το CutCopyMode είναι μια ιδιότητα σε επίπεδο εφαρμογής που υποδεικνύει εάν ένα πρόγραμμα του Microsoft Office (π.χ. Excel) είναι σε λειτουργία αποκοπής ή αντιγραφής. Ενώ βρίσκεται σε λειτουργία αντιγραφής (ή αποκοπής), το Excel έχει κάτι αποθηκευμένο στο πρόχειρο που μπορεί να επικολληθεί.
Δεν γνωρίζω μια στιγμή κατά την οποία θα χρειαζόταν ποτέ να ορίσετε την εφαρμογή.CutCopyMode σε True.
Αποφυγή CutCopyMode = Λάθος
Μπορείτε συνήθως να αποφύγετε την ανάγκη να ορίσετε την εφαρμογή CutCopyMode = False χρησιμοποιώντας τις βέλτιστες πρακτικές VBA Copy+Paste. Για παράδειγμα, η ακόλουθη γραμμή κώδικα αντιγράφει και επικολλά ένα κελί σε μία γραμμή, καταργώντας την ανάγκη να ορίσετε το CutCopyMode σε False:
| 123 | Sub CopyPaste_OneLine ()Εύρος ("a1"). Εύρος αντιγραφής ("b1")Τέλος υπο |
Λήψη Application.CutCopyMode Κατάσταση
Περιστασιακά, μπορεί να θέλετε να αποκτήσετε την κατάσταση Application.CutCopyMode. Δυνητικά για την αποφυγή σφαλμάτων κατά την προσπάθεια επικόλλησης όταν δεν υπάρχει τίποτα στο πρόχειρο. Για να λάβετε την κατάσταση χρησιμοποιήστε τον ακόλουθο κώδικα:
| 123456789101112 | Sub Get_Application_CutCopyMode_Status ()Επιλέξτε Case Application.CutCopyModeΠερίπτωση Is = xlCopyMsgBox "Λειτουργία αντιγραφής"Περίπτωση Is = xlCutMsgBox "Λειτουργία αποκοπής"Περίπτωση Είναι = ΛάθοςMsgBox "Δεν είναι σε λειτουργία αποκοπής ή αντιγραφής"Τέλος ΕπιλογήΤέλος υπο |
*Application.CutCopyMode θα καθαρίσει μόνο το πρόχειρο της εφαρμογής Microsoft Office (π.χ. Excel). Δεν θα καθαρίσει το πρόχειρο του παραθύρου. Κάντε κλικ στον σύνδεσμο για να μάθετε περισσότερα σχετικά με τον τρόπο εκκαθάρισης του πρόχειρου του παραθύρου χρησιμοποιώντας το VBA.
