Πώς να εισαγάγετε πλωτό πίνακα ή πλαίσιο κειμένου στο φύλλο εργασίας του Excel;

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

Εισαγάγετε κυμαινόμενο πίνακα στο Excel με κωδικό VBA

Εισαγάγετε κινούμενο πλαίσιο κειμένου στο Excel με κωδικό VBA

Εισαγάγετε κυμαινόμενο πίνακα στο Excel με κωδικό VBA

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

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

2. Στο αναδυόμενο Αντιγραφή εικόνας , επιλέξτε Όπως φαίνεται στην οθόνη από το Εμφάνιση ενότητα, και επιλέξτε Εικόνα σύμφωνα με το Μορφή Κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου και, στη συνέχεια, κάντε κλικ σε ένα κελί για έξοδο της εικόνας, τέλος, πατήστε Ctrl + V για να επικολλήσετε αυτήν την εικόνα, δείτε το στιγμιότυπο οθόνης:

3. Αφού μετατρέψετε τον πίνακα σε εικόνα, κάντε δεξί κλικ στην καρτέλα φύλλων που περιέχει την εικόνα του πίνακα που θέλετε να διατηρείτε πάντα ορατή και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος και στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:

Κωδικός VBA: Εισαγάγετε πλωτό πίνακα στο excel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Note: Σε αυτόν τον κωδικό, το Picure1 είναι το όνομα εικόνας που έχετε δημιουργήσει, αλλάξτε το ανάλογα με τις ανάγκες σας.

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

Εισαγάγετε κινούμενο πλαίσιο κειμένου στο Excel με κωδικό VBA

Για να εισαγάγετε ένα κινούμενο πλαίσιο κειμένου, ακολουθεί επίσης ένας κωδικός VBA για την επίλυση αυτής της εργασίας.

1. Πρώτα, πρέπει να εισαγάγετε ένα πλαίσιο κειμένου από το Εργολάβος κάντε κλικ στην καρτέλα Εργολάβος > Κύριο θέμα > Πλαίσιο κειμένου (στοιχείο ελέγχου ActiveX)και, στη συνέχεια, σχεδιάστε το πλαίσιο κειμένου και εισαγάγετε τις πληροφορίες στο πλαίσιο κειμένου όπως χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια, κάντε δεξί κλικ στην καρτέλα φύλλων που περιέχει το πλαίσιο κειμένου που θέλετε να διατηρείτε πάντα ορατό και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος και στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο κενό Μονάδα μέτρησης:

Κωδικός VBA: Εισαγωγή κινούμενου πλαισίου κειμένου στο Excel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

Note: Σε αυτόν τον κωδικό, το TextBox1 είναι το όνομα του κειμένου που έχετε εισαγάγει, αλλάξτε το ανάλογα με τις ανάγκες σας.

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

---

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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

• Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
• Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
• Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
• Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
• Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
• Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
• Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
• Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
• Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά... 

---

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

• Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
• Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
• Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...