Excel VBA IF Else Statement
Δεν υπάρχει δήλωση IF Else στο φύλλο εργασίας και μπορεί να χρησιμοποιηθεί μόνο στον κώδικα VBA, ενώ εργαζόμαστε στο VBA μπορούμε να παρέχουμε μια συνθήκη που είναι η δήλωση συνθήκης If και εάν πληρούται ένα ορισμένο σύνολο οδηγιών τότε εκτελείται και εάν η συνθήκη αποτυγχάνει την εντολή, τότε εκτελείται η δήλωση αλλιώς.
Το VBA δεν διαφέρει όταν πρόκειται για λογικές δοκιμές. Λειτουργεί με τον ίδιο τρόπο όπως και στον τρόπο που λειτουργεί σε κανονικά φύλλα εργασίας. Από όλες τις λογικές συναρτήσεις, η συνάρτηση "IF" χρησιμοποιείται κυρίως από την παρτίδα. Χρησιμοποιώντας το IF, μπορούμε να πραγματοποιήσουμε μια λογική δοκιμή και να λάβουμε τις αποφάσεις εάν ικανοποιηθεί ο λογικός έλεγχος και επίσης να λάβουμε εναλλακτικές αποφάσεις εάν ο λογικός έλεγχος δεν ικανοποιηθεί.
Παρακάτω είναι η σύνταξη της συνθήκης IF Else.
Εάν έπειτα εάν ο λογικός έλεγχος είναι ΑΛΗΘΟΣ Εάν ο λογικός έλεγχος είναι ΛΑΘΟΣ Λήξη IF
Τι είναι το VBA IF then Else Statement;
Μόλις η παρεχόμενη λογική δοκιμή είναι FALSE, χρειαζόμαστε κάποια εναλλακτική εργασία για εκτέλεση ως μέρος του κώδικα. Έτσι, "IF ELSE" σημαίνει ότι εάν ο λογικός έλεγχος είναι FALSE, τι άλλο πρέπει να κάνει.
Για να κατανοήσουμε καλύτερα το παρακάτω παράδειγμα, παρέχουμε το αποτέλεσμα ως "10 είναι μεγαλύτερο" μόνο εάν η λογική δοκιμή είναι ΑΛΗΘΕΙΑ. Ακόμα, στο λογικό αποτέλεσμα FALSE, μπορούμε να παρέχουμε το εναλλακτικό αποτέλεσμα καθώς το "10 είναι μικρότερο".
Έτσι, όταν παρέχονται οι λογικές δοκιμές και ο ΑΛΗΘΟΣ κωδικός ανταλλακτικού γράφεται στην επόμενη γραμμή, εισαγάγετε τη λέξη "ΕΛΣΕ".
ELSE σημαίνει ότι εάν η λογική δοκιμή δεν είναι ΑΛΗΘΕΙΑ, χρειαζόμαστε το αποτέλεσμα καθώς το "10 είναι μικρότερο".
Κώδικας:
Sub IF_Else_Example1 () Εάν 10> 11, τότε το MsgBox "10 είναι μεγαλύτερο" Το Else MsgBox "10 είναι μικρότερο" End if End Sub
Τώρα ο κώδικας μας δίνει τουλάχιστον οποιοδήποτε από τα παραπάνω αποτελέσματα. Εκτελέστε τον κωδικό και δείτε το αποτέλεσμα.
Δεδομένου ότι έχουμε παράσχει το εναλλακτικό αποτέλεσμα εάν η λογική δοκιμή είναι FALSE, έχει εμφανίσει το εναλλακτικό αποτέλεσμα ως "10 είναι μικρότερο" επειδή το 10 είναι μικρότερο από τον άλλο αριθμό 11.
Παράδειγμα
Για παράδειγμα, δείτε τα παρακάτω δεδομένα.
Με αυτά τα δεδομένα, πρέπει να φτάσουμε στην κατάσταση με βάση το "Κόστος" κάθε προϊόντος. Για να φτάσετε την κατάσταση παρακάτω είναι τα κριτήρια.
Εάν η τιμή κόστους είναι> 50, η κατάσταση θα πρέπει να είναι " Ακριβά " ή αλλιώς η κατάσταση θα πρέπει να είναι " Μη ακριβή ".
Εδώ πρέπει να ελέγξουμε την τιμή κόστους, δηλαδή, λογική δοκιμή αν η τιμή κόστους είναι> 50 ή όχι. Εάν η λογική δοκιμή είναι ΑΛΗΘΕΙΑ, δηλαδή, η τιμή κόστους είναι μεγαλύτερη από 50, χρειαζόμαστε την κατάσταση ως "Ακριβής" και εάν η λογική δοκιμή είναι ΛΑΘΟΣ, δηλαδή, η τιμή κόστους είναι μικρότερη από 50, χρειαζόμαστε το εναλλακτικό αποτέλεσμα ως "Δεν είναι ακριβό."
Εντάξει, ας γράψουμε τον κωδικό τώρα. Πριν από αυτό, αντιγράψτε και επικολλήστε τον παραπάνω πίνακα σε ένα φύλλο εργασίας excel.
Βήμα 1: Ξεκινήστε την υποδιαδικασία.
Υπο IF_ELSE_ Παράδειγμα 2 () Τέλος
Βήμα 2: Δηλώστε τη μεταβλητή ως τύπο δεδομένων ακέραιου.
Dim k ως ακέραιος
Βήμα 3: Δεδομένου ότι πρέπει να δοκιμάσουμε περισσότερες από μία τιμές κελιών, πρέπει να χρησιμοποιήσουμε FOR VBA LOOP για να βρούμε τα κελιά και να εφαρμόσουμε τη λογική για όλα τα κελιά.
Πρέπει να ισχύουν λογικές εξετάσεις από την 2η σειρά έως 8 ου σειρά, έτσι ώστε να αρχίσει ΓΙΑ LOOP από 2 έως 8.
Κώδικας:
Για k = 2 έως 8 Επόμενο k
Βήμα 4: Μέσα σε αυτόν τον βρόχο, πρέπει να εκτελέσουμε τη λογική δοκιμή. Ανοίξτε λοιπόν τη δήλωση IF και επιλέξτε το πρώτο κελί χρησιμοποιώντας την ιδιότητα CELLS.
Κώδικας:
Εάν κελιά (k, 2). Τιμή> 50 τότε
Εδώ τα κελιά (k, 2) σημαίνει σειρά (τιμή k) και στήλη 2.
Βήμα 5: Εάν αυτή η τιμή κελιού είναι> 50, χρειαζόμαστε το αποτέλεσμα ως "Ακριβά" στο επόμενο κελί στήλης. Έτσι ο κώδικας θα είναι -
Κώδικας:
Κελιά (k, 3). Αξία = "Ακριβά"
Βήμα 6: Εάν η δοκιμή δεν είναι ΑΛΗΘΕΙΑ, χρειαζόμαστε τα αποτελέσματα της δήλωσης ELSE, δηλαδή, "Μη ακριβό".
Κώδικας:
Sub IF_ELSE_Example2 () Dim k As Integer For k = 2 to 8 If Cells (k, 2). Value> 50 Then Cells (k, 3). Value = "Expensive" Else Cells (k, 3). Value = "Not Ακριβά "Τέλος αν Επόμενο k End Sub
Αυτός ο κωδικός θα περάσει από 2η έως 8η σειρά δοκιμών των αριθμών και θα φτάσει στο αποτέλεσμα με βάση την τιμή κόστους.
Έτσι, μπορούμε να χρησιμοποιήσουμε το If-Else για να φτάσουμε για εναλλακτικά αποτελέσματα.
Πράγματα που πρέπει να θυμάστε
- Η πρόταση Else είναι για λογικό τεστ FALSE.
- Εάν θέλετε να εφαρμόσετε περισσότερες από δύο λογικές δοκιμές στο excel, πρέπει να χρησιμοποιήσουμε τη δήλωση ELSE IF.
- Στην περίπτωση εκτέλεσης εργασιών για περισσότερα από ένα κελιά, πρέπει να χρησιμοποιήσουμε βρόχους.
- Εάν η δήλωση Else μπορεί να ελέγξει μόνο ένα λογικό τεστ.
