Ή είναι μια λογική συνάρτηση σε οποιαδήποτε από τις γλώσσες προγραμματισμού και παρόμοια σε VBA έχουμε συνάρτηση OR, καθώς είναι μια λογική συνάρτηση, το αποτέλεσμα που δίνεται από αυτήν τη συνάρτηση είναι είτε αληθές είτε ψευδές, αυτή η λειτουργία χρησιμοποιείται για δύο ή πολλές συνθήκες μαζί και δίνει μας αληθινό αποτέλεσμα όταν κάποια από τις προϋποθέσεις επιστρέφεται αληθινή.
Τι είναι η λειτουργία OR στο VBA;
Στο excel, οι λογικές λειτουργίες αποτελούν την καρδιά των τύπων που χρησιμοποιούμε καθημερινά. Υπάρχουν λογικές συναρτήσεις για τη διεξαγωγή της λογικής δοκιμής και δίνει αποτέλεσμα σε Boolean τύπο δεδομένων, δηλαδή, είτε ΑΛΗΘΕΙΑ ή ΛΑΘΟΣ. Μερικοί από τους λογικούς τύπους στο excel είναι "IF, IFERROR in excel, ISERROR in excel, AND και OR excel function." Ελπίζω να τα έχετε χρησιμοποιήσει αρκετά συχνά ως λειτουργία φύλλου εργασίας. Στο VBA, μπορούμε επίσης να τα χρησιμοποιήσουμε όλα, και σε αυτό το άρθρο, θα σας εξηγήσουμε τους τρόπους χρήσης της λειτουργίας "VBA Ή".
Ποιο είναι το πρώτο πράγμα που έρχεται στο μυαλό σας όταν σκέφτεστε τη λέξη «Ή»;
Με απλούς όρους, "OR" σημαίνει "είτε αυτό είτε αυτό"
Με την ίδια ιδέα, το OR είναι μια λογική συνάρτηση που δίνει το αποτέλεσμα ως TRUE εάν κάποια από τις λογικές δοκιμές είναι TRUE και δίνει FALSE ως αποτέλεσμα εάν καμία από τις λογικές δοκιμές δεν είναι TRUE.
Αυτό λειτουργεί ακριβώς απέναντι από τη λειτουργία VBA AND. Η συνάρτηση AND επιστρέφει TRUE μόνο αν όλες οι λογικές συνθήκες είναι TRUE. Εάν κάποιος από τους όρους δεν είναι ικανοποιημένος, τότε θα έχουμε ΛΑΘΟΣ ως αποτέλεσμα.
Ο τύπος της λειτουργίας VBA OR
Επιτρέψτε μου να διαμορφώσω μια σύνταξη για να κατανοήσετε τη λειτουργία.
(Λογική δοκιμή) Ή (Λογική δοκιμή) Ή (Λογική δοκιμή)
Πρώτον, πρέπει να αναφέρουμε ποια είναι η λογική δοκιμή, μετά να αναφέρουμε τη λέξη OR, και στη συνέχεια να αναφέρουμε ποια είναι η δεύτερη λογική δοκιμή. Εάν επιθυμείτε να πραγματοποιήσετε μια πιο λογική δοκιμή, τότε αναφέρετε τη λέξη Ή μετά από μια λογική δοκιμή.
Από όλες τις λογικές δοκιμές που κάνετε, εάν κάποιος από τους ελέγχους είναι ικανοποιημένος ή αληθινός, τότε θα έχουμε το αποτέλεσμα ως ΑΛΗΘΕΤΟ αν δεν υπάρχει ή ικανοποιημένος, τότε το αποτέλεσμα είναι ΛΑΘΟΣ.
Παραδείγματα χρήσης της λειτουργίας OR στη VBA
Θα σας δείξουμε ένα απλό παράδειγμα χρήσης της συνάρτησης OR στο VBA.
Για να κατανοήσω τη λογική συνάρτηση VBA Ή επιτρέψτε μου να σας δώσω ένα παράδειγμα. Ας πούμε ότι θέλουμε να πραγματοποιήσουμε τη λογική δοκιμή εάν ο αριθμός 25 είναι μεγαλύτερος από 20 ή ο αριθμός 50 είναι μικρότερος από 30.
Βήμα 1: Δημιουργήστε ένα όνομα μακροεντολής.
Βήμα 2: Ορίστε τη μεταβλητή ως συμβολοσειρά.
Κώδικας:
Sub OR_Example1 () Dim i As String End Sub
Βήμα 3: Τώρα, για αυτήν τη μεταβλητή, θα εκχωρήσουμε την τιμή μέσω του λογικού ελέγχου OR.
Κώδικας:
Sub OR_Example1 () Dim i As String i = End Sub
Βήμα 4: Η πρώτη μας λογική δοκιμή είναι 25> 20 .
Κώδικας:
Sub OR_Example1 () Dim i As String i = 25> 20 End Sub
Βήμα 5: Τώρα, μετά την πρώτη λογική δοκιμή, αναφέρατε τη λέξη OR και εισαγάγετε τη δεύτερη λογική δοκιμή.
Κώδικας:
Sub OR_Example1 () Dim i As String i = 25> 20 ή 50 <30 End Sub
Βήμα 6: Εντάξει, τώρα η λειτουργία VBA OR ελέγχει εάν οι λογικές δοκιμές είναι ΑΛΗΘΕΣ ή ΛΑΘΟΣ. Τώρα αντιστοιχίστε το αποτέλεσμα της μεταβλητής στο πλαίσιο μηνυμάτων VBA .
Κώδικας:
Sub OR_Example1 () Dim i As String i = 25> 20 ή 50 <30 MsgBox i End Sub
Βήμα 7: Εκτελέστε τη μακροεντολή και ποιο είναι το αποτέλεσμα.
Πήραμε το αποτέλεσμα ως ΑΛΗΘΕΙ επειδή από τις δύο λογικές δοκιμές που έχουμε παράσχει, μία δοκιμή είναι ΑΛΗΘΕΙΑ, έτσι το αποτέλεσμα είναι ΑΛΗΘΕΙ
Το 25 είναι μεγαλύτερο από 20 και το 50 δεν είναι μικρότερο από 30. Σε αυτήν την περίπτωση, η πρώτη λογική δοκιμή είναι ΑΛΗΘΕΙΑ, αλλά η δεύτερη είναι ΛΑΘΟΣ. Επειδή έχουμε εφαρμόσει τη συνάρτηση VBA Ή, χρειάζεται οποιαδήποτε από τις προϋποθέσεις για να είναι ΑΛΗΘΕΣ για να πάρει το αποτέλεσμα ως ΑΛΗΘΕΙΑ.
Τώρα, δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub OR_Example1 () Dim i As String i = 25 = 20 ή 50 = 30 MsgBox i End Sub
Έχω αλλάξει τις λογικές εξισώσεις δοκιμής από το σύμβολο> και <στο ίσο (=). Αυτό θα επιστρέψει FALSE ως αποτέλεσμα, επειδή το 25 δεν είναι ίσο με το 20 και το 50 δεν είναι ίσο με το 30.
VBA Ή Λειτουργία με IF IF είναι ισχυρή
Όπως είπα, το OR μπορεί να επιστρέψει είτε TRUE είτε FALSE ως αποτέλεσμα, αλλά με την άλλη λογική συνάρτηση "IF" μπορούμε να χειριστούμε τα αποτελέσματα σύμφωνα με τις ανάγκες μας.
Κάντε τα ίδια λογικά τεστ από ψηλά, το OR επέστρεψε μόνο TRUE ή FALSE, αλλά ας συνδυάσουμε αυτό το OR με το IF.
Βήμα 1: Πριν πραγματοποιήσετε οποιαδήποτε δοκιμή, ανοίξτε τη λειτουργία IF .
Κώδικας:
Υπο OR_Example2 () Dim i As String IF End End Sub
Βήμα 2: Τώρα, πραγματοποιήστε δοκιμές χρησιμοποιώντας τη συνάρτηση OR .
Κώδικας:
Sub OR_Example2 () Dim i As String IF 25 = 20 Or 50 = 30 End Sub
Step 3: Put the word “Then” and write the result. If the condition is TRUE, assign the value to the variable as “Condition is Satisfied.”
Code:
Sub OR_Example2() Dim i As String If 25 = 20 Or 50 = 30 Then i = "Condition is Satisfied" End Sub
Step 4: If the condition is FALSE, then we need a different result, so put the word “ELSE” and, in the next line, assign the value to the variable “what should be the result if the condition or logical test is FALSE.”
Code:
Sub OR_Example2() Dim i As String If 25 = 20 Or 50 = 30 Then i = "Condition is Satisfied" Else i = "Condition is not Satisfied" End Sub
Step 5: End the IF function with the word “End If.”
Code:
Sub OR_Example2() Dim i As String If 25 = 20 Or 50 = 30 Then i = "Condition is Satisfied" Else i = "Condition is not Satisfied" End If End Sub
Step 6: Assign the value of the variable result to the message box.
Code:
Sub OR_Example2() Dim i As String If 25 = 20 Or 50 = 30 Then i = "Condition is Satisfied" Else i = "Condition is not Satisfied" End If MsgBox i End Sub
Run the macro, if the logical test is TRUE, we will get the result as “Condition is Satisfied,” or else we will get “Condition is not Satisfied.”
We got the result as “Condition is not Satisfied” because both the logical tests are FALSE.
Now I will change the logical tests.
Code:
Sub OR_Example2() Dim i As String If 25> 20 Or 50 < 30 Then i = "Condition is Satisfied" Else i = "Condition is not Satisfied" End If MsgBox i End Sub
I will run the macro and see what the result is.
Like this, we can use one logical function with other logical functions to arrive at the results.
Solve the below case study to get used to logical functions.
Case Study to Solve
I have employee names and their respective departments.
If you have tried and not found the result, then you can refer below code to understand the logic.
Code:
Sub Bonus_Calculation() Dim i As Long For i = 2 To 10 If Cells(i, 2).Value = "Finance" Or Cells(i, 2).Value = "IT" Then Cells(i, 3).Value = 5000 Else Cells(i, 3).Value = 1000 End If Next i End Sub
Εάν ο υπάλληλος προέρχεται από το "Finance" ή το "IT", τότε θα πρέπει να λάβουν το μπόνους ως "5000" Για άλλους υπαλλήλους του τμήματος, το μπόνους είναι «1000».
Πραγματοποιήστε τη λογική δοκιμή και φτάστε στα αποτελέσματα.
