Arba loginė funkcija bet kurioje iš programavimo kalbų ir panaši į VBA, mes turime ARBA funkciją, nes tai yra loginė funkcija, kurios rezultatas yra teisingas arba klaidingas, ši funkcija naudojama dviem ar daugeliui sąlygų kartu ir suteikia tikras rezultatas, kai bet kuri iš sąlygų grąžinama kaip teisinga.
Kas yra ARBA funkcija VBA?
„Excel“ programoje loginės funkcijos yra kasdien naudojamų formulių pagrindas. Loginės funkcijos yra skirtos atlikti loginį testą ir duoda rezultatą Bulio logikos duomenų tipui, ty TRUE arba FALSE. Kai kurios „Excel“ loginės formulės yra „IF, IFERROR excel, ISERROR excel“ IR ARBA excel funkcija “. Tikiuosi, kad jūs juos gana dažnai naudojote kaip darbalapio funkciją. VBA taip pat galime naudoti juos visus, o šiame straipsnyje paaiškinsime jums funkcijos „VBA OR“ naudojimo būdus.
Kas pirmiausia kyla jums galvojant apie žodį „ARBA“?
Paprasčiau tariant, „OR“ reiškia „arba tas, ir tas“
Taikant tą pačią idėją, OR yra loginė funkcija, suteikianti rezultatą TIKRĄ, jei kuris nors iš loginių testų yra TIKRAS, ir pateikia NETIESĄ kaip rezultatą, jei nė vienas iš loginių testų nėra TIESA.
Tai veikia visiškai priešingai nei VBA IR funkcija. Funkcija AND grąžina TIKRĄ tik tuo atveju, jei visos loginės sąlygos yra TIESOS. Jei kas nors iš sąlygų nebus patenkintas, tada mes gausime NETIESĄ.
VBA arba funkcijos formulė
Leiskite parengti sintaksę, kad suprastumėte funkciją.
(Loginis testas) ARBA (Loginis testas) ARBA (Loginis testas)
Pirmiausia turime paminėti, kas yra loginis testas, tada paminėti žodį OR, tada paminėti, kas yra antrasis loginis testas. Jei norite atlikti logiškesnį testą, paminėkite žodį OR, atlikę loginį testą.
Iš visų jūsų atliktų loginių testų, jei kuris nors iš testų yra patenkintas ar teisingas, tada rezultatą gausime kaip TIKRĄ, jei nė vienas iš jų nebus įvykdytas arba jis bus patenkintas, tada rezultatas bus NETIESA.
ARBA funkcijos naudojimo VBA pavyzdžiai
Parodysime jums paprastą OR funkcijos VBA pavyzdį.
Norėdami suprasti loginę VBA funkciją ARBA leiskite man pateikti jums pavyzdį. Tarkime, norime atlikti loginį testą, ar skaičius 25 yra didesnis nei 20, ar skaičius 50 yra mažesnis nei 30.
1 veiksmas: sukurkite makrokomandos pavadinimą.
2 žingsnis: Apibrėžkite kintamąjį kaip eilutę.
Kodas:
Sub OR_Pavyzdys1 () Dim i kaip eilutės pabaiga Sub
3 žingsnis: Dabar šiam kintamajam reikšmę priskirsime atlikdami loginį OR testą.
Kodas:
Sub OR_Pavyzdys1 () Dim i As String i = End Sub
4 žingsnis: mūsų pirmasis loginis testas yra 25> 20 .
Kodas:
Sub OR_Pavyzdys1 () Dim i kaip eilutė i = 25> 20 Pabaiga Sub
5 žingsnis: Dabar, atlikę pirmąjį loginį testą, paminėkite žodį OR ir įveskite antrąjį loginį testą.
Kodas:
Sub OR_Pavyzdys1 () Dim i kaip eilutė i = 25> 20 arba 50 <30 Pabaiga Sub
6 žingsnis: Gerai, dabar VBA OR funkcija patikrina, ar loginiai testai yra TIESA, ar NETIESA. Dabar priskirkite kintamojo rezultatą VBA pranešimų laukelyje .
Kodas:
OR_pavyzdys1 () Dim i kaip eilutė i = 25> 20 arba 50 <30 MsgBox i Pabaiga Sub
7 žingsnis: paleiskite makrokomandą ir koks yra rezultatas.
Rezultatą gavome kaip TIKRĄ, nes iš dviejų mūsų pateiktų loginių testų vienas testas yra TIKRA, taigi rezultatas TIKRA.
25 yra didesnis nei 20, o 50 yra ne mažesnis kaip 30. Šiuo atveju pirmasis loginis testas yra TIESA, bet antrasis - NETIESA. Kadangi mes pritaikėme funkciją VBA OR, jai reikia bet kurios iš sąlygų, kad būtų TIKRA, kad rezultatas būtų TIKRA.
Dabar pažvelkite į žemiau pateiktą kodą.
Kodas:
OR_pavyzdys1 () Dim i kaip eilutė i = 25 = 20 Arba 50 = 30 MsgBox i Pabaiga Sub
Aš pakeitiau loginio testo lygtis iš> ir <į lygią (=) ženklą. Rezultatas bus FALSE, nes 25 nėra lygus 20, o 50 nėra lygus 30.
VBA ARBA funkcija su sąlyga yra galinga
Kaip sakiau, OR gali grąžinti TIKRĄ arba NETIESĄ, bet naudodamiesi kita logine funkcija „JEI“, galime manipuliuoti rezultatais pagal savo poreikius.
Atlikite tuos pačius loginius testus iš viršaus, ARBA grąžino tik TRUE arba FALSE, bet derinkime tai OR arba IF
1 veiksmas: prieš atlikdami bet kokį bandymą, atidarykite funkciją IF .
Kodas:
Sub OR_Pavyzdys2 () Dim i kaip eilutė IF Pabaiga
2 žingsnis: Dabar atlikite bandymus naudodami OR funkciją.
Kodas:
Sub OR_Pavyzdys2 () Dim i kaip eilutė IF 25 = 20 Arba 50 = 30 Pabaiga 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
Jei darbuotojas yra iš finansų ar IT, jis turėtų gauti premiją kaip „5000“. Kitiems skyriaus darbuotojams premija yra „1000“.
Atlikite loginį testą ir pasiekite rezultatus.
