VBA vai funkcija (piemēri) Kā VBA izmantot loģisko operatoru?

Satura rādītājs

Vai arī tā ir loģiska funkcija kādā no programmēšanas valodām un līdzīga VBA, mums ir OR funkcija, jo tā ir loģiska funkcija, kuras rezultāts ir vai nu patiess, vai nepareizs, šī funkcija tiek izmantota diviem vai daudziem nosacījumiem kopā un dod rezultāts, kad kāds no nosacījumiem tiek atgriezts kā patiess.

Kas ir VBA funkcija VBA?

Programmā Excel loģiskās funkcijas ir to formulu pamatā, kuras mēs ikdienā izmantojam. Loģiskās funkcijas ir paredzētas loģiskā testa veikšanai, un tās dod rezultātu Būla datu tipā, ti, TRUE vai FALSE. Dažas no Excel loģiskajām formulām ir “IF, IFERROR excel, ISERROR excel, AND OR OR excel funkcija”. Es ceru, ka jūs tos izmantojāt diezgan bieži kā darblapas funkciju. Arī VBA mēs varam tos visus izmantot, un šajā rakstā mēs jums izskaidrosim funkcijas “VBA OR” izmantošanas veidus.

Kas ir pirmais, kas jums ienāk prātā, domājot par vārdu “VAI”?

Vienkārši sakot, “OR” nozīmē “vai nu tas, vai tas”

Ar to pašu ideju OR ir loģiska funkcija, kas dod rezultātu kā PATIESU, ja kāds no loģiskajiem testiem ir PATIESA, un kā FALSE kā rezultātu, ja neviens no loģiskajiem testiem nav PATIESA.

Tas darbojas tieši pretēji VBA UN funkcijai. Funkcija AND atgriež TRUE tikai tad, ja visi loģiskie nosacījumi ir PATIESI. Ja kāds no nosacījumiem nav izpildīts, tad mēs iegūsim FALSE.

VBA vai funkcijas formula

Ļaujiet man izveidot sintaksi, lai jūs varētu saprast funkciju.

(Loģiskā pārbaude) VAI (Loģiskā pārbaude) VAI (Loģiskā pārbaude)

Pirmkārt, mums ir jāpiemin, kāds ir loģiskais tests, tad jāpiemin vārds OR, pēc tam jāpiemin, kas ir otrais loģiskais tests. Ja vēlaties veikt loģiskāku pārbaudi, pēc loģiskā testa veikšanas pieminiet vārdu OR.

No visiem jūsu veiktajiem loģiskajiem testiem, ja kāds no testiem ir apmierināts vai ir patiess, tad rezultātu mēs iegūsim kā PATIESU, ja neviens no tiem nav apmierināts vai ir apmierināts, tad rezultāts ir FALSE.

VAI funkcijas VBA izmantošanas piemēri

Mēs parādīsim vienkāršu OR izmantošanas piemēru VBA.

Lai saprastu loģisko VBA funkciju VAI ļaujiet man sniegt jums piemēru. Pieņemsim, ka mēs vēlamies veikt loģisko pārbaudi, vai skaitlis 25 ir lielāks par 20, vai skaitlis 50 ir mazāks par 30.

1. darbība: izveidojiet makro nosaukumu.

2. darbība: definējiet mainīgo kā virkni.

Kods:

Sub OR_Piemērs1 () Dim i kā virknes beigu apakšsadaļa

3. solis: Tagad šim mainīgajam mēs piešķirsim vērtību, izmantojot loģisko pārbaudi OR.

Kods:

Sub OR_Piemērs1 () Dim i As virkne i = Sub Sub

4. solis: mūsu pirmais loģiskais tests ir 25> 20 .

Kods:

Sub OR_Piemērs1 () Dim i kā virkne i = 25> 20 Beigas Sub

5. solis: Tagad, pēc pirmā loģiskā testa, pieminiet vārdu OR un ievadiet otro loģisko testu.

Kods:

Sub OR_Piemērs1 () Dim i kā virkne i = 25> 20 vai 50 <30 Beigas Sub

6. solis: Labi, tagad VBA OR funkcija pārbauda, ​​vai loģiskie testi ir PATIESI vai PATIESI. Tagad piešķiriet mainīgā rezultātu VBA ziņojumu lodziņam .

Kods:

Sub OR_Piemērs1 () Dim i kā virkne i = 25> 20 vai 50 <30 MsgBox i Beigas Sub

7. solis: palaidiet makro un kāds ir rezultāts.

Rezultāts tika iegūts kā PATIESA, jo no diviem mūsu sniegtajiem loģiskajiem testiem viens pārbaudījums ir PATIESA, tāpēc rezultāts ir PATIESA.

25 ir lielāks par 20, un 50 nav mazāks par 30. Šajā gadījumā pirmais loģiskais tests ir PATIESA, bet otrais ir FALSE. Tā kā mēs esam izmantojuši funkciju VBA OR, tam ir vajadzīgs jebkurš no nosacījumiem, lai tas būtu PATIESA, lai iegūtu rezultātu kā PATIESU.

Tagad skatieties zemāk esošo kodu.

Kods:

Sub OR_Piemērs1 () Dim i kā virkne i = 25 = 20 Vai 50 = 30 MsgBox i Beigas Sub

Esmu mainījis loģiskā testa vienādojumus no> un <uz vienādu (=) zīmi. Rezultātā tiks parādīts FALSE, jo 25 nav vienāds ar 20 un 50 nav vienāds ar 30.

VBA vai funkcija ar IF nosacījumu ir spēcīga

Kā es teicu, OR rezultātā var atgriezties vai nu TRUE, vai FALSE, bet ar citu loģisko funkciju “IF” mēs varam manipulēt ar rezultātiem atbilstoši savām vajadzībām.

Veiciet tos pašus loģiskos testus no augšas, OR ir atgriezis tikai TRUE vai FALSE, bet apvienosim šo OR ar IF.

1. solis: pirms testa veikšanas atveriet funkciju IF .

Kods:

Sub OR_Example2 () Dim i kā virkne IF End Sub

2. solis: Tagad veiciet testus, izmantojot funkciju OR .

Kods:

Sub OR_Piemērs2 () Dim i kā virkne IF 25 = 20 Vai 50 = 30 Beigas 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

Ja darbinieks ir no “Finanses” vai “IT”, viņam jāsaņem prēmija kā “5000”. Citiem nodaļas darbiniekiem prēmija ir “1000”.

Veikt loģisko pārbaudi un nonākt pie rezultātiem.

Interesanti raksti...