Πίνακας περιεχομένων
Οι δηλώσεις υπό όρους χρησιμοποιούνται για την εκτέλεση ενός συνόλου ενεργειών ανάλογα με την καθορισμένη συνθήκη στις γλώσσες προγραμματισμού. Σε αυτό το άρθρο, θα σας δείξουμε τι είναι η Αν - Τότε - Αλλιώς δήλωση υπό όρους στο VBA Τι είναι το Excel και πώς να το χρησιμοποιείτε.
Λήψη βιβλίου εργασίας
Μπορείτε να κατεβάσετε το δωρεάν βιβλίο ασκήσεων Excel από εδώ.
Αν-Εάν-Ελλείψεις σε VBA.xlsm
Εισαγωγή στη δήλωση If - Then - Else στη VBA
VBA If - Then - Else Η δήλωση υπό συνθήκη χρησιμοποιείται κυρίως για να αποφασιστεί η ροή εκτέλεσης των συνθηκών. Αν η συνθήκη είναι αληθής, τότε εκτελείται ένα συγκεκριμένο σύνολο ενεργειών, ενώ αν η συνθήκη είναι ψευδής, τότε εκτελείται ένα άλλο σύνολο ενεργειών.
- Σύνταξη
If condition Then [statements] [Else else_statements] Ή,
If condition Then [statements] [Else [else_statements]] End If Ορίστε,
| Επιχειρήματα | Υποχρεωτικό/ Προαιρετικό | Περιγραφή |
|---|---|---|
| κατάσταση | Απαιτούμενο | Μια αριθμητική έκφραση ή μια έκφραση συμβολοσειράς που αξιολογεί αν η έκφραση είναι Αλήθεια ή Ψευδές . Αν η κατάσταση είναι μηδέν, θεωρείται Ψευδές . |
| δηλώσεις | Προαιρετικό | Μια φόρμα μίας γραμμής που δεν έχει Αλλιώς Μία ή περισσότερες δηλώσεις πρέπει να διαχωρίζονται με άνω και κάτω τελεία. κατάσταση είναι Αλήθεια , τότε εκτελείται αυτή η δήλωση. |
| else_statements | Προαιρετικό | Μία ή περισσότερες δηλώσεις εκτελούνται εάν δεν έχει προηγηθεί κατάσταση είναι Αλήθεια . |
4 παραδείγματα χρήσης της δήλωσης VBA If - Then - Else στο Excel
Σε αυτή την ενότητα, θα μάθετε πώς να χρησιμοποιείτε Αν-Εάν-Αντίθετα στο VBA κώδικα με 4 παραδείγματα.
1. Βρείτε τον μεγαλύτερο αριθμό μεταξύ δύο αριθμών με τη δήλωση If - Then - Else
Αν έχετε δύο αριθμούς και θέλετε να μάθετε ποιος είναι ο μεγαλύτερος (ή ο μικρότερος), τότε μπορείτε να χρησιμοποιήσετε την εντολή Αν-Εάν-Αντίθετα δήλωση στο VBA .
Βήματα:
- Τύπος Alt + F11 στο πληκτρολόγιό σας ή πηγαίνετε στην καρτέλα Προγραμματιστής -> Visual Basic για να ανοίξετε Visual Basic Editor .
- Στο αναδυόμενο παράθυρο κώδικα, από τη γραμμή μενού, κάντε κλικ στην επιλογή Εισαγωγή -> Ενότητα .
- Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τον στο παράθυρο κώδικα.
Private Sub BiggestNumber() Dim Num1 As Integer Dim Num2 As Integer Num1 = 12345 Num2 = 12335 If Num1> Num2 Then MsgBox "Ο 1ος αριθμός είναι μεγαλύτερος από τον 2ο αριθμό" ElseIf Num2> Num1 Then MsgBox "Ο 2ος αριθμός είναι μεγαλύτερος από τον 1ο αριθμό" Else MsgBox "Ο 1ος αριθμός και ο 2ος αριθμός είναι ίσοι" End If End Sub Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.
Εδώ, συγκρίνουμε δύο αριθμούς 12345 και 12335 , για να βρείτε ποιος είναι μεγαλύτερος. Αυτή η διαδικασία είναι συνήθως ιδανική για την εύρεση μεγάλων αριθμών σε ένα μεγάλο σύνολο δεδομένων.
- Τύπος F5 στο πληκτρολόγιό σας ή από τη γραμμή μενού επιλέξτε Εκτέλεση -> Εκτέλεση Sub/UserForm Μπορείτε επίσης να κάνετε κλικ στο μικρό εικονίδιο Play στη γραμμή υπομενού για να εκτελέσετε τη μακροεντολή.
Θα λάβετε το αποτέλεσμα στο Excel's MsgBox
Στην περίπτωσή μας, ο αριθμός 12345 - αποθηκεύεται στη μεταβλητή Num1 - είναι μεγαλύτερο από τον αριθμό 12335 , Num2 Έτσι, το MsgBox μας δείχνει ότι το Ο 1ος αριθμός είναι μεγαλύτερος από τον 2ο αριθμό .
Διαβάστε περισσότερα: Τύπος Excel για τη δημιουργία τυχαίου αριθμού (5 παραδείγματα)
2. Έλεγχος του αποτελέσματος του μαθητή με τη χρήση της δήλωσης If - Then - Else στη VBA
Μπορείτε να ελέγξετε αν ένας μαθητής περνάει ή αποτυγχάνει σε μια εξέταση με αυτή τη δήλωση στο VBA κωδικός.
Βήματα:
- Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
- Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον.
Sub CheckResult() If Range("D5").Value> 33 Then MsgBox "John's Result is Pass" Else MsgBox "John's Result is Fail" End If End Sub Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.
Αυτός ο κώδικας θα ελέγξει αν το Cell D5 έχει τιμή μεγαλύτερη από 33 Αν το κάνει, τότε θα εμφανίσει μια έξοδο, αν όχι, τότε θα εμφανίσει κάτι άλλο.
- Εκτέλεση τη μακροεντολή και θα λάβετε το αποτέλεσμα σύμφωνα με τον κώδικά σας.
Κοιτάξτε το παραπάνω σύνολο δεδομένων με το αποτέλεσμα, Cell D5 κρατάει 95 το οποίο είναι σίγουρα περισσότερο από 33 , ως εκ τούτου, εμφανίζει το Το αποτέλεσμα είναι Pass . Αλλά αν τρέξουμε τον κώδικα για το Cell D7 (22), τότε θα εμφανιζόταν διαφορετικά.
Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε τη δήλωση περίπτωσης της VBA (13 παραδείγματα)
Παρόμοιες αναγνώσεις
- Πώς να χρησιμοποιήσετε τη συνάρτηση Log στο Excel VBA (5 κατάλληλα παραδείγματα)
- Χρήση της συνάρτησης LTrim της VBA στο Excel (4 παραδείγματα)
- Πώς να χρησιμοποιήσετε τη λειτουργία FileDateTime της VBA στο Excel (3 χρήσεις)
- Χρήση του χειριστή Mod της VBA (9 παραδείγματα)
- Λειτουργία VBA EXP στο Excel (5 παραδείγματα)
3. Ενημέρωση σχολίων στη βαθμολογία μαθητή με χρήση πολλαπλών δηλώσεων If - Then - Else στη VBA
Έχετε μάθει πώς να εξάγετε αν ένας μαθητής περνάει ή όχι με ένα μόνο Αν-Εάν-Αντίθετα δήλωση, αλλά αυτή τη φορά θα μάθετε για Πολλαπλά If-Then-Else δηλώσεις με το ακόλουθο παράδειγμα.
Θα τρέξουμε ένα VBA κώδικα για να συμπληρώσετε αυτά τα Σχόλιο κουτιά με βάση πολλαπλές συνθήκες.
Βήματα:
- Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
- Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον.
Sub UpdateComment() For Each grade In Range("D5:D10") If grade = "A" Then grade.Offset(0, 1).Value = "Great Work" ElseIf grade = "B" Then grade.Offset(0, 1).Value = "Keep It Up" ElseIf grade = "C" Then grade.Offset(0, 1).Value = "Needs Improvement" Else grade.Offset(0, 1).Value = "Parents-Teacher Meeting" End If Next grade EndΥπο Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.
Αυτός ο κώδικας θα εκτυπώνει σχόλια ανάλογα με το βαθμό που πέτυχαν οι μαθητές.
- Εκτέλεση αυτόν τον κώδικα και δείτε την ακόλουθη εικόνα όπου τα πλαίσια των σχολίων συμπληρώνονται από τα κατάλληλα αποτελέσματα.
4. Δήλωση If-Then-Else για την ενημέρωση των καρδιακών κατευθύνσεων με βάση τον κώδικα στο Excel
Μπορείτε επίσης να χρησιμοποιήσετε το Αν-Εάν-Αντίθετα για να βρούμε τις καρδιακές κατευθύνσεις με βάση τον κωδικό δείκτη που δόθηκε. Κοιτάξτε την παρακάτω εικόνα όπου θα βρούμε τις κατευθύνσεις με βάση τα αρχικά που έχουν δοθεί.
Βήματα:
- Ανοίξτε το Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
- Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον.
Sub UpdateDir() For Each iDirection In Range("B5:B8") If iDirection = "N" Then iDirection.Offset(0, 1).Value = "North" ElseIf iDirection = "S" Then iDirection.Offset(0, 1).Value = "South" ElseIf iDirection = "E" Then iDirection.Offset(0, 1).Value = "East" Else iDirection.Offset(0, 1).Value = "West" End If Next iDirection EndΥπο Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.
- Εκτέλεση αυτόν τον κώδικα και θα λάβετε τα ονόματα των κατευθύνσεων στα αντίστοιχα κελιά.
Ή, αν θέλετε να βρείτε μόνο μια κατεύθυνση με βάση τον κωδικό, τότε μπορείτε να χρησιμοποιήσετε τον παρακάτω κωδικό.
Sub UpdateDirections() Dim iDirection As String Dim iDirectionName As String iDirection = Range("B5").Value If iDirection = "N" Then iDirectionName = "North" ElseIf iDirection = "S" Then iDirectionName = "South" ElseIf iDirection = "E" Then iDirectionName = "East" Else iDirectionName = "West" End If Range("C5").Value = iDirectionName End Sub Αυτός ο κώδικας θα πάρει την τιμή από το Cell B5 και επιστρέφει το αποτέλεσμα σύμφωνα με αυτό στο Cell C5 .
Για παράδειγμα, αν γράψετε " N " στο Cell B5 , θα σας δώσει " Βόρεια ; αν γράψετε " S " στο Cell B5 , θα σας δείξει " Νότια " στο Cell C5 .
Συμπέρασμα
Αυτό το άρθρο σας έδειξε πώς να χρησιμοποιήσετε το Αν - Τότε - Αλλιώς δήλωση στο Excel με VBA Ελπίζω αυτό το άρθρο να σας ήταν πολύ χρήσιμο. Μη διστάσετε να ρωτήσετε αν έχετε οποιεσδήποτε ερωτήσεις σχετικά με το θέμα.
