Sau este o funcție logică în oricare dintre limbajele de programare și similară în VBA avem funcția SAU, deoarece este o funcție logică, rezultatul dat de această funcție este fie adevărat, fie fals, această funcție este utilizată pentru două sau mai multe condiții împreună și oferă ne rezultă adevărat atunci când oricare dintre condiții este returnată adevărată.
Ce este funcția SAU în VBA?
În Excel, funcțiile logice sunt inima formulelor pe care le folosim zilnic. Funcțiile logice sunt acolo pentru a efectua testul logic și dă rezultate în tipul de date boolean, adică TRUE sau FALSE. Unele dintre formulele logice din excel sunt „IF, IFERROR în excel, ISERROR în excel, ȘI și funcția OR excel”. Sper că le-ați folosit destul de des ca funcție de foaie de lucru. Și în VBA le putem folosi pe toate și în acest articol vă vom explica modalitățile de utilizare a funcției „VBA SAU”.
Care este primul lucru care îți vine în minte atunci când te gândești la cuvântul „SAU”?
În termeni simpli, „SAU” înseamnă „fie asta, fie asta”
Cu aceeași idee, OR este o funcție logică care dă rezultatul ca ADEVĂRAT dacă oricare dintre testele logice este ADEVĂRAT și dă FALS ca rezultat dacă niciunul dintre testele logice nu este ADEVĂRAT.
Acest lucru funcționează exact opus funcției VBA ȘI. Funcția AND returnează TRUE doar dacă toate condițiile logice sunt TRUE. Dacă oricare dintre condiții nu este îndeplinită, atunci vom obține FALS ca rezultat.
Formula funcției VBA SAU
Permiteți-mi să încadrez o sintaxă pentru a înțelege funcția.
(Test logic) SAU (Test logic) SAU (Test logic)
În primul rând, trebuie să menționăm care este testul logic, apoi să menționăm cuvântul SAU, apoi să menționăm care este al doilea test logic. Dacă doriți să efectuați un test mai logic, menționați cuvântul SAU după ce ați efectuat un test logic.
Dintre toate testele logice pe care le faceți, dacă oricare dintre teste este satisfăcut sau adevărat, atunci vom obține rezultatul ca ADEVĂRAT dacă nu este nici unul sau satisfăcut, atunci rezultatul este FALS.
Exemple de utilizare a funcției SAU în VBA
Vă vom arăta un exemplu simplu de utilizare a funcției SAU în VBA.
Pentru a înțelege funcția logică VBA SAU permiteți-mi să vă dau un exemplu. Să presupunem că vrem să efectuăm testul logic dacă numărul 25 este mai mare decât 20 sau numărul 50 este mai mic decât 30.
Pasul 1: Creați un nume de macro.
Pasul 2: definiți variabila ca un șir.
Cod:
Sub OR_Example1 () Dim i As String End Sub
Pasul 3: Acum, pentru această variabilă, vom atribui valoarea prin testul logic SAU.
Cod:
Sub OR_Example1 () Dim i As String i = End Sub
Pasul 4: Primul nostru test logic este 25> 20 .
Cod:
Sub OR_Example1 () Dim i As String i = 25> 20 End Sub
Pasul 5: Acum, după primul test logic, menționați cuvântul SAU și introduceți al doilea test logic.
Cod:
Sub OR_Example1 () Dim i As String i = 25> 20 Sau 50 <30 End Sub
Pasul 6: Ok, acum funcția VBA SAU testează dacă testele logice sunt ADEVĂRATE sau FALSE. Acum atribuiți rezultatul variabilei casetei de mesaje VBA .
Cod:
Sub OR_Example1 () Dim i As String i = 25> 20 Sau 50 <30 MsgBox i End Sub
Pasul 7: Rulați macro-ul și care este rezultatul.
Am obținut rezultatul ca fiind ADEVĂRAT deoarece din două teste logice pe care le-am furnizat, un test este ADEVĂRAT, deci rezultatul este ADEVĂRAT.
25 este mai mare decât 20, iar 50 nu mai puțin de 30. În acest caz, primul test logic este ADEVĂRAT, dar al doilea este FALS. Deoarece am aplicat funcția VBA SAU, are nevoie de oricare dintre condiții pentru a fi ADEVĂRAT pentru a obține rezultatul ca ADEVĂRAT.
Acum, uitați-vă la codul de mai jos.
Cod:
Sub OR_Example1 () Dim i As String i = 25 = 20 Sau 50 = 30 MsgBox i End Sub
Am modificat ecuațiile de testare logică de la> și <la semnul egal (=). Acest lucru va reveni la FALS, deoarece 25 nu este egal cu 20 și 50 nu este egal cu 30.
Funcția VBA SAU cu condiția IF este puternică
După cum am spus, SAU poate reveni fie ADEVĂR, fie FALS ca rezultat, dar cu cealaltă funcție logică „IF”, putem manipula rezultatele conform nevoilor noastre.
Luați aceleași teste logice de mai sus, SAU a returnat doar ADEVĂRAT sau FALS, dar să combinăm acest SAU cu IF.
Pasul 1: Înainte de a efectua orice test, deschideți funcția IF .
Cod:
Sub OR_Example2 () Dim i As String IF End Sub
Pasul 2: Acum, efectuați teste folosind funcția SAU .
Cod:
Sub OR_Example2 () Dim i As String IF 25 = 20 Sau 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
Dacă angajatul este din „Finanțe” sau „IT”, atunci ar trebui să primească bonusul ca „5000”. Pentru alți angajați ai departamentului, bonusul este „1000”.
Efectuați testul logic și ajungeți la rezultate.
