Μετάβαση στο κύριο περιεχόμενο

Πώς να εφαρμόσετε τα παράθυρα παγώματος / κατάψυξης σε πολλά φύλλα εργασίας ταυτόχρονα;

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

Εφαρμόστε τα Freeze Panes σε όλα τα φύλλα εργασίας ταυτόχρονα με τον κώδικα VBA

Εφαρμόστε Unfreeze Panes σε όλα τα φύλλα εργασίας ταυτόχρονα με τον κώδικα VBA

Εφαρμόστε τα παράθυρα παγώματος / απελευθέρωσης σε όλα τα φύλλα εργασίας ταυτόχρονα με ένα κλικ με το Kutools για Excel


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

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

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

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

Κωδικός VBA: Πάγωμα όλων των φύλλων εργασίας ταυτόχρονα στο Excel

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

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

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


Εάν υπάρχουν πολλά φύλλα εργασίας που εφαρμόζονται με τα παράθυρα παγώματος στο Excel, πώς θα μπορούσατε να τα ξεπαγώσετε τη φορά εκτός από το να τα ξεπαγώσετε ένα προς ένα;

1. Ξεκινήστε το βιβλίο εργασίας σας, τα φύλλα εργασίας που έχουν εφαρμοστεί με τα παράθυρα παγώματος.

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

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

Κωδικός VBA: Κατάργηση πάγωσης όλων των φύλλων εργασίας ταυτόχρονα στο Excel

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Και στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλα τα φύλλα εργασίας που εφαρμόστηκαν με τα παγωμένα παράθυρα έχουν ξεπαγώσει ταυτόχρονα.


Εάν δεν είστε εξοικειωμένοι με τους κωδικούς VBA, εδώ είναι ένα ισχυρό εργαλείο- Kutools για Excel, της Πάγωμα παραθύρων πολλαπλών φύλλων εργασίας και Καταργήστε την κατάψυξη πολλών φύλλων εργασίας Τα βοηθητικά προγράμματα μπορούν να σας βοηθήσουν να παγώσετε ή να παγώσετε όλα τα φύλλα εργασίας του τρέχοντος βιβλίου εργασίας ταυτόχρονα.

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

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Επιλέξτε ένα κελί όπου θέλετε να εφαρμόσετε το παράθυρο παγώματος για όλα τα φύλλα εργασίας, σε αυτήν την περίπτωση, κάνω κλικ στο κελί B2, δείτε το στιγμιότυπο οθόνης:

doc παγώστε όλα τα φύλλα 1-1

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools Plus > Φύλλο εργασίας > Πάγωμα παραθύρων πολλαπλών φύλλων εργασίας, δείτε το στιγμιότυπο οθόνης:

3. Και τότε όλα τα φύλλα εργασίας σας έχουν εφαρμοστεί τα παγωμένα παράθυρα στην ίδια θέση του κελιού B2.

Note: Εάν θέλετε να τα ξεπαγώσετε αμέσως, απλώς πρέπει να εφαρμόσετε τη δυνατότητα πολλαπλών φύλλων εργασίας Unfreeze στα παράθυρα κάνοντας κλικ Kutools Plus> Φύλλο εργασίας > Καταργήστε την κατάψυξη πολλών φύλλων εργασίας.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


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

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
dear all, I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet. it's really helpful. this info is what I am looking for. thank you very much Lan
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations