Veya programlama dillerinden herhangi birinde mantıksal bir işlevdir ve VBA'da benzer bir fonksiyona sahibiz, mantıksal bir işlev olduğundan, bu işlev tarafından verilen sonuç doğru veya yanlıştır, bu işlev iki veya daha fazla koşul için birlikte kullanılır ve verir koşullardan herhangi biri doğru olarak döndürüldüğünde bize gerçek sonuç.
VBA'da OR İşlevi nedir?
Excel'de mantıksal işlevler, günlük olarak kullandığımız formüllerin kalbidir. Mantıksal işlevler mantıksal testi yürütmek için vardır ve Boolean veri türünde, yani DOĞRU veya YANLIŞ olarak sonuç verir. Excel'deki mantıksal formüllerden bazıları "IF, IFERROR in excel, ISERROR in excel, AND ve OR excel function" şeklindedir. Umarım bunları bir çalışma sayfası işlevi olarak oldukça sık kullanmışsınızdır. VBA'da da hepsini kullanabiliriz ve bu yazımızda sizlere “VBA OR” işlevini kullanmanın yollarını açıklayacağız.
"VEYA" kelimesini düşündüğünüzde aklınıza gelen ilk şey nedir?
Basit bir ifadeyle, "VEYA", "şu veya bu" anlamına gelir
Aynı fikirle, OR, mantıksal testlerden herhangi biri DOĞRU ise sonucu DOĞRU olarak veren mantıksal bir işlevdir ve mantıksal testlerden hiçbiri DOĞRU değilse sonuç olarak YANLIŞ verir.
Bu, VBA AND işlevinin tam tersi şekilde çalışır. VE işlevi, yalnızca tüm mantıksal koşullar DOĞRU ise DOĞRU döndürür. Koşullardan herhangi biri karşılanmazsa, sonuç olarak YANLIŞ alırız.
VBA OR İşlevinin formülü
İşlevi anlamanız için bir sözdizimi çerçevelememe izin verin.
(Mantıksal Test) VEYA (Mantıksal Test) VEYA (Mantıksal Test)
İlk olarak, mantıksal testin ne olduğunu belirtmemiz, ardından OR sözcüğünden bahsetmemiz, ardından ikinci mantıksal testin ne olduğunu belirtmemiz gerekir. Daha mantıklı bir test yapmak isterseniz, mantıksal testi tersine çevirdikten sonra OR sözcüğünden bahsedin.
Yaptığınız tüm mantıksal testlerden herhangi biri memnun veya doğruysa, o zaman sonucu DOĞRU olarak alırız, eğer hiç yoksa veya tatmin olmazsa sonuç YANLIŞ olur.
VBA'da OR İşlevini Kullanma Örnekleri
OR işlevini VBA'da kullanmanın basit bir örneğini göstereceğiz.
Mantıksal VBA işlevini anlamak için VEYA size bir örnek vereyim. Diyelim ki 25 sayısı 20'den büyük mü yoksa 50 sayısı 30'dan küçük mü mantıksal testi yapmak istiyoruz.
Adım 1: Bir makro adı oluşturun.
Adım 2: Değişkeni bir dizge olarak tanımlayın.
Kod:
Alt OR_Örnek1 () Dim i As String End Sub
Adım 3: Şimdi, bu değişken için, değeri OR mantıksal testi aracılığıyla atayacağız.
Kod:
Alt OR_Örnek1 () Dim i As String i = End Sub
Adım 4: İlk mantıksal testimiz 25> 20'dir .
Kod:
Alt OR_Örnek1 () Dim i As String i = 25> 20 End Sub
Adım 5: Şimdi, ilk mantıksal testten sonra, OR sözcüğünden bahsedin ve ikinci mantıksal testi girin.
Kod:
Alt OR_Örnek1 () Dim i As String i = 25> 20 Veya 50 <30 End Sub
Adım 6: Tamam, şimdi VBA OR işlevi mantıksal testlerin DOĞRU mu yoksa YANLIŞ mı olduğunu test ediyor. Şimdi değişkenin sonucunu VBA mesaj kutusuna atayın .
Kod:
Alt OR_Örnek1 () Dim i As String i = 25> 20 Veya 50 <30 MsgBox i End Sub
Adım 7: Makroyu çalıştırın ve sonucu ne olur.
Sonucu DOĞRU olarak aldık çünkü sağladığımız iki mantıksal testten biri DOĞRU, yani sonuç DOĞRU.
25, 20'den büyük ve 50, 30'dan az değildir. Bu durumda, ilk mantıksal test DOĞRU, ikincisi ise YANLIŞ'dır. VBA OR işlevini uyguladığımız için, sonucu DOĞRU olarak almak için koşullardan herhangi birinin DOĞRU olması gerekir.
Şimdi aşağıdaki koda bakın.
Kod:
Alt OR_Örnek1 () Dim i As String i = 25 = 20 Veya 50 = 30 MsgBox i End Sub
Mantıksal test denklemlerini> ve <'den eşittir (=) işaretine değiştirdim. Bu sonuç olarak YANLIŞ döndürür çünkü 25 20'ye eşit değildir ve 50 30'a eşit değildir.
IF Koşullu VBA VEYA İşlevi Güçlüdür
Söylediğim gibi, VEYA sonuç olarak DOĞRU veya YANLIŞ döndürebilir, ancak diğer mantıksal işlev olan "EĞER" ile sonuçları ihtiyaçlarımıza göre değiştirebiliriz.
Yukarıdan aynı mantıksal testleri yapın, VEYA yalnızca DOĞRU veya YANLIŞ döndürdü, ancak bu VEYA'yı EĞER ile birleştirelim.
Adım 1: Herhangi bir test yapmadan önce, IF fonksiyonunu açın .
Kod:
Alt OR_Örnek2 () Dim i As String IF End Sub
Adım 2: Şimdi, OR işlevini kullanarak testler yapın .
Kod:
Alt OR_Örnek2 () Dim i As String IF 25 = 20 Veya 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
Çalışan “Finans” veya “BT” dense, bonusu “5000” olarak almalıdır. Diğer departman çalışanları için bonus "1000" dir.
Mantıksal testi yürütün ve sonuçlara ulaşın.
