Σε αυτό το άρθρο, θα σας δείξω πώς μπορείτε να παγώσετε τα παράθυρα ενός φύλλου εργασίας του Excel με Visual Basic of Applications (VBA). Πολλές φορές, ενώ εργαζόμαστε στο Excel, χρειάζεται να παγώσουμε τα παράθυρα του φύλλου εργασίας για ευκολία και καλύτερη εμπειρία. Σήμερα θα μάθετε πώς μπορείτε να το πετύχετε αυτό με το VBA .

Πάγωμα παραθύρων με VBA στο Excel (Γρήγορη προβολή)

 Sub Freeze_Panes_Row_and_Column() Range("C4").Select ActiveWindow.FreezePanes = True End Sub 

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

Εισαγωγή στα παράθυρα παγώματος του Excel

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

Για παράδειγμα, κοιτάξτε το σύνολο δεδομένων παρακάτω. Εδώ έχουμε παγώσει το φύλλο εργασίας μέχρι τη γραμμή 3 ( Έτη ) και στήλη B ( Όνομα προϊόντων ).

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

Το ίδιο για τη στήλη B ενώ κάνουμε κύλιση δεξιά.

Τώρα, για να παγώσετε τα παράθυρα σε ένα φύλλο εργασίας χειροκίνητα, επιλέξτε το κελί αμέσως μετά τη γραμμή και τη στήλη (Κελί C4 σε αυτό το παράδειγμα) και πηγαίνετε στο Προβολή> Freeze Panes> Freeze Panes στη γραμμή εργαλείων του Excel.

Για να παγώσετε μόνο τη γραμμή, επιλέξτε ολόκληρη τη γραμμή και μεταβείτε στο Προβολή> Freeze Panes> Freeze Panes στη γραμμή εργαλείων του Excel.

Ομοίως, για να παγώσετε μόνο τη στήλη, επιλέξτε ολόκληρη τη στήλη και μεταβείτε στο Προβολή> Freeze Panes> Freeze Panes στη γραμμή εργαλείων του Excel.

⧭ Σημειώσεις:

• Επιλέξτε Πάγωμα Επάνω σειρά για να παγώσετε μόνο την επάνω σειρά.
• Ομοίως, επιλέξτε Πάγωμα πρώτης στήλης για να παγώσει μόνο η πρώτη στήλη.

5 μέθοδοι για να παγώσετε τα παράθυρα με VBA στο Excel

Μάθαμε τι είναι το πάγωμα των παραθύρων στο Excel και πώς να το πετύχουμε χειροκίνητα. Τώρα, ας πάμε στην κύρια συζήτησή μας σήμερα, πώς να παγώσουμε τα παράθυρα με VBA .

1. Πάγωμα μόνο μιας γραμμής με VBA στο Excel

Πρώτα απ' όλα, ας δούμε πώς μπορούμε να παγώσουμε μόνο μια γραμμή με VBA .

Όπως αναφέρθηκε προηγουμένως, για να παγώσετε μόνο μια γραμμή, πρέπει πρώτα να επιλέξετε ολόκληρη τη γραμμή κάτω από τη γραμμή που θέλετε να παγώσετε (Row 4 σε αυτό το παράδειγμα).

Στη συνέχεια, πρέπει να εφαρμόσετε το Παγωμένα τζάμια εντολή.

Έτσι η VBA ο κωδικός θα είναι:

⧭ Κώδικας VBA:

 Sub Freeze_Panes_Only_Row() Range("C4").EntireRow.Select ActiveWindow.FreezePanes = True Range("C4").Select End Sub 

⧭ Έξοδος:

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

⧭ Σημειώσεις:

• Εδώ έχουμε χρησιμοποιήσει το κύτταρο C4 για να επιλέξετε οποιοδήποτε κελί της γραμμής 4 του φύλλου εργασίας. Το επιλέγετε ανάλογα με τις ανάγκες σας.
• Η τελευταία γραμμή του κώδικα Range("C4").Select έχει ως σκοπό την αποεπιλογή ολόκληρης της γραμμής 4 (Η αποεπιλογή οποιασδήποτε επιλογής σημαίνει την επιλογή μιας νέας επιλογής, καθώς στο Excel, κάτι πρέπει να παραμείνει επιλεγμένο). Μπορείτε να παραλείψετε αυτή τη γραμμή αν θέλετε.

Διαβάστε περισσότερα: Πώς να παγώσετε την επάνω γραμμή στο Excel (4 εύκολες μέθοδοι)

2. Πάγωμα μόνο μιας στήλης με VBA στο Excel

Είδαμε πώς μπορούμε να παγώσουμε μια σειρά με VBA Τώρα ας δούμε πώς να παγώσουμε μια στήλη με VBA .

Παρόμοια με τη γραμμή, για να παγώσετε μόνο μια στήλη, πρέπει πρώτα να επιλέξετε ολόκληρη τη στήλη δεξιά από τη στήλη που θέλετε να παγώσετε (Column C σε αυτό το παράδειγμα).

Στη συνέχεια, πρέπει να εφαρμόσετε το Παγωμένα τζάμια εντολή.

Έτσι η VBA ο κωδικός θα είναι:

⧭ Κώδικας VBA:

 Sub Freeze_Panes_Only_Column() Range("C4").EntireColumn.Select ActiveWindow.FreezePanes = True Range("C4").Select End Sub 

⧭ Έξοδος:

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

⧭ Σημειώσεις:

• Εδώ έχουμε χρησιμοποιήσει το κύτταρο C4 για να επιλέξετε οποιοδήποτε κελί της στήλης C του φύλλου εργασίας. Το επιλέγετε ανάλογα με τις ανάγκες σας.
• Η τελευταία γραμμή του κώδικα Range("C4").Select έχει ως σκοπό την αποεπιλογή ολόκληρης της στήλης C (Η αποεπιλογή οποιασδήποτε επιλογής σημαίνει την επιλογή μιας νέας επιλογής, καθώς στο Excel, κάτι πρέπει να παραμείνει επιλεγμένο). Μπορείτε να παραλείψετε αυτή τη γραμμή αν θέλετε.

Διαβάστε περισσότερα: Πώς να παγώσετε 2 στήλες στο Excel (5 μέθοδοι)

3. Πάγωμα τόσο της γραμμής όσο και της στήλης με VBA στο Excel

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

Για να παγώσετε και τη γραμμή και τη στήλη μαζί, πρέπει να επιλέξετε ένα κελί κάτω από τη γραμμή που θα παγώσει και δεξιά από τη στήλη που θα παγώσει (Cell C4 σε αυτό το παράδειγμα).

Στη συνέχεια, πρέπει να εφαρμόσετε το Παγωμένα τζάμια εντολή.

Έτσι η VBA ο κωδικός θα είναι:

⧭ Κώδικας VBA:

 Sub Freeze_Panes_Row_and_Column() Range("C4").Select ActiveWindow.FreezePanes = True End Sub 

⧭ Έξοδος:

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

⧭ Σημειώσεις:

• Εδώ έχουμε χρησιμοποιήσει το κύτταρο C4 για να επιλέξετε ένα κελί κάτω από τη γραμμή 3 και δεξιά στη στήλη B . Αυτό είναι το κύτταρο C4 Το επιλέγετε ανάλογα με τις ανάγκες σας.

Διαβάστε περισσότερα: Πώς να παγώσετε επιλεγμένα παράθυρα στο Excel (10 τρόποι)

Παρόμοιες αναγνώσεις:

• Πώς να παγώσετε πολλαπλά παράθυρα στο Excel (4 κριτήρια)
• Συντόμευση πληκτρολογίου για να παγώσετε τα παράθυρα στο Excel (3 συντομεύσεις)
• Πώς να παγώσετε τις πρώτες 3 στήλες στο Excel (4 γρήγοροι τρόποι)

4. Ανάπτυξη μιας φόρμας χρήστη για το πάγωμα των παραθύρων με VBA στο Excel

Είδαμε πώς μπορούμε να παγώσουμε μια γραμμή ή μια στήλη ή και τη γραμμή και τη στήλη με VBA σε ένα φύλλο εργασίας του Excel.

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

⧭ Διαδικασία βήμα προς βήμα για την ανάπτυξη της φόρμας χρήστη:

⧪ Βήμα 1:

• Τύπος ALT+F11 στο πληκτρολόγιό σας για να ανοίξετε το Visual Basic
• Στο Visual Basic editor, πηγαίνετε στο Εισαγωγή> UserForm για να εισαγάγετε ένα νέο Φόρμα χρήστη .

⧪ Βήμα 2:

• Μια νέα UserForm που ονομάζεται UserForm1 θα δημιουργηθεί στο VBA
• Στα αριστερά του UserForm , θα λάβετε ένα Εργαλειοθήκη που ονομάζεται Έλεγχος Μετακινήστε το ποντίκι σας στην εργαλειοθήκη και αναζητήστε ένα TextBox (TextBox1) Αφού βρείτε ένα, σύρετέ το πάνω από την κορυφή του UserForm .
• Ομοίως, σύρετε ένα ListBox ( ListBox1 ) μέχρι το Πλαίσιο κειμένου , και ένα CommandButton (Κουμπί εντολών1) στην κάτω δεξιά γωνία του UserForm . Αλλαγή της οθόνης του CommandButton στο OK . UserForm θα πρέπει τώρα να μοιάζει με αυτό:

⧪ Βήμα 3:

Εισάγετε ένα Ενότητα ( Εισαγωγή> Ενότητα ) από το VBA εργαλειοθήκη

⧪ Βήμα 4:

Εισάγετε τα ακόλουθα VBA κώδικα στο Ενότητα .

 Sub Run_UserForm() UserForm1.Caption = "Πάγωμα πλαισίων" UserForm1.TextBox1.Text = Selection.Address UserForm1.TextBox1.BorderStyle = fmBorderStyleSingle UserForm1.ListBox1.BorderStyle = fmBorderStyleSingle UserForm1.ListBox1.ListStyle = fmListStyleOption UserForm1.ListBox1.AddItem "1. Πάγωμα γραμμής" UserForm1.ListBox1.AddItem "2. Πάγωμα στήλης" UserForm1.ListBox1.AddItem "3. Πάγωμα γραμμής και στήλης"Φόρτωση UserForm1 UserForm1.Show End Sub 

⧪ Βήμα 5:

Κάντε διπλό κλικ στο CommandButton εμφανίζεται ως OK . Ένα ιδιωτικό υποσύστημα που ονομάζεται CommandButton1_Click Εισάγετε εκεί τον ακόλουθο κώδικα:

 If UserForm1.ListBox1.Selected(0) = True Then Set Rng = Selection Rng.EntireRow.Select ActiveWindow.FreezePanes = True Rng.Select ElseIf UserForm1.ListBox1.Selected(1) = True Then Set Rng = Selection Rng.EntireColumn.Select ActiveWindow.FreezePanes = True Rng.Select ElseIf UserForm1.ListBox1.Selected(2) = True ThenActiveWindow.FreezePanes = True Else MsgBox "Select At Least One. ", vbExclamation End If Unload UserForm1 

⧪ Βήμα 6:

Ομοίως κάντε διπλό κλικ στο TextBox1 . Ένα ιδιωτικό υποσύστημα που ονομάζεται TextBox1_Change Εισάγετε εκεί τον ακόλουθο κώδικα.

 Private Sub TextBox1_Change() On Error GoTo Message Range(TextBox1.Text).Select Message: Note = 5 End Sub 

⧪ Βήμα 7:

Το σας UserForm είναι τώρα έτοιμο για χρήση. Επιλέξτε το κελί κάτω από τη γραμμή που πρόκειται να παγώσει και δεξιά από τη στήλη που πρόκειται να παγώσει (Κελί C4 εδώ), και εκτελέστε το Μάκρο που ονομάζεται Run_UserForm .

⧪ Βήμα 8:

• Το UserForm Θα βρείτε τη διεύθυνση του επιλεγμένου κελιού ( C4 ) στο TextBox Αν θέλετε, μπορείτε να το αλλάξετε αυτό.
• Στη συνέχεια, επιλέξτε οποιαδήποτε από τις τρεις διαθέσιμες επιλογές στο πεδίο ListBox Εδώ θέλω να παγώσω και τη γραμμή και τη στήλη, οπότε έχω επιλέξει Πάγωμα γραμμής και στήλης .
• Στη συνέχεια κάντε κλικ στο OK .

⧪ Βήμα 9:

Θα βρείτε το φύλλο εργασίας παγωμένο ανάλογα με την επιθυμία σας. (Εδώ παγωμένο μέχρι τη σειρά 3 και στήλη B ).

Σχετικό περιεχόμενο: Πώς να παγώσετε το πλαίσιο στο Excel (6 γρήγορα κόλπα)

5. Εναλλακτική λύση των παραθύρων παγώματος στο Excel: Διαχωρισμός του παραθύρου με VBA

Έχουμε μιλήσει πολύ για το πάγωμα τζαμιών στο Excel. Τώρα, ας δούμε μια πολύ χρήσιμη εναλλακτική λύση για το πάγωμα τζαμιών στο Excel, το Split Window εντολή.

Μπορείτε να ActiveWindow.SplitRow ή ActiveWindow.SplitColumn στο VBA για να χωρίσετε το φύλλο εργασίας κατά γραμμές ή στήλες.

Για παράδειγμα, για να χωρίσετε το φύλλο εργασίας από τη γραμμή 3 , χρήση:

 ActiveWindow.SplitRow = 3 

Ομοίως, για να χωρίσετε το φύλλο εργασίας από τη στήλη B , χρήση:

 ActiveWindow.SplitColumn = 2 

⧭ Κώδικας VBA:

 Sub Split_Window() ActiveWindow.SplitRow = 3 ActiveWindow.SplitColumn = 2 End Sub 

⧭ Έξοδος:

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

Σχετικό περιεχόμενο: Πώς να εφαρμόσετε προσαρμοσμένα παράθυρα παγώματος στο Excel (3 εύκολοι τρόποι)

Πράγματα που πρέπει να θυμάστε

• Πριν από την εφαρμογή Παγωμένα τζάμια στο Excel, πρέπει να Ξεπαγώστε όλα τα Freeze Panes Διαφορετικά, το Παγωμένα τζάμια δεν θα λειτουργήσει.
• Το Παγωμένα τζάμια εντολή δεν θα λειτουργήσει μέσω του συγχωνευμένο κύτταρα. unmerge πριν από την εφαρμογή του Παγωμένα τζάμια εντολή αν υπάρχει.

Συμπέρασμα

Αυτές είναι λοιπόν οι μέθοδοι που πρέπει να χρησιμοποιήσετε Παγωμένα τζάμια με VBA στο Excel. Προσπάθησα να συζητήσω όλους τους πιθανούς τρόπους εφαρμογής Παγωμένα τζάμια πάνω από ένα φύλλο εργασίας στο Excel. Έχετε ερωτήσεις; Μη διστάσετε να μας ρωτήσετε. Και μην ξεχάσετε να επισκεφθείτε τον ιστότοπό μας ExcelWIKI για περισσότερες αναρτήσεις και ενημερώσεις.