Ας υποθέσουμε ότι έχετε καταχωρίσει αριθμούς σε δύο στήλες, εάν ο αριθμός στην πρώτη στήλη είναι μεγαλύτερος από αυτόν στη δεύτερη στήλη, εμφανίστε ΑΛΗΘΕΙΑ, διαφορετικά εμφανίστε Λάθος όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Τώρα μπορείτε να αλλάξετε τον τύπο για να μετατρέψετε TRUE ή FALSE σε σημάδια πλαισίου ελέγχου εύκολα στο Excel.

Αλλάξτε τον αρχικό τύπο σε = IF (original_formula, "þ", "¨")

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

= IF (B3> C3, "þ", "¨")

2. Διατηρήστε επιλεγμένα τα κελιά τύπου, κάντε δεξί κλικ και επιλέξτε κύτταρα μορφή από το μενού περιβάλλοντος.

3. Στο παράθυρο διαλόγου Μορφοποίηση κελιών, μεταβείτε στο γραμματοσειρά καρτέλα, επιλέξτε Περιελίξεις από το γραμματοσειρά πλαίσιο λίστας και κάντε κλικ στο OK κουμπί.

Τώρα θα δείτε ότι οι ειδικοί χαρακτήρες μετατρέπονται σε κουτάκια ελέγχου και μη επιλεγμένα πλαίσια ελέγχου. Δείτε το στιγμιότυπο οθόνης:

Αυτή η ενότητα θα εισαγάγει μια μακροεντολή VBA για τη μετατροπή πολλαπλών πραγματικών και ψευδών σε στοιχεία ελέγχου πλαισίου ελέγχου στο Excel. Κάντε τα εξής:

1. Επιλέξτε τα κελιά ίσα με "ΑΛΗΘΕΙΑ" και "ΛΑΘΟΣ" που θα μετατρέψετε σε πλαίσια ελέγχου.

2. Τύπος άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

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

VBA: Μετατροπή TRUE και FALSE σε στοιχεία ελέγχου πλαισίου ελέγχου στο Excel

Sub ConvertTrueFalseToCheckbox()
Dim xCB As CheckBox
Dim xRg, xCell As Range
Application.ScreenUpdating = False
On Error Resume Next
Set xRg = Selection
For Each xCB In ActiveSheet.CheckBoxes
xCB.Delete
Next
For Each xCell In xRg
If (UCase(xCell.Value) = "TRUE") Or (UCase(xCell.Value) = "FALSE") Then
Set xCB = ActiveSheet.CheckBoxes.Add(xCell.Left, xCell.Top, cDblCheckboxWidth, xCell.Height)
xCB.Value = xCell.Value
xCB.LinkedCell = xCell.Address
xCB.Text = ""
End If
Next
Application.ScreenUpdating = True
End Sub

4. Τύπος F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.

Στη συνέχεια, θα δείτε ότι όλα τα επιλεγμένα TRUE και FALSE μετατρέπονται σε στοιχεία ελέγχου πλαισίου ελέγχου. Το TRUE μετατρέπεται σε ένα πλαίσιο ελέγχου και το FALSE μετατρέπεται σε ένα μη επιλεγμένο πλαίσιο ελέγχου. Δείτε το στιγμιότυπο οθόνης:

Εάν έχετε Kutools για Excel εγκατεστημένο, μπορείτε να το εφαρμόσετε Μαζική εισαγωγή κουτιών ελέγχου δυνατότητα εισαγωγής πολλαπλών στοιχείων ελέγχου πλαισίων μαζικά με ένα κλικ στο Excel.

Kutools για Excel- Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 60 ημερών, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

1. Επιλέξτε τα κελιά ίσα με "ΑΛΗΘΕΙΑ" και "ΛΑΘΟΣ" που θα μετατρέψετε σε πλαίσια ελέγχου και κάντε κλικ Kutools > Κύριο θέμα > Μαζική εισαγωγή κουτιών ελέγχου.

2. Τώρα εισάγεται ένα πλαίσιο ελέγχου σε κάθε επιλεγμένο κελί. Μπορείτε να επιλέξετε με μη αυτόματο τρόπο αυτά τα πλαίσια ελέγχου όπως χρειάζεστε.