DACĂ OR nu sunt o singură afirmație, acestea sunt două funcții logice care sunt utilizate împreună de câteva ori în VBA, folosim aceste două funcții logice împreună atunci când avem mai multe criterii cu care să verificăm și dacă vreunul dintre criterii este îndeplinit, obținem adevăratul rezultat, atunci când folosim declarația if Or instrucțiunea este utilizată între cele două criterii ale instrucțiunii If.
IF SA Funcția în VBA
Funcțiile logice sunt esența oricăror calcule bazate pe criterii. „IF” este cea mai populară funcție logică, fie ca funcție de foaie de lucru sau ca funcție VBA, servește excelent pentru nevoile noastre. Dar o altă funcție logică, „SAU” în Excel, este cea mai subevaluată funcție. De asemenea, este important să stăpânești atunci când vine vorba de rezolvarea calculelor complexe. În acest articol, vă vom prezenta în detaliu funcția VBA IF OR. Citiți articolul complet pentru a obține funcția în detaliu.
Cum se folosește IF cu funcția SAU în VBA?
Vă vom arăta un exemplu simplu de utilizare a funcției IF OR în VBA.
O combinație de funcții logice este cea mai bună pereche în Excel. Când combinați multe formule logice în interiorul celeilalte formule logice, sugerează că calculul necesită multe condiții pentru testare.
Acum, uitați-vă la sintaxa funcției IF OR din VBA.
(Test) SAU (Test) SAU (Test)
Acest lucru este la fel cum am văzut în exemplul foii de lucru. Pentru o mai bună înțelegere, consultați exemplul de mai jos.
Avem aici prețul lunii precedente, ultimul preț mediu pe 6 luni și prețul lunar curent.
Pentru a decide dacă cumpărăm produsul sau nu, trebuie să facem câteva teste aici, iar aceste teste sunt.
Dacă Prețul curent este mai mic sau egal cu oricare dintre celelalte două prețuri, ar trebui să obținem rezultatul ca „Cumpărați” sau altfel ar trebui să obținem rezultatul ca „Nu cumpărați”.
Pasul 1: Deschideți condiția IF în interiorul subprocedurii.
Cod:
Sub IF_OR_Example1 () Dacă se termină Sub
Pasul 2: În interiorul condiției IF, aplicați primul test logic ca Range („D2”). Valoare <= Range („B2”). Value
Cod:
Sub IF_OR_Example1 () Dacă Range („D2”). Valoare <= Range („B2”). Value End Sub
Pasul 3: Prima condiție logică este terminată, acum deschideți instrucțiunea SAU.
Cod:
Sub IF_OR_Example1 () Dacă Range ("D2"). Valoare <= Range ("B2"). Valoare SAU End Sub
Pasul 4: Acum aplicați a doua condiție logică ca Range („D2”). Valoare <= Range („C2”). Value
Cod:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value SAU Range ("D2"). Value <= Range ("C2"). Value End Sub
Pasul 5: Ok, am terminat cu testele logice aici. După testele logice, puneți cuvântul „Atunci”.
Cod:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then End Sub
Pasul 6: În rândul următor, scrieți care ar trebui să fie rezultatul dacă testul logic este ADEVĂRAT. Dacă condiția este ADEVĂRATĂ, avem nevoie de rezultat ca „Cumpărați” în celula E2.
Cod:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Valoare = „Cumpărați” Termen secundar
Pasul 7: Dacă rezultatul este FALS, ar trebui să obținem rezultatul ca „Nu cumpărați”. Deci, în rândul următor, puneți „Altfel” și scrieți codul în rândul următor.
Cod:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Valoare = "Cumpărați" Altă gamă ("E2"). Valoare = "Nu cumpărați" Finalizare secundară
Pasul 8: Închideți instrucțiunea IF cu cuvântul „Termină dacă”.
Cod:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Valoare = "Cumpărați" Alt interval ("E2"). Valoare = "Nu cumpărați" Sfârșit dacă Sfârșit Sub
Ok, am terminat cu partea de codare.
Să rulăm acest cod folosind F5 sau manual prin opțiunea de rulare și să vedem care este rezultatul în celula E2.
Am obținut rezultatul ca „Cumpărați”, deoarece prețul curent lunar al Apple este mai mic decât prețul atât pentru „Luna precedentă”, cât și pentru „Prețul mediu pe 6 luni”.
Funcția IF SAU VBA cu bucle (avansat)
Once you understand the formula, try to use it with a larger number of cells. In the case of a larger number of cells, we cannot write any line of code, so we need to use VBA loops.
For the above set of data, I have added a few more lines.
We need to use the For Next loop here.
Just keep the current code as it is.
Declare the variable as an integer.
Now open For Next Loop from 2 to 9.
Now, wherever we have cell reference, change the current number, and concatenate the variable “k” with them.
For example, Range (“D2”).Value should be Range (“D” & k).Value
Now run the code. We should get the status in all the cells.
You can copy the code below.
Code:
Sub IF_OR_Example1 () Dim k Integer For k = 2 To 9 If Range ("D" & k) .Value <= Range ("B" & k) .Value Or Range ("D" & k) .Value <= Interval ("C" & k). Valoare Apoi Interval ("E" & k). Valoare = "Cumpărați" Altfel Interval ("E" și k). Valoare = "Nu cumpărați" Sfârșit Dacă următorul k Sfârșit Sub
