Μετάβαση στο κύριο περιεχόμενο

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

Συγγραφέας: Xiaoyang Τελευταία τροποποίηση: 2019-10-09

Εάν ένα κελί είναι μεγαλύτερο ή μικρότερο από ένα άλλο κελί, πρέπει να εμφανίσω ένα παράθυρο μηνύματος για ειδοποίηση στο 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

Σημείωση: Στον παραπάνω κώδικα, 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

Σημείωση: Στον παραπάνω κώδικα, A1 και D1 είναι τα δύο κελιά με τα οποία θέλετε να συγκρίνετε.

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


Περισσότερα σχετικά άρθρα του κουτιού αναδυόμενων μηνυμάτων:

  • Δημιουργήστε αναδυόμενο πλαίσιο μηνύματος όταν ανοίγετε ένα αρχείο Excel
  • Σε συγκεκριμένη περίπτωση, μπορεί να θέλετε να εμφανίζεται πάντα ένα πλαίσιο μηνυμάτων για να σας υπενθυμίζει τι πρέπει να κάνετε πρώτα όταν ανοίγετε ένα συγκεκριμένο βιβλίο εργασίας, αυτό μπορεί να σας βοηθήσει να θυμάστε να κάνετε το πιο σημαντικό πράγμα στην καθημερινή σας εργασία. Και σε αυτό το άρθρο, θα μιλήσω για το πώς να δημιουργήσετε ένα αναδυόμενο πλαίσιο μηνύματος κατά το άνοιγμα ενός αρχείου Excel.
  • Δημιουργήστε ένα πλαίσιο μηνύματος Ναι Όχι πριν εκτελέσετε μια μακροεντολή στο Excel
  • Στο Excel, μπορείτε να ενεργοποιήσετε απευθείας μια μακροεντολή πατώντας το πλήκτρο F5 ή κάντε κλικ στο κουμπί Εκτέλεση στο παράθυρο της Microsoft Visual Basic για εφαρμογές. Ωστόσο, μερικές φορές, μπορεί να θέλετε να δημιουργήσετε ένα πλαίσιο μηνύματος που θα ρωτά τον χρήστη εάν θέλει να εκτελέσει τη μακροεντολή. Εάν ναι, τότε συνεχίστε να εκτελείτε τον κωδικό, εάν όχι, σταματήστε να εκτελείτε τον κωδικό. Σε αυτό το άρθρο, θα μιλήσω για το πώς να δημιουργήσετε ένα πλαίσιο μηνύματος ναι όχι πριν εκτελέσετε μια μακροεντολή στο Excel.
  • Δημιουργήστε ένα χρονοδιακόπτη θυρίδας μηνυμάτων για να κλείσετε αυτόματα το πλαίσιο μηνυμάτων μετά από ορισμένο χρόνο
  • Μπορείτε να χρησιμοποιείτε συχνά τη δέσμη ενεργειών VBA για την επίλυση προβλημάτων ενώ χρησιμοποιείτε το βιβλίο εργασίας του Excel. Και θα εμφανιστούν πλαίσια μηνυμάτων κατά την εκτέλεση του σεναρίου. Σε ορισμένες περιπτώσεις, θα θέλατε ορισμένα καθορισμένα πλαίσια μηνυμάτων να κλείνουν αυτόματα μετά από ένα ορισμένο χρονικό διάστημα αντί να τα κλείσετε χειροκίνητα. Σε αυτό το άρθρο, θα σας δείξουμε τη μέθοδο δημιουργίας ενός χρονοδιακόπτη θυρίδας μηνυμάτων για να κλείσετε αυτόματα το πλαίσιο μηνυμάτων μετά από συγκεκριμένο χρόνο στο Excel.

  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
kte καρτέλα 201905
  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations