ΕΑΝ ή δεν είναι μία δήλωση, αυτές είναι δύο λογικές συναρτήσεις που χρησιμοποιούνται για να συνδυαστούν μερικές φορές στο VBA, χρησιμοποιούμε αυτές τις δύο λογικές συναρτήσεις μαζί όταν έχουμε περισσότερα από ένα κριτήρια για έλεγχο και εάν πληρούται κάποιο από τα κριτήρια, παίρνουμε το πραγματικό αποτέλεσμα, όταν χρησιμοποιούμε τη δήλωση if ή δήλωση χρησιμοποιείται μεταξύ των δύο κριτηρίων της δήλωσης If.
ΕΑΝ Ή Λειτουργία στο VBA
Οι λογικές συναρτήσεις αποτελούν τον πυρήνα των υπολογισμών βάσει κριτηρίων. Το "IF" είναι η πιο δημοφιλής λογική συνάρτηση, είτε ως συνάρτηση φύλλου εργασίας είτε ως συνάρτηση VBA, εξυπηρετεί άριστα για τις ανάγκες μας. Αλλά μια ακόμη λογική συνάρτηση, "OR" στο excel, είναι η πιο υποτιμημένη συνάρτηση. Είναι επίσης σημαντικό να μάθετε όταν πρόκειται για την επίλυση πολύπλοκων υπολογισμών. Σε αυτό το άρθρο, θα σας παρουσιάσουμε λεπτομερώς τη λειτουργία VBA IF OR Function. Διαβάστε το πλήρες άρθρο για να δείτε λεπτομερώς τη λειτουργία.
Πώς να χρησιμοποιήσετε το IF με τη λειτουργία OR στο VBA;
Θα σας δείξουμε ένα απλό παράδειγμα χρήσης της λειτουργίας IF OR στο VBA.
Ένας συνδυασμός λογικών συναρτήσεων είναι τα καλύτερα ζεύγη στο excel. Όταν συνδυάζετε πολλούς λογικούς τύπους μέσα στον άλλο λογικό τύπο, υποδηλώνει ότι ο υπολογισμός απαιτεί πολλούς όρους για έλεγχο.
Τώρα, κοιτάξτε τη σύνταξη της συνάρτησης IF OR στο VBA.
(Δοκιμή) Ή (Δοκιμή) Ή (Δοκιμή)
Αυτό είναι το ίδιο όπως είδαμε στο παράδειγμα του φύλλου εργασίας. Για καλύτερη κατανόηση, δείτε το παρακάτω παράδειγμα.
Έχουμε την τιμή του προηγούμενου μήνα, την τελευταία μέση τιμή 6 μηνών και την τρέχουσα μηνιαία τιμή εδώ.
Για να αποφασίσουμε αν θα αγοράσουμε το προϊόν ή όχι, πρέπει να κάνουμε κάποιες δοκιμές εδώ και αυτές οι δοκιμές είναι.
Εάν η τρέχουσα τιμή είναι μικρότερη ή ίση με οποιαδήποτε από τις άλλες δύο τιμές, θα πρέπει να έχουμε το αποτέλεσμα ως "Αγορά" ή αλλιώς θα πρέπει να έχουμε το αποτέλεσμα ως "Μην αγοράζετε".
Βήμα 1: Ανοίξτε την κατάσταση IF εντός της υποδιαδικασίας.
Κώδικας:
Υπο IF_OR_Παράδειγμα1 () Εάν Λήξη Υπο
Βήμα 2: Μέσα στην συνθήκη IF, εφαρμόστε την πρώτη λογική δοκιμή ως Range ("D2"). Value <= Range ("B2"). Value
Κώδικας:
Υπο IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value End Sub
Βήμα 3: Πραγματοποιήθηκε η πρώτη λογική κατάσταση, ανοίξτε τώρα τη δήλωση Ή.
Κώδικας:
Υπο IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR End Sub
Βήμα 4: Τώρα εφαρμόστε τη δεύτερη λογική συνθήκη ως Range ("D2"). Value <= Range ("C2"). Value
Κώδικας:
Υπο IF_OR_ Παράδειγμα 1 () Εάν Εύρος ("D2"). Τιμή <= Εύρος ("B2"). Τιμή Ή Εύρος ("D2"). Τιμή <= Εύρος ("C2"). Τιμή λήξης Υπο
Βήμα 5: Εντάξει, τελειώσαμε με τις λογικές δοκιμές εδώ. Μετά τις λογικές δοκιμές, βάλτε τη λέξη "Τότε".
Κώδικας:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value or Range ("D2"). Value <= Range ("C2"). Value then End Sub
Βήμα 6: Στην επόμενη γραμμή, γράψτε ποιο θα πρέπει να είναι το αποτέλεσμα εάν ο λογικός έλεγχος είναι ΑΛΗΘΟΣ. Εάν η συνθήκη είναι ΑΛΗΘΕΙΑ, χρειαζόμαστε το αποτέλεσμα ως "Αγορά" στο κελί E2.
Κώδικας:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value or Range ("D2"). Value <= Range ("C2"). Value then Range ("E2"). Τιμή = "Αγορά" End Sub
Βήμα 7: Εάν το αποτέλεσμα είναι ΛΑΘΟΣ, θα πρέπει να έχουμε το αποτέλεσμα ως "Μην αγοράζετε". Στην επόμενη γραμμή, βάλτε το "Else" και γράψτε τον κωδικό στην επόμενη γραμμή.
Κώδικας:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value or Range ("D2"). Value <= Range ("C2"). Value then Range ("E2"). Τιμή = "Αγορά" Else Range ("E2"). Value = "Do not Buy" End Sub
Βήμα 8: Κλείστε τη δήλωση IF με τη λέξη "End If."
Κώδικας:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value or Range ("D2"). Value <= Range ("C2"). Value then Range ("E2"). Τιμή = "Αγορά" Else Range ("E2"). Value = "Do not Buy" End if End Sub
Εντάξει, τελειώσαμε με το τμήμα κωδικοποίησης.
Ας εκτελέσουμε αυτόν τον κώδικα χρησιμοποιώντας το F5 ή χειροκίνητα μέσω της επιλογής εκτέλεσης και να δούμε ποιο είναι το αποτέλεσμα στο κελί E2.
Έχουμε το αποτέλεσμα ως "Αγορά" επειδή η τρέχουσα μηνιαία τιμή της Apple είναι μικρότερη από την τιμή τόσο του "Προηγούμενου μήνα" όσο και της "Μέσης τιμής 6 μηνών".
Λειτουργία IF Ή VBA με βρόχους (Advanced)
Μόλις καταλάβετε τον τύπο, προσπαθήστε να τον χρησιμοποιήσετε με μεγαλύτερο αριθμό κελιών. Στην περίπτωση μεγαλύτερου αριθμού κελιών, δεν μπορούμε να γράψουμε καμία γραμμή κώδικα, επομένως πρέπει να χρησιμοποιήσουμε βρόχους VBA.
Για το παραπάνω σύνολο δεδομένων, έχω προσθέσει μερικές ακόμη γραμμές.
Πρέπει να χρησιμοποιήσουμε εδώ το βρόχο For Next.
Απλώς κρατήστε τον τρέχοντα κωδικό όπως είναι.
Δηλώστε τη μεταβλητή ως ακέραιο.
Τώρα ανοίξτε για το επόμενο βρόχο από 2 έως 9.
Τώρα, όπου κι αν έχουμε αναφορά κελιού, αλλάξτε τον τρέχοντα αριθμό και συνδυάστε τη μεταβλητή "k" μαζί τους.
Για παράδειγμα, Range ("D2"). Η τιμή πρέπει να είναι Range ("D" & k) . Value
Τώρα εκτελέστε τον κωδικό. Πρέπει να λάβουμε την κατάσταση σε όλα τα κελιά.
Μπορείτε να αντιγράψετε τον παρακάτω κώδικα.
Κώδικας:
Υπο IF_OR_Παράδειγμα1 () Dim k ως ακέραιος αριθμός για k = 2 έως 9 If Range ("D" & k). Value <= Range ("B" & k). Value or Range ("D" & k). Value <= Εύρος ("C" & k). Τιμή Στη συνέχεια Εύρος ("E" & k). Value = "Αγορά" Else Range ("E" & k). Value = "Do not Buy" End if Next k End Sub
