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

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

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

Αυτόματο κεντρικό πλαίσιο ελέγχου στο κελί με κωδικό VBA


Αυτόματο κεντρικό πλαίσιο ελέγχου στο κελί με κωδικό VBA

Για να κεντράρετε αυτόματα όλα τα πλαίσια ελέγχου σε κελιά σε ένα τρέχον φύλλο εργασίας, κάντε τα εξής.

1. Στο φύλλο εργασίας, πρέπει να κεντράρετε αυτόματα όλα τα πλαίσια ελέγχου, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παρακαλώ κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον κώδικα VBA στο παράθυρο κώδικα.

Κωδικός VBA: Κεντράρετε αυτόματα όλα τα πλαίσια ελέγχου στα κελιά

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

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

Note: Αυτός ο κωδικός VBA μπορεί να εφαρμοστεί τόσο στο CheckBox (ActiveX Control) όσο και στο CheckBox (Form Control).

Συμβουλή: Εάν θέλετε να εισαγάγετε πολλά πλαίσια ελέγχου σε μια επιλεγμένη περιοχή μαζικά, μπορείτε να δοκιμάσετε το Μαζική εισαγωγή κουτιών ελέγχου χρησιμότητα pf Kutools για 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (9)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το σενάριο VDA σας λειτουργεί εν μέρει. Επειδή όταν το εφάρμοσα, το συνδεδεμένο κελί δίπλα στο πλαίσιο ελέγχου άλλαξε και συνδέθηκε με ένα κελί κάτω από αυτό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτούργησε εξαιρετικά για μένα εκτός από το ότι δεν το ευθυγραμμίζει με το κείμενο στο επόμενο κελί που είναι στοίχιση κάτω. Υπάρχει τρόπος να ευθυγραμμιστούν τα πλαίσια ελέγχου για στοίχιση από κάτω, ώστε να ευθυγραμμιστούν με το κείμενο στο επόμενο κελί; Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το VBA δεν μου λειτουργεί καθόλου. Όταν πατάω το F5, φαίνεται ότι η μονάδα εκτελείται, αλλά τα πλαίσια ελέγχου δεν μετακινήθηκαν.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μετά από λίγους ακόμα πειραματισμούς, κατάλαβα ότι το VBA λειτουργεί για κουτάκια ελέγχου που εισάγονται με μη αυτόματο τρόπο, αλλά αν χρησιμοποιώ ένθετο παρτίδας Kutools, δεν λειτουργεί. Πώς κεντρίζω όλα τα πλαίσια ελέγχου που έχουν εισαχθεί με το Kutools;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου quadma,
Ο κώδικας λειτουργεί επίσης για τα πλαίσια ελέγχου που εισάγονται από το Kutools. Ποια έκδοση του Excel χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ το office 360. Νομίζω ότι το πρόβλημα που αντιμετωπίζω είναι ότι όταν χρησιμοποιώ το ένθετο παρτίδας Kutools, το μέγεθος του αντικειμένου του πλαισίου ελέγχου είναι τόσο πλάτος όσο η στήλη στην οποία έχει εισαχθεί (δηλ. το πλάτος του αντικειμένου του πλαισίου ελέγχου είναι μεγαλύτερο από το ύψος του), με το ίδιο το ορατό πλαίσιο ελέγχου να παραμένει δικαιολογημένο εντός του αντικειμένου. Εάν επιλέξω όλα τα αντικείμενα του πλαισίου ελέγχου και στη συνέχεια αλλάξω το μέγεθός τους έτσι ώστε το ύψος και το μήκος να είναι ίσα και, στη συνέχεια, εκτελέσω το VBA, τότε κεντράρει τα πλαίσια ελέγχου στη στήλη.





Αυτό φαίνεται σαν ένα περιττό βήμα, δεδομένου ότι τα πλαίσια ελέγχου είναι τετράγωνα, γιατί η Kultools δεν κάνει τα αντικείμενα του πλαισίου ελέγχου τετράγωνα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου quadma,
Τα πλαίσια ελέγχου που εισάγονται από το Kutools είναι τα ίδια με τα Πλαίσιο ελέγχου (Έλεγχος φόρμας) που εισάγεται από το Excel.
Δεν καταλαβαίνω πραγματικά που είπες "κάνοντας το αντικείμενο ελέγχου τετραγωνισμένο". Συνήθως ένα πλαίσιο ελέγχου περιλαμβάνει το πεδίο πλαισίου και το πεδίο τιμής. Το Kutools διατηρεί κενή την τιμή των πλαισίων ελέγχου εάν τα επιλεγμένα κελιά είναι κενά. Και αν υπάρχουν τιμές σε επιλεγμένα κελιά, η τιμή του κελιού θα ληφθεί ως η τιμή του πλαισίου ελέγχου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ανέβασα μια φωτογραφία για να δείξω τι εννοώ. Ας ελπίσουμε ότι αυτό βοηθά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια quadma, κατάλαβα την άποψή σου. Θα το σκεφτούμε και σας ευχαριστούμε για την υπομονή σας.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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