Πώς να αλλάξετε το χρώμα του κειμένου με βάση την τιμή στο Excel;
Στο Excel, μπορούμε να εφαρμόσουμε τη συνάρτηση μορφοποίησης υπό όρους για να αλλάξουμε το χρώμα του φόντου με βάση την τιμή του κελιού, αλλά, σε αυτό το άρθρο, θα μιλήσω για τον τρόπο αλλαγής του χρώματος του πλαισίου κειμένου με βάση την τιμή ή την τιμή του κελιού στο πλαίσιο κειμένου.
Αλλαγή χρώματος πλαισίου κειμένου με βάση την τιμή κελιού με τον κωδικό VBA
Αλλαγή χρώματος πλαισίου κειμένου με βάση την τιμή στο πλαίσιο κειμένου με κωδικό VBA
Αλλαγή χρώματος πλαισίου κειμένου με βάση την τιμή κελιού με τον κωδικό VBA
Ας πούμε, εάν η τιμή κελιού στο Α1 είναι μεγαλύτερη από την τιμή κελιού στο Β1, θέλω το πλαίσιο κειμένου να γεμίσει με κόκκινο χρώμα, αντίθετα, το πλαίσιο κειμένου θα πρέπει να είναι γεμάτο με κίτρινο χρώμα. Επιτύχετε αυτήν την εργασία με τα ακόλουθα βήματα:
1. Εισαγάγετε ένα πλαίσιο κειμένου κάνοντας κλικ Εργολάβος > Κύριο θέμα > Πλαίσιο κειμένου (ActiveX Control)και, στη συνέχεια, σχεδιάστε ένα πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, κάντε δεξί κλικ στο πλαίσιο κειμένου και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, αντικαταστήστε τον αρχικό κωδικό με τον ακόλουθο κώδικα VBA στην κενή μονάδα:
Κωδικός VBA: Αλλαγή χρώματος πλαισίου κειμένου με βάση τις τιμές κελιών:
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
Note: Στον παραπάνω κώδικα, TextBox1 είναι το όνομα του κειμένου που εισαγάγατε, A1 και B1 είναι τα δύο κελιά στα οποία θέλετε να αλλάξετε το χρώμα του κειμένου, αλλάξτε τα ανάλογα με τις ανάγκες σας.
3. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα και βγείτε από το Λειτουργία σχεδίασης, τώρα, εάν το κελί A1 είναι μεγαλύτερο από το B1, όταν πληκτρολογείτε κείμενο στο πλαίσιο κειμένου, θα γεμίσει με κόκκινο χρώμα και εάν το A1 είναι μικρότερο από το B1, όταν εισάγετε τιμή στο πλαίσιο κειμένου, θα γεμίσει με κίτρινο χρώμα, δείτε το στιγμιότυπο οθόνης:
Αλλαγή χρώματος πλαισίου κειμένου με βάση την τιμή στο πλαίσιο κειμένου με κωδικό VBA
Εάν θέλετε να αλλάξετε το χρώμα του πλαισίου κειμένου με βάση την τιμή στο πλαίσιο κειμένου, για παράδειγμα, όταν η τιμή στο πλαίσιο κειμένου είναι μεταξύ 1 και 10, το γεμάτο χρώμα του πλαισίου κειμένου είναι κόκκινο, το χρώμα του κειμένου είναι πράσινο εάν η τιμή είναι μεταξύ 11 και 20, εάν είναι άλλες τιμές, το χρώμα του κειμένου είναι κίτρινο. Για να αντιμετωπίσετε αυτήν την εργασία, εφαρμόστε τον παρακάτω κωδικό VBA.
1. Αφού εισαγάγετε ένα πλαίσιο κειμένου, κάντε δεξί κλικ και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, αντικαταστήστε τον αρχικό κωδικό με τον ακόλουθο κώδικα VBA στην κενή μονάδα:
Κωδικός VBA: Αλλαγή χρώματος πλαισίου κειμένου με βάση την τιμή στο πλαίσιο κειμένου:
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
Note: Στον παραπάνω κώδικα, Πλαίσιο κειμένου 1 είναι το όνομα του πλαισίου κειμένου που έχετε εισαγάγει και μπορείτε να αλλάξετε τις τιμές και το χρώμα φόντου εντός του κώδικα στο δικό σας.
2. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα και βγείτε από το Λειτουργία σχεδίασης, τώρα, εάν εισαγάγετε την τιμή μεταξύ 1 και 10 στο πλαίσιο κειμένου, το χρώμα φόντου του θα γίνει κόκκινο, η τιμή μεταξύ 11 και 20, το χρώμα φόντου του πλαισίου κειμένου θα γίνει πράσινο, άλλες τιμές, θα γίνει κίτρινο όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Σχετικά άρθρα:
Πώς να εισαγάγετε την εικόνα στο πλαίσιο κειμένου;
Πώς να ορίσετε μια προεπιλεγμένη τιμή σε ένα πλαίσιο κειμένου;
Πώς επιτρέπεται η εισαγωγή μόνο αριθμών στο πλαίσιο κειμένου;
Πώς να εφαρμόσετε ορθογραφικό έλεγχο στο πλαίσιο κειμένου;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!