Πώς να εμφανιστεί το πλαίσιο μηνυμάτων εάν το κελί είναι μεγαλύτερο ή μικρότερο από μια συγκεκριμένη τιμή στο Excel;
Εάν ένα κελί είναι μεγαλύτερο ή μικρότερο από ένα άλλο κελί, πρέπει να εμφανίσω ένα παράθυρο μηνύματος για ειδοποίηση στο Excel. Πώς να λύσετε αυτό το πρόβλημα στο Excel; Αυτό το άρθρο, θα μιλήσω για κάποιους κωδικούς για την αντιμετώπισή του.
Ανοίξτε ένα πλαίσιο μηνύματος εάν η τιμή του κελιού σε μια στήλη είναι μεγαλύτερη ή μικρότερη από ένα άλλο κελί
Ας υποθέσουμε ότι έχω έναν συγκεκριμένο αριθμό 100 στο κελί A1, τώρα, όταν ο αριθμός που εισάγεται στη στήλη D είναι μεγαλύτερος από 100 στο κελί A1, θα πρέπει να εμφανιστεί ένα πλαίσιο μηνύματος για να υπενθυμίσει στον χρήστη.
Εδώ, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να το ολοκληρώσετε, ακολουθήστε τα παρακάτω βήματα:
1. Μεταβείτε στο φύλλο εργασίας που θέλετε να χρησιμοποιήσετε.
2. Κάντε δεξί κλικ στην καρτέλα φύλλων και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο κενό παράθυρο της ενότητας, δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: εμφανίζεται ένα πλαίσιο μηνύματος εάν η τιμή του κελιού σε μια στήλη είναι μεγαλύτερη ή μικρότερη από ένα κελί
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Exit Sub
xNum = (Sheets(xWSName).Range(xA).Value)
If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
End If
End Sub
Note: Στον παραπάνω κώδικα, Sheet1 είναι το φύλλο εργασίας σας που θέλετε να χρησιμοποιήσετε. A1 είναι η τιμή κελιού με την οποία θέλετε να συγκρίνετε. Δ:Δ είναι η στήλη που θέλετε να συγκρίνετε με το κελί A1.
3. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο του κώδικα, από εδώ και στο εξής, θα εμφανιστεί ένα πλαίσιο μηνύματος εάν εισαγάγετε έναν αριθμό στη στήλη D που είναι μεγαλύτερος από 100, δείτε στιγμιότυπο οθόνης:
Ανοίξτε ένα πλαίσιο μηνύματος εάν η τιμή του κελιού σε ένα κελί είναι μεγαλύτερη ή μικρότερη από ένα άλλο κελί
Εάν θέλετε να εμφανίζεται ένα πλαίσιο μηνύματος όταν μια τιμή κελιού είναι μεγαλύτερη ή μικρότερη από ένα άλλο κελί, εφαρμόστε τον παρακάτω κωδικό:
1. Μεταβείτε στο φύλλο εργασίας που θέλετε να χρησιμοποιήσετε.
2. Κάντε δεξί κλικ στην καρτέλα φύλλων και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο κενό παράθυρο της ενότητας, δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: εμφανίζεται ένα πλαίσιο μηνύματος εάν η τιμή του κελιού είναι μεγαλύτερη ή μικρότερη από ένα κελί
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub
Note: Στον παραπάνω κώδικα, A1 και D1 είναι τα δύο κελιά με τα οποία θέλετε να συγκρίνετε.
3. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο του κώδικα, όταν εισάγετε μια τιμή που είναι μικρότερη από την τιμή στο κελί A1, θα εμφανιστεί ένα πλαίσιο μηνύματος όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:
Περισσότερα σχετικά άρθρα του κουτιού αναδυόμενων μηνυμάτων:
- Δημιουργήστε αναδυόμενο πλαίσιο μηνύματος όταν ανοίγετε ένα αρχείο Excel
- Σε συγκεκριμένη περίπτωση, μπορεί να θέλετε να εμφανίζεται πάντα ένα πλαίσιο μηνυμάτων για να σας υπενθυμίζει τι πρέπει να κάνετε πρώτα όταν ανοίγετε ένα συγκεκριμένο βιβλίο εργασίας, αυτό μπορεί να σας βοηθήσει να θυμάστε να κάνετε το πιο σημαντικό πράγμα στην καθημερινή σας εργασία. Και σε αυτό το άρθρο, θα μιλήσω για το πώς να δημιουργήσετε ένα αναδυόμενο πλαίσιο μηνύματος κατά το άνοιγμα ενός αρχείου Excel.
- Αναδυόμενο πλαίσιο μηνύματος εάν η τιμή κελιού αλλάζει εντός εύρους στο Excel
- Μερικές φορές πρέπει να υπενθυμίσετε στον εαυτό σας τις αλλαγές εντός ενός εύρους σε ένα συγκεκριμένο φύλλο εργασίας. Έτσι, ένα αναδυόμενο πλαίσιο μηνυμάτων θα σας κάνει εύνοια αν η τιμή του κελιού έχει αλλάξει σε ένα συγκεκριμένο εύρος. Μπορείτε να το επιτύχετε με μια μέθοδο VBA σε αυτό το άρθρο.
- Αναδυόμενο πλαίσιο μηνύματος όταν κάνετε κλικ σε ένα συγκεκριμένο κελί στο Excel
- Αυτό το άρθρο στοχεύει να σας δείξει τη μέθοδο εμφάνισης του πλαισίου μηνυμάτων όταν κάνετε κλικ σε ένα συγκεκριμένο κελί στο Excel.
- Δημιουργήστε ένα πλαίσιο μηνύματος Ναι Όχι πριν εκτελέσετε μια μακροεντολή στο Excel
- Στο Excel, μπορείτε να ενεργοποιήσετε απευθείας μια μακροεντολή πατώντας το πλήκτρο F5 ή κάντε κλικ στο κουμπί Εκτέλεση στο παράθυρο της Microsoft Visual Basic για εφαρμογές. Ωστόσο, μερικές φορές, μπορεί να θέλετε να δημιουργήσετε ένα πλαίσιο μηνύματος που θα ρωτά τον χρήστη εάν θέλει να εκτελέσει τη μακροεντολή. Εάν ναι, τότε συνεχίστε να εκτελείτε τον κωδικό, εάν όχι, σταματήστε να εκτελείτε τον κωδικό. Σε αυτό το άρθρο, θα μιλήσω για το πώς να δημιουργήσετε ένα πλαίσιο μηνύματος ναι όχι πριν εκτελέσετε μια μακροεντολή στο Excel.
- Δημιουργήστε ένα χρονοδιακόπτη θυρίδας μηνυμάτων για να κλείσετε αυτόματα το πλαίσιο μηνυμάτων μετά από ορισμένο χρόνο
- Μπορείτε να χρησιμοποιείτε συχνά τη δέσμη ενεργειών VBA για την επίλυση προβλημάτων ενώ χρησιμοποιείτε το βιβλίο εργασίας του Excel. Και θα εμφανιστούν πλαίσια μηνυμάτων κατά την εκτέλεση του σεναρίου. Σε ορισμένες περιπτώσεις, θα θέλατε ορισμένα καθορισμένα πλαίσια μηνυμάτων να κλείνουν αυτόματα μετά από ένα ορισμένο χρονικό διάστημα αντί να τα κλείσετε χειροκίνητα. Σε αυτό το άρθρο, θα σας δείξουμε τη μέθοδο δημιουργίας ενός χρονοδιακόπτη θυρίδας μηνυμάτων για να κλείσετε αυτόματα το πλαίσιο μηνυμάτων μετά από συγκεκριμένο χρόνο στο Excel.
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!