Atau adalah fungsi logis dalam salah satu bahasa pemrograman dan serupa di VBA, kita memiliki fungsi OR, karena ini adalah fungsi logika hasil yang diberikan oleh fungsi ini adalah benar atau salah, fungsi ini digunakan untuk dua atau banyak kondisi bersama-sama dan memberikan kami hasil yang benar ketika salah satu kondisi dikembalikan benar.
Apa Fungsi OR di VBA?
Di excel, fungsi logis adalah inti dari rumus yang kami gunakan setiap hari. Fungsi logika ada untuk melakukan tes logika dan memberikan hasil dalam tipe data Boolean, yaitu TRUE atau FALSE. Beberapa rumus logika di excel adalah "IF, IFERROR di excel, ISERROR di excel, AND, dan OR fungsi excel". Saya harap Anda cukup sering menggunakannya sebagai fungsi lembar kerja. Di VBA, kami juga dapat menggunakan semuanya, dan di artikel ini, kami akan menjelaskan kepada Anda cara menggunakan fungsi "VBA OR".
Apa hal pertama yang terlintas di benak Anda saat memikirkan kata "ATAU"?
Dalam istilah sederhana, "ATAU" berarti "ini atau itu"
Dengan ide yang sama, OR adalah fungsi logika yang memberikan hasil sebagai BENAR jika salah satu dari tes logika adalah BENAR dan memberikan hasil FALSE jika tidak ada tes logika yang BENAR.
Ini bekerja persis kebalikan dari fungsi VBA AND. Fungsi AND mengembalikan TRUE hanya jika semua kondisi logika TRUE. Jika ada yang tidak memenuhi syarat, maka kita akan mendapatkan SALAH sebagai hasilnya.
Rumus Fungsi VBA OR
Biarkan saya membingkai sintaks agar Anda memahami fungsinya.
(Tes Logika) ATAU (Tes Logika) ATAU (Tes Logika)
Pertama, kita perlu menyebutkan apa itu tes logis, kemudian menyebutkan kata OR, kemudian menyebutkan apa tes logis yang kedua itu. Jika Anda ingin melakukan tes yang lebih logis, sebutkan kata ATAU setelah melakukan tes logis.
Dari semua tes logis yang Anda lakukan, jika ada tes yang puas atau benar, maka kami akan mendapatkan hasil sebagai BENAR jika tidak ada atau puas, maka hasilnya SALAH.
Contoh Menggunakan Fungsi OR di VBA
Kami akan menunjukkan kepada Anda contoh sederhana menggunakan fungsi OR di VBA.
Untuk memahami fungsi VBA logis ATAU izinkan saya memberi Anda contoh. Misalkan kita ingin melakukan tes logika apakah angka 25 lebih besar dari 20 atau angka 50 kurang dari 30.
Langkah 1: Buat nama makro.
Langkah 2: Tentukan variabel sebagai string.
Kode:
Sub OR_Example1 () Dim i As String End Sub
Langkah 3: Sekarang, untuk variabel ini, kami akan menetapkan nilai melalui tes logika OR.
Kode:
Sub OR_Example1 () Dim i As String i = End Sub
Langkah 4: Tes logis pertama kami adalah 25> 20 .
Kode:
Sub OR_Contoh1 () Dim i Sebagai String i = 25> 20 End Sub
Langkah 5: Sekarang, setelah tes logika pertama, sebutkan kata OR dan masukkan tes logika kedua.
Kode:
Sub OR_Contoh1 () Dim i Sebagai String i = 25> 20 atau 50 <30 End Sub
Langkah 6: Ok, sekarang fungsi VBA OR menguji apakah tes logika TRUE atau FALSE. Sekarang tetapkan hasil variabel ke kotak pesan VBA .
Kode:
Sub OR_Contoh1 () Dim i Sebagai String i = 25> 20 Atau 50 <30 MsgBox i End Sub
Langkah 7: Jalankan makro dan apa hasilnya.
Kami mendapatkan hasil BENAR karena dari dua tes logika yang kami berikan, satu tes BENAR, jadi hasilnya BENAR.
25 lebih besar dari 20, dan 50 tidak kurang dari 30. Dalam kasus ini, tes logika pertama adalah BENAR, tetapi yang kedua adalah SALAH. Karena kita telah menerapkan fungsi VBA OR, itu membutuhkan salah satu kondisi menjadi TRUE untuk mendapatkan hasil sebagai TRUE.
Sekarang, lihat kode di bawah ini.
Kode:
Sub OR_Example1 () Dim i As String i = 25 = 20 Atau 50 = 30 MsgBox i End Sub
I have changes the logical test equations from> and < to equal (=) sign. This will return FALSE as the result because 25 is not equal to 20 and 50 is not equal to 30.
VBA OR Function With IF Condition is Powerful
As I told, OR can return either TRUE or FALSE as a result, but with the other logical function “IF,” we can manipulate results as per our needs.
Take the same logical tests from above, OR has returned only TRUE or FALSE but let’s combine this OR with IF.
Step 1: Before conducting any test, open the function IF.
Code:
Sub OR_Example2() Dim i As String IF End Sub
Step 2: Now, conduct tests using the OR function.
Code:
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
Jika karyawan tersebut berasal dari "Keuangan" atau "TI," maka mereka harus mendapatkan bonus sebagai "5.000". Untuk karyawan departemen lain, bonusnya adalah "1000".
Lakukan tes logis dan dapatkan hasilnya.
