VBA ATAU Fungsi (Contoh) | Bagaimana Cara Menggunakan ATAU Operator Logis di VBA?

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 formula 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 juga kami dapat menggunakan semuanya dan dalam 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 adalah TRUE, jika salah satu kondisi tidak terpenuhi maka kita akan mendapatkan FALSE sebagai hasilnya.

Rumus VBA ATAU Fungsi

Biarkan saya membingkai sintaks agar Anda memahami fungsinya.

[Uji Logis] ATAU [Uji Logis] ATAU [Uji Logis]

Pertama, kita perlu menyebutkan apa itu tes logis kemudian menyebutkan kata OR kemudian menyebutkan apa tes logis kedua. Jika Anda ingin melakukan tes yang lebih logis, sebutkan kata ATAU setelah tes logika sebelumnya.

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.

Anda dapat mendownload Template VBA ATAU Excel ini di sini - Template VBA ATAU Excel

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 sebagai BENAR karena dari dua tes logika kami memberikan satu tes BENAR sehingga hasilnya BENAR.

25 lebih besar dari 20 dan 50 tidak kurang dari 30, dalam hal 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_Contoh1 () Dim i Sebagai String i = 25 = 20 Atau 50 = 30 MsgBox i End Sub

Saya telah mengubah persamaan tes logis dari> dan <menjadi sama dengan (=) tanda. Ini akan mengembalikan FALSE sebagai hasil karena 25 tidak sama dengan 20 dan 50 tidak sama dengan 30.

VBA ATAU Fungsi Dengan Kondisi JIKA Kuat

Seperti yang saya katakan OR dapat mengembalikan TRUE atau FALSE sebagai hasilnya, tetapi dengan fungsi logis lainnya "IF", kita dapat memanipulasi hasil sesuai kebutuhan kita.

Lakukan tes logika yang sama dari atas, OR hanya mengembalikan TRUE atau FALSE tetapi mari kita gabungkan OR dengan IF.

Langkah 1: Sebelum melakukan tes apa pun, buka fungsi IF .

Kode:

 Sub OR_Example2 () Dim i As String IF End Sub

Langkah 2: Sekarang lakukan pengujian menggunakan fungsi OR .

Kode:

 Sub OR_Contoh2 () Dim i Sebagai String JIKA 25 = 20 Atau 50 = 30 Akhir Sub

Langkah 3: Letakkan kata “Then” dan tulis hasilnya jika kondisinya BENAR, tetapkan nilai ke variabel sebagai “Condition is Satisfied” .

Kode:

 Sub OR_Example2 () Dim i As String Jika 25 = 20 Atau 50 = 30 Maka i = "Kondisi Puas" End Sub

Langkah 4: Jika kondisinya FALSE maka kita membutuhkan hasil yang berbeda, jadi masukkan kata “ELSE” dan di baris berikutnya berikan nilai pada variabel “what should be result if the condition or logical test is FALSE”.

Kode:

 Sub OR_Example2 () Dim i As String Jika 25 = 20 Atau 50 = 30 Maka i = "Kondisi Puas" Lain i = "Kondisi Tidak Puas" End Sub

Langkah 5: Akhiri fungsi IF dengan kata "End If" .

Kode:

 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

If the employee is from “Finance” or “IT” then they should get the bonus as “5000”. For other department employees, the bonus is “1000”.

Conduct the logical test and arrive at the results.