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

Πώς να ορίσετε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V στο Excel;

Κανονικά, στο Excel, όταν αντιγράφετε δεδομένα από ένα εύρος ή φύλλο εργασίας και επικολλάτε με Ctrl + V σε άλλο, η μορφοποίηση θα επικολληθεί επίσης από προεπιλογή. Ωστόσο, μερικές φορές, απλώς θέλετε να επικολλήσετε ως τιμές χωρίς καμία μορφοποίηση όταν επικολλήσετε τα δεδομένα. Εδώ, μπορώ να σας παρουσιάσω μια εύκολη μέθοδο για να ορίσετε τις τιμές επικόλλησης μόνο ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V στο Excel.

Ορίστε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V με κωδικό VBA


Ορίστε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V με κωδικό VBA

Όταν επικολλάτε τα δεδομένα μόνο ως τιμές, πρέπει να κάνετε κλικ στο μικρό τετράγωνο στη γωνία της επιλογής σας και να επιλέγετε Τιμές κάθε φορά μετά την επικόλληση των δεδομένων. Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αλλάξετε τις προεπιλεγμένες τιμές επικόλλησης σε επικόλληση.

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Ορίστε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V

Sub PasteasValue()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

3. Στη συνέχεια, αποθηκεύστε και κλείστε τον κωδικό και πατήστε Alt + F8 για να ανοίξετε το Macro κουτί διαλόγου.

4. Στην Macro διαλόγου, επιλέξτε το όνομα της μακροεντολής που χρησιμοποιείται PasteasValue Και στη συνέχεια κάντε κλικ στο κουμπί Επιλογές κουμπί, δείτε το στιγμιότυπο οθόνης:

doc-paste-τιμές-προεπιλογή-1

5. Τότε στο Επιλογές μακροεντολών πλαίσιο διαλόγου, κάτω από το Πλήκτρο συντόμευσης ενότητα, παρακαλώ εισάγετε v , δείτε το στιγμιότυπο οθόνης:

doc-paste-τιμές-προεπιλογή-2

6. Και στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το Επιλογές μακροεντολών διαλόγου και συνεχίστε το κλείσιμο του Macro διαλόγου.

Και τώρα, όταν επικολλάτε τα δεδομένα με Ctrl + V, τα δεδομένα θα επικολληθούν ως τιμές από προεπιλογή.


Σχετικό άρθρο:

Πώς να επικολλήσετε εξωτερικό περιεχόμενο στο Excel να ταιριάζει πάντα με τη μορφή προορισμού;


Επίδειξη: Ορίστε τιμές επικόλλησης ως προεπιλεγμένη επικόλληση όταν χρησιμοποιείτε Ctrl + V στο Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (24)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ :D βοήθησε πολύ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ ωραία λύση. Αυτό με βασανίζει εδώ και αρκετό καιρό. Δύο παρατηρήσεις ... 1) Δεν αποτελεί έκπληξη ότι ορισμένα περιβάλλοντα εργασίας περιορίζουν ή απαγορεύουν τη χρήση (και, πιο συγκεκριμένα, την αποστολή μέσω email/παραλαβή) εγγράφων με δυνατότητα μακροεντολής. Υπάρχει λύση μη μακροεντολής; 2) Ctrl+Z .... Η "Αναίρεση" δεν θα αντιστρέψει μια "επικόλληση" που έγινε χρησιμοποιώντας αυτήν τη μακροεντολή. Υπάρχει λύση ή πρόσθετος κώδικας που θα επέτρεπε/ενεργοποιούσε/δημιουργούσε "αναίρεση" για επικόλληση που δημιουργήθηκαν με τη μακροεντολή; Ευχαριστώ πολύ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτή η κωδικοποίηση δεν λειτουργεί με την πιο πρόσφατη έκδοση του Excel 2016. Η εκτέλεση της δέσμης ενεργειών δίνει έναν κωδικό σφάλματος για τη γραμμή Επικόλληση:=xlPasteValues
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Απλώς αντιμετώπισα το ίδιο πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκιμάστε να χρησιμοποιήσετε αυτόν τον κώδικα με το Excel 2016: Sub Paste_Special() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ Mikael, αλλά ο κωδικός σου δεν λειτούργησε. Η Microsoft πρέπει να άλλαξε υπερβολικά τη γλώσσα κωδικοποίησης VBA στην τελευταία της ενημέρωση. Ακόμη και το κείμενο "Paste:=" οδηγεί σε σφάλμα μεταγλώττισης. Εάν υπάρχει μια απάντηση εκεί έξω, πρέπει να είναι σε διαφορετική γενιά του Excel VBA.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η μακροεντολή που έστειλα έχει εγγραφεί στην πιο πρόσφατη έκδοση του MS Excel 2016, οπότε ίσως το πρόβλημα έγκειται στην εγκατάστασή σας; Εκτός αυτού, το sub που έγραψα δεν θα λειτουργήσει χωρίς το τμήμα "Selection.PasteSpecial".
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετική λύση
αυτός ο κώδικας πρέπει να γραφτεί απευθείας στο πλαίσιο εντολών VBA και όχι στο πλαίσιο της ενότητας και επέλεξα τη θέση του στο βιβλίο εργασίας, ώστε να φροντίζετε να ΤΕΛΕΙΩΣΕΤΕ κάθε δευτερεύον που ανοίγει και να αγνοήσετε οποιοδήποτε μήνυμα που εμφανίζεται
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, η λύση λειτουργεί άψογα, αλλά το control+z δεν λειτουργεί μετά την επικόλληση :( . κάποια επιπλέον βοήθεια;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η λύση από τον Mikael φαίνεται να αναπαράγει ωραία τη λύση του 2013 που προσφέρεται από αυτήν τη σελίδα με τρόπο φιλικό προς το 2016 στο Excel. Δυστυχώς, αναπαράγει επίσης την αδυναμία αναίρεσης (μέσω Ctrl-Z ή άλλων ενεργειών "αναίρεσης") μιας ενέργειας επικόλλησης ενώ αυτή η μακροεντολή είναι ενεργοποιημένη.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δυστυχώς, είναι αρκετά δύσκολο να λειτουργήσει η συνάρτηση αναίρεσης μετά τη χρήση μιας μακροεντολής. Δεν μπορώ να σε βοηθήσω με αυτό, συγγνώμη.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ωραία συμβουλή, αλλά η μακροεντολή θα πρέπει να μοιάζει με αυτό, γιατί ο παραπάνω κώδικας σας δίνει μια δήλωση σφάλματος, εάν πατήσετε ctrl+v και δεν είχατε επιλέξει προηγουμένως κάτι με το ctrl+c Sub PasteAsValues() On Error GoTo err_handler: Selection. PasteSpecial Paste:=xlPasteValues ​​Έξοδος Sub err_handler: End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ, κύριε...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εκτός και αν έχασα κάτι (και οι οδηγίες είναι *πολύ* καλές), αυτό δεν λειτουργεί στο Excel 2016.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ το Microsoft office Standard 2016, καθώς λειτουργεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συμφωνώ Graham, μόλις το δοκίμασα στο Excel 2016. Όταν κάνω κλικ στο κουμπί Εκτέλεση στο παράθυρο διαλόγου Μακροεντολή, λαμβάνω το μήνυμα σφάλματος:

Σφάλμα Run-tme '1004':
Η μέθοδος PasteSpecial της κλάσης Range απέτυχε

που είναι κρίμα γιατί αυτό θα με είχε βοηθήσει πραγματικά σήμερα. Δοκίμασα επίσης τη μακροεντολή του Dejvid παρακάτω, αλλά δεν έγινε τίποτα κατά την επικόλληση από το ένα βιβλίο στο άλλο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Βεβαιωθείτε ότι έχετε επιλέξει κάτι στη λειτουργία αντιγραφής. μην μπεις καν στον κόπο να βάλεις τον κωδικό του
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί αλλά μετά την επικόλληση δεν μπορείτε να αναιρέσετε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το ίδιο και εδώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας παιδιά,
Λυπάμαι, ίσως δεν υπάρχει άλλος καλός τρόπος για την επίλυση αυτού του προβλήματος, αν έχετε άλλες καλές ιδέες, παρακαλώ σχολιάστε εδώ.
Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αποθήκευση ως δυαδικό .xlsb,
Στη συνέχεια, μπορείτε να χρησιμοποιήσετε τα πλήκτρα ctrl+z με μακροεντολές.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
τι εννοείς "αποθήκευση ως δυαδικό. xlsb";
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να μάθω αν υπάρχει τρόπος να δουλέψω σε ένα φύλλο, όχι σε μια ενότητα.

Αν όχι, υπάρχει τρόπος να δουλέψω το συγκεκριμένο φύλλο που καθορίζω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αποθηκευμένη λειτουργική μονάδα - ονομάζεται "module 2" αλλά τίποτα δεν εμφανίζεται στις μακροεντολές - δεν υπάρχει "PasteasValue". Φαίνεται ότι λείπει ένα βήμα;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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