Πώς να αποθηκεύσετε όλα τα φύλλα εργασίας μόνο ως τιμές;

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

Αποθηκεύστε όλα τα φύλλα εργασίας ως τιμές μόνο με τον κώδικα VBA

Αποθηκεύστε όλα τα φύλλα εργασίας ως τιμές μόνο με τον κώδικα VBA

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αποθηκεύσετε γρήγορα όλα τα φύλλα ως τιμές (χωρίς τύπους) και να διατηρήσετε όλες τις μορφές κελιών. Κάντε το ως εξής:

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

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

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

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

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

Σημείωση: Πριν εφαρμόσετε τον κωδικό, μπορείτε να αποθηκεύσετε πρώτα ένα αντίγραφο του βιβλίου εργασίας.