Πώς να εκτελέσετε μακροεντολή με βάση την τιμή κελιού στο Excel;
Ας υποθέσουμε, έχω πολλούς κωδικούς μακροεντολών στο βιβλίο εργασίας μου και τώρα θέλω να εκτελέσω αυτούς τους κωδικούς με βάση την τιμή του κελιού. Σε αυτό το άρθρο, θα μιλήσω για διάφορες καταστάσεις που ενδέχεται να υποφέρετε στην καθημερινή σας εργασία όταν χρησιμοποιείτε το Excel.
Εκτελέστε ή ενεργοποιήστε τη μακροεντολή εάν η τιμή κελιού είναι μεγαλύτερη ή μικρότερη από μια συγκεκριμένη τιμή με τον κώδικα VBA
Για παράδειγμα, εάν η τιμή στο κελί A1 είναι μεταξύ 10 και 50, εκτελέστε το macro1 και εάν η τιμή είναι μεγαλύτερη από 50, εκτελέστε το macro2. Για να επιλύσετε αυτήν την εργασία στο Excel, εφαρμόστε τον ακόλουθο κώδικα VBA.
1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να εκτελέσετε τη μακροεντολή βάσει μιας τιμής κελιού και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος και στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:
Κωδικός VBA: Εκτέλεση μακροεντολής εάν η τιμή κελιού είναι μεγαλύτερη ή μικρότερη από:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Note: Στον παραπάνω κωδικό:
A1 είναι το κελί που περιέχει τη συγκεκριμένη τιμή στην οποία θέλετε να εκτελέσετε τη μακροεντολή.
Περίπτωση 10 έως 50: Macro1: σημαίνει ότι εάν η τιμή είναι μεταξύ 10 και 50, εκτελέστε το Macro1;
Περίπτωση είναι> 50: Macro2: σημαίνει ότι εάν η τιμή είναι μεγαλύτερη από 50, εκτελέστε το Macro2.
Αλλάξτε αυτά τα ονόματα και τα κριτήρια μακροεντολών ανάλογα με τις ανάγκες σας και μπορείτε επίσης να προσθέσετε περισσότερα κριτήρια μετά το Περίπτωση γραφή.
2. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, τώρα, όταν η τιμή που εισάγετε είναι μεταξύ 10 και 50 στο κελί A1, θα ενεργοποιηθεί το Macro1, εάν η τιμή που έχετε εισαγάγει είναι μεγαλύτερη από 50, εκτελείται το Macro2.
Εκτελέστε ή ενεργοποιήστε μακροεντολή εάν η τιμή κελιού ισούται με συγκεκριμένο κείμενο με τον κώδικα VBA
Εάν θέλετε να ενεργοποιήσετε τη μακροεντολή βάσει συγκεκριμένου κειμένου σε ένα κελί, για παράδειγμα, να εκτελέσετε τη μακροεντολή1 εάν εισαχθεί το κείμενο "Διαγραφή" και να εκτελέσετε τη μακροεντολή2 εάν πληκτρολογήσετε το κείμενο "Εισαγωγή". Ο παρακάτω κώδικας μπορεί να σας βοηθήσει.
1. Κάντε δεξί κλικ στο φύλλο που θέλετε να εκτελέσετε τη μακροεντολή με βάση την τιμή κελιού και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος και στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:
Κωδικός VBA: Εκτελέστε τη μακροεντολή εάν η τιμή του κελιού είναι ένα συγκεκριμένο κείμενο
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Note: Στον παραπάνω κώδικα, "Διαγραφή"Και"Κύριο θέμαΕίναι τα κείμενα κελιού στα οποία θέλετε να εκτελέσετε μακροεντολές βάσει και Μακροεντολή1 και Μακροεντολή2 είναι οι μακροεντολές που θέλετε να εκτελέσετε βάσει κειμένου. Αλλάξτε τα ανάλογα με τις ανάγκες σας.
2. Στη συνέχεια, αποθηκεύστε αυτόν τον κωδικό και κλείστε το παράθυρο, τώρα, όταν εισαγάγετε το κείμενο "Διαγραφή" στο κελί A1, ενεργοποιείται η μακροεντολή1, εάν εισαχθεί το κείμενο "Εισαγωγή", θα εκτελεστεί η μακροεντολή2.
Σχετικά άρθρα:
Πώς να εκτελέσετε μακροεντολή όταν αλλάζει η τιμή κελιού στο Excel;
Πώς να εκτελέσετε αυτόματα τη μακροεντολή πριν από την εκτύπωση στο Excel;
Πώς να εκτελέσετε μακροεντολή με βάση την τιμή που επιλέγεται από την αναπτυσσόμενη λίστα στο Excel;
Πώς να εκτελέσετε μακροεντολή κάνοντας κλικ στους υπερσυνδέσμους στο Excel;
Πώς να εκτελέσετε μακροεντολή όταν το φύλλο έχει επιλεγεί από ένα βιβλίο εργασίας;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!