Atau adakah fungsi logik dalam salah satu bahasa pengaturcaraan dan serupa di VBA kita mempunyai fungsi ATAU, kerana itu adalah fungsi logik hasil yang diberikan oleh fungsi ini sama ada benar atau salah, fungsi ini digunakan untuk dua atau banyak keadaan bersamaan dan memberikan kami benar hasil apabila salah satu syarat dikembalikan benar.
Apakah Fungsi ATAU dalam VBA?
Dalam fungsi logik excel adalah inti dari formula yang kita gunakan setiap hari. Fungsi logik ada untuk menjalankan ujian logik dan memberikan hasil dalam jenis data Boolean iaitu sama ada BENAR atau SALAH. Beberapa formula logik dalam excel adalah "IF, IFERROR in excel, ISERROR in excel, AND, dan OR excel function". Saya harap anda sering menggunakannya sebagai fungsi lembaran kerja. Di VBA juga kita dapat menggunakan semuanya dan dalam artikel ini, kami akan menerangkan kepada anda cara-cara menggunakan fungsi "VBA ATAU".
Apakah perkara pertama yang terlintas di fikiran anda apabila anda memikirkan perkataan “ATAU”?
Dengan kata mudah "ATAU" bermaksud "baik ini atau itu"
Dengan idea yang sama ATAU adalah fungsi logik yang memberikan hasilnya sebagai BENAR jika salah satu daripada ujian logik itu BENAR dan memberikan SALAH hasilnya jika tiada satu pun ujian logik yang BENAR.
Ini berfungsi bertentangan dengan fungsi VBA AND. Fungsi DAN mengembalikan BENAR hanya jika semua syarat logik BENAR, jika salah satu syarat tidak dipenuhi maka kita akan mendapat SALAH hasilnya.
Formula VBA ATAU Fungsi
Izinkan saya membuat sintaks agar anda memahami fungsinya.
[Uji Logik] ATAU [Uji Logik] ATAU [Uji Logik]
Pertama, kita perlu menyebut apa itu ujian logik kemudian menyebut perkataan ATAU kemudian menyebut apakah ujian logik kedua. Sekiranya anda ingin melakukan ujian yang lebih logik maka sebutkan perkataan ATAU setelah menjalani ujian logik.
Matikan semua ujian logik yang anda lakukan, jika ada ujian yang berpuas hati atau benar maka kami akan mendapat hasilnya sebagai BENAR jika tidak ada atau berpuas hati maka hasilnya adalah SALAH.
Contoh Menggunakan Fungsi ATAU dalam VBA
Kami akan menunjukkan contoh ringkas penggunaan fungsi ATAU di VBA.
Anda boleh memuat turun Templat VBA ATAU Excel ini di sini - Templat VBA ATAU ExcelUntuk memahami fungsi VBA logik ATAU izinkan saya memberi anda contoh. Katakan kita mahu menjalankan ujian logik sama ada nombor 25 lebih besar daripada 20 atau nombor 50 kurang daripada 30.
Langkah 1: Buat nama makro.
Langkah 2: Tentukan pemboleh ubah sebagai rentetan.
Kod:
Sub OR_Contoh1 () Dim i Sebagai String End Sub
Langkah 3: Sekarang untuk pemboleh ubah ini, kami akan memberikan nilai melalui ujian logik ATAU.
Kod:
Sub OR_Contoh1 () Dim i Sebagai Rentetan i = Sub Akhir
Langkah 4: Ujian logik pertama kami ialah 25> 20 .
Kod:
Sub OR_Contoh1 () Dim i As String i = 25> 20 Sub Akhir
Langkah 5: Sekarang setelah ujian logik pertama sebutkan perkataan ATAU dan masukkan ujian logik kedua.
Kod:
Sub OR_Contoh1 () Dim i As String i = 25> 20 Atau 50 <30 Sub Akhir
Langkah 6: Ok, sekarang fungsi VBA ATAU menguji sama ada ujian logik itu BENAR atau SALAH. Sekarang tetapkan hasil pemboleh ubah ke kotak mesej VBA .
Kod:
Sub OR_Contoh1 () Dim i As String i = 25> 20 Atau 50 <30 MsgBox i End Sub
Langkah 7: Jalankan makro dan apa hasilnya.
Kami mendapat hasilnya sebagai BENAR kerana daripada dua ujian logik kami telah memberikan satu ujian adalah BENAR sehingga hasilnya adalah BENAR.
25 lebih besar daripada 20 dan 50 tidak kurang dari 30, dalam kes ini, ujian logik pertama adalah BENAR tetapi yang kedua adalah SALAH. Kerana kita telah menerapkan fungsi VBA ATAU, ia memerlukan salah satu syarat untuk menjadi BENAR untuk mendapatkan hasilnya sebagai BENAR.
Sekarang, lihat kod di bawah.
Kod:
Sub OR_Contoh1 () Dim i As String i = 25 = 20 Atau 50 = 30 MsgBox i End Sub
Saya telah mengubah persamaan ujian logik dari> dan <ke tanda (=) sama. Ini akan mengembalikan SALAH hasilnya kerana 25 tidak sama dengan 20 dan 50 tidak sama dengan 30.
VBA ATAU Fungsi Dengan Keadaan JIKA Kuat
Seperti yang saya katakan ATAU dapat mengembalikan BENAR atau SALAH hasilnya, tetapi dengan fungsi logik lain "JIKA", kita dapat memanipulasi hasil sesuai dengan keperluan kita.
Ikuti ujian logik yang sama dari atas, ATAU hanya mengembalikan BENAR atau SALAH tetapi mari kita gabungkan ATAU ini dengan JIKA.
Langkah 1: Sebelum menjalankan sebarang ujian, buka fungsi JIKA .
Kod:
Sub OR_Contoh2 () Dim i Sebagai Rentetan JIKA Sub Akhir
Langkah 2: Sekarang jalankan ujian menggunakan fungsi OR .
Kod:
Sub OR_Contoh2 () Dim i Sebagai Rentetan JIKA 25 = 20 Atau 50 = 30 Sub Akhir
Langkah 3: Masukkan perkataan "Kemudian" dan tulis hasilnya jika keadaan BENAR, tetapkan nilainya ke pemboleh ubah sebagai "Kondisi Puas" .
Kod:
Sub OR_Contoh2 () Dim i Sebagai Rentetan Jika 25 = 20 Atau 50 = 30 Maka i = "Keadaan Puas" Akhir Sub
Langkah 4: Jika kondisinya SALAH maka kita memerlukan hasil yang berbeda, jadi masukkan kata "ELSE" dan di baris berikutnya tetapkan nilainya ke pemboleh ubah "apa yang seharusnya menjadi hasilnya jika keadaan atau ujian logik SALAH"
Kod:
Sub OR_Contoh2 () Dim i Sebagai Rentetan Jika 25 = 20 Atau 50 = 30 Maka i = "Keadaan Puas" Lain-lain i = "Keadaan tidak Puas" Akhir Sub
Langkah 5: Tamatkan fungsi IF dengan perkataan "End If" .
Kod:
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.
