Oppure è una funzione logica in uno qualsiasi dei linguaggi di programmazione e simili in VBA abbiamo la funzione OR, poiché è una funzione logica il risultato fornito da questa funzione è vero o falso, questa funzione viene utilizzata per due o molte condizioni insieme e dà us true risultato quando una delle condizioni viene restituita true.
Cos'è la funzione OR in VBA?
In Excel, le funzioni logiche sono il cuore delle formule che utilizziamo quotidianamente. Le funzioni logiche servono per eseguire il test logico e danno il risultato in un tipo di dati booleano, cioè TRUE o FALSE. Alcune delle formule logiche in Excel sono "SE, SE.ERRORE in Excel, ISERRORE in Excel, AND e OR funzione excel". Spero che tu li abbia usati abbastanza spesso come funzione del foglio di lavoro. Anche in VBA possiamo usarli tutti e in questo articolo vi spiegheremo come utilizzare la funzione "VBA OR".
Qual è la prima cosa che ti viene in mente quando pensi alla parola "OR"?
In termini semplici, "OR" significa "questo o quello"
Con la stessa idea, OR è una funzione logica che fornisce il risultato come VERO se uno qualsiasi dei test logici è VERO e fornisce FALSO come risultato se nessuno dei test logici è VERO.
Funziona esattamente all'opposto della funzione AND di VBA. La funzione AND restituisce TRUE solo se tutte le condizioni logiche sono TRUE. Se una qualsiasi delle condizioni non è soddisfatta, di conseguenza otterremo FALSE.
La formula di VBA OR Function
Consentitemi di inquadrare una sintassi per farvi comprendere la funzione.
(Test logico) OR (Test logico) OR (Test logico)
Innanzitutto, dobbiamo menzionare qual è il test logico, quindi menzionare la parola OR, quindi menzionare qual è il secondo test logico. Se desideri eseguire un test più logico, menziona la parola OR dopo aver annullato un test logico.
Di tutti i test logici che fai, se qualcuno dei test è soddisfatto o vero, allora otterremo il risultato come VERO se nessuno o soddisfatto, allora il risultato è FALSO.
Esempi di utilizzo della funzione OR in VBA
Ti mostreremo un semplice esempio di utilizzo della funzione OR in VBA.
Per capire la funzione VBA logica OPPURE lascia che ti faccia un esempio. Supponiamo di voler condurre il test logico se il numero 25 è maggiore di 20 o il numero 50 è minore di 30.
Passaggio 1: crea un nome per la macro.
Passaggio 2: definire la variabile come stringa.
Codice:
Sub OR_Example1 () Dim i As String End Sub
Passaggio 3: ora, per questa variabile, assegneremo il valore tramite il test logico OR.
Codice:
Sub OR_Example1 () Dim i As String i = End Sub
Passaggio 4: il nostro primo test logico è 25> 20 .
Codice:
Sub OR_Example1 () Dim i As String i = 25> 20 End Sub
Passaggio 5: ora, dopo il primo test logico, menziona la parola OR e inserisci il secondo test logico.
Codice:
Sub OR_Example1 () Dim i As String i = 25> 20 Or 50 <30 End Sub
Passaggio 6: Ok, ora la funzione OR VBA verifica se i test logici sono VERO o FALSO. Ora assegna il risultato della variabile alla finestra di messaggio VBA .
Codice:
Sub OR_Example1 () Dim i As String i = 25> 20 Or 50 <30 MsgBox i End Sub
Passaggio 7: eseguire la macro e qual è il risultato.
Abbiamo ottenuto il risultato come VERO perché dei due test logici forniti, un test è VERO, quindi il risultato è VERO.
25 è maggiore di 20 e 50 non è minore di 30. In questo caso, il primo test logico è VERO, ma il secondo è FALSO. Poiché abbiamo applicato la funzione VBA OR, è necessaria che una delle condizioni sia TRUE per ottenere il risultato come TRUE.
Ora guarda il codice sottostante.
Codice:
Sub OR_Example1 () Dim i As String i = 25 = 20 Or 50 = 30 MsgBox i End Sub
Ho cambiato le equazioni del test logico da> e <al segno di uguale (=). Ciò restituirà FALSE come risultato perché 25 non è uguale a 20 e 50 non è uguale a 30.
La funzione VBA OR con IF La condizione è potente
Come ho detto, OR può restituire VERO o FALSO come risultato, ma con l'altra funzione logica "SE", possiamo manipolare i risultati secondo le nostre esigenze.
Prendi gli stessi test logici dall'alto, OR ha restituito solo VERO o FALSO ma combiniamo questo OR con IF.
Passaggio 1: prima di eseguire qualsiasi test, aprire la funzione IF .
Codice:
Sub OR_Example2 () Dim i As String IF End Sub
Passaggio 2: ora eseguire i test utilizzando la funzione OR .
Codice:
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
Se il dipendente proviene da "Finanza" o "IT", il bonus dovrebbe essere "5000". Per gli altri dipendenti del dipartimento, il bonus è "1000".
Esegui il test logico e arriva ai risultati.
