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 kita benar hasil apabila salah satu syarat dikembalikan benar.
Apakah Fungsi ATAU dalam VBA?
Dalam excel, fungsi logik adalah inti dari formula yang kita gunakan setiap hari. Fungsi logik ada untuk melakukan ujian logik dan memberikan hasil dalam jenis data Boolean, iaitu, 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, kami 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”?
Secara sederhana, "ATAU" bermaksud "baik ini atau itu"
Dengan idea yang sama, OR 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 keadaan logik BENAR. Sekiranya ada syarat yang tidak dipenuhi, maka kita akan mendapat PALSU.
Formula VBA ATAU Fungsi
Izinkan saya membuat sintaks agar anda memahami fungsinya.
(Ujian Logik) ATAU (Uji Logik) ATAU (Ujian 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.
Dari 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.
Untuk 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 Sebagai Rentetan 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: Baiklah, 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 yang kami sediakan, satu ujian adalah BENAR, jadi 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 <menjadi sama (=) tanda. 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 sebagai 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, lakukan ujian menggunakan fungsi OR .
Kod:
Sub OR_Contoh2 () Dim i Sebagai Rentetan JIKA 25 = 20 Atau 50 = 30 Sub Akhir
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
Sekiranya pekerja berasal dari "Kewangan" atau "IT", maka mereka harus mendapat bonus sebagai "5000". Untuk pekerja jabatan lain, bonus adalah "1000".
Lakukan ujian logik dan sampai pada hasilnya.
