Hàm HOẶC VBA (Ví dụ) | Cách sử dụng Toán tử logic HOẶC trong VBA?
Hoặc là một hàm logic trong bất kỳ ngôn ngữ lập trình nào và tương tự trong VBA, chúng ta có hàm OR, vì nó là một hàm logic, kết quả được đưa ra bởi hàm này là đúng hoặc sai, hàm này được sử dụng cho hai hoặc nhiều điều kiện cùng nhau và cho cho chúng tôi kết quả true khi một trong hai điều kiện được trả về true.
Hàm OR trong VBA là gì?
Trong excel, các hàm logic là trung tâm của các công thức chúng ta sử dụng hàng ngày. Các hàm logic ở đó để tiến hành kiểm tra logic và cho kết quả ở kiểu dữ liệu Boolean tức là TRUE hoặc FALSE. Một số công thức logic trong excel là "IF, IFERROR trong excel, ISERROR trong excel, AND và OR trong hàm excel". Tôi hy vọng bạn đã sử dụng chúng khá thường xuyên như một hàm trang tính. Trong VBA cũng vậy, chúng ta có thể sử dụng tất cả chúng và trong bài viết này, chúng tôi sẽ giải thích cho bạn các cách sử dụng hàm “VBA OR”.
Điều đầu tiên xuất hiện trong đầu bạn khi bạn nghĩ đến từ “HOẶC” là gì?
Theo thuật ngữ đơn giản “HOẶC” có nghĩa là “cái này hoặc cái kia”
Với cùng một ý tưởng HOẶC là một hàm logic cho kết quả là TRUE nếu bất kỳ một trong các phép thử logic nào là TRUE và cho kết quả là FALSE nếu không một phép thử logic nào là TRUE.
Điều này hoạt động hoàn toàn ngược lại với chức năng VBA AND. Hàm AND chỉ trả về TRUE nếu tất cả các điều kiện logic là TRUE, nếu bất kỳ điều kiện nào không được thỏa mãn thì chúng ta sẽ nhận được kết quả là FALSE.
Công thức của hàm VBA OR
Hãy để tôi đóng khung cú pháp cho bạn hiểu về hàm.
[Kiểm tra logic] HOẶC [Kiểm tra logic] HOẶC [Kiểm tra logic]
Đầu tiên, chúng ta cần đề cập đến bài kiểm tra logic là gì sau đó đề cập đến từ HOẶC sau đó đề cập đến bài kiểm tra logic thứ hai là gì. Nếu bạn muốn thực hiện một bài kiểm tra logic hơn, hãy đề cập đến từ HOẶC sau khi liên tục kiểm tra logic.
Tắt tất cả các bài kiểm tra logic bạn làm, nếu bất kỳ ai trong số các bài kiểm tra hài lòng hoặc đúng thì chúng tôi sẽ nhận được kết quả là TRUE nếu không có hoặc thỏa mãn thì kết quả là FALSE.
Ví dụ về việc sử dụng hàm OR trong VBA
Chúng tôi sẽ chỉ cho bạn một ví dụ đơn giản về việc sử dụng hàm OR trong VBA.
Bạn có thể tải Mẫu VBA HOẶC Excel này tại đây - Mẫu VBA HOẶC ExcelĐể hiểu hàm VBA hợp lý HOẶC để tôi cho bạn một ví dụ. Giả sử chúng ta muốn thực hiện phép thử logic xem số 25 lớn hơn 20 hay số 50 nhỏ hơn 30.
Bước 1: Tạo tên macro.
Bước 2: Định nghĩa biến dưới dạng chuỗi.
Mã:
Sub OR_Example1 () Dim i As String End Sub
Bước 3: Bây giờ đối với biến này, chúng ta sẽ gán giá trị thông qua kiểm tra logic OR.
Mã:
Sub OR_Example1 () Dim i As String i = End Sub
Bước 4: Kiểm tra logic đầu tiên của chúng tôi là 25> 20 .
Mã:
Sub OR_Example1 () Dim i As String i = 25> 20 End Sub
Bước 5: Bây giờ sau bài kiểm tra logic đầu tiên, hãy đề cập đến từ HOẶC và bước vào bài kiểm tra logic thứ hai.
Mã:
Sub OR_Example1 () Dim i As String i = 25> 20 Hoặc 50 <30 End Sub
Bước 6: Ok, bây giờ hàm VBA OR kiểm tra xem các bài kiểm tra logic là TRUE hay FALSE. Bây giờ gán kết quả của biến vào hộp thông báo VBA .
Mã:
Sub OR_Example1 () Dim i As String i = 25> 20 Hoặc 50 <30 MsgBox i End Sub
Bước 7: Chạy macro và kết quả là gì.
Chúng tôi nhận được kết quả là ĐÚNG vì trong số hai bài kiểm tra logic, chúng tôi đã cung cấp một bài kiểm tra là ĐÚNG nên kết quả là ĐÚNG.
25 lớn hơn 20 và 50 không nhỏ hơn 30, trong trường hợp này, phép thử logic đầu tiên là TRUE nhưng thứ hai là FALSE. Bởi vì chúng tôi đã áp dụng hàm VBA OR, nó cần bất kỳ điều kiện nào là TRUE để nhận được kết quả là TRUE.
Bây giờ, hãy xem đoạn mã dưới đây.
Mã:
Sub OR_Example1 () Dim i As String i = 25 = 20 Hoặc 50 = 30 MsgBox i End Sub
Tôi đã thay đổi các phương trình kiểm tra logic từ> và <sang dấu bằng (=). Kết quả này sẽ trả về FALSE vì 25 không bằng 20 và 50 không bằng 30.
Hàm VBA OR Với IF Điều kiện là mạnh mẽ
Như tôi đã nói OR có thể trả về kết quả là TRUE hoặc FALSE, nhưng với hàm logic khác “IF”, chúng ta có thể thao tác kết quả theo nhu cầu của mình.
Thực hiện các bài kiểm tra logic tương tự từ trên, OR chỉ trả về TRUE hoặc FALSE nhưng hãy kết hợp OR này với IF.
Bước 1: Trước khi tiến hành bất kỳ thử nghiệm nào, hãy mở hàm IF .
Mã:
Sub OR_Example2 () Dim i As String IF End Sub
Bước 2: Bây giờ tiến hành kiểm tra bằng hàm OR .
Mã:
Sub OR_Example2 () Dim i As String IF 25 = 20 Hoặc 50 = 30 End Sub
Bước 3: Đặt từ “Then” và ghi kết quả nếu điều kiện là ĐÚNG, gán giá trị cho biến là “Điều kiện thỏa mãn” .
Mã:
Sub OR_Example2 () Dim i As String Nếu 25 = 20 Hoặc 50 = 30 Thì i = "Điều kiện thỏa mãn" End Sub
Bước 4: Nếu điều kiện là FALSE thì chúng ta cần một kết quả khác, vì vậy hãy đặt từ “ELSE” và ở dòng tiếp theo gán giá trị cho biến “kết quả sẽ là gì nếu điều kiện hoặc phép thử logic là FALSE”.
Mã:
Sub OR_Example2 () Dim i As String Nếu 25 = 20 Hoặc 50 = 30 Thì i = "Điều kiện thỏa mãn" Khác i = "Điều kiện không thỏa mãn" Kết thúc Sub
Bước 5: Kết thúc hàm IF bằng từ “End If” .
Mã:
Sub OR_Example2 () Dim i As String Nếu 25 = 20 Hoặc 50 = 30 Thì i = "Điều kiện được thỏa mãn" Khác i = "Điều kiện không được thỏa mãn" End If End Sub
Bước 6: Gán giá trị của kết quả biến vào hộp thông báo .
Mã:
Sub OR_Example2 () Dim i As String If 25 = 20 or 50 = 30 Then i = "Condition is Thỏa mãn" Khác i = "Điều kiện không thỏa mãn" End If MsgBox i End Sub
Chạy macro, nếu kiểm tra logic là ĐÚNG, chúng ta sẽ nhận được kết quả là “Điều kiện được thỏa mãn” hoặc nếu không chúng ta sẽ nhận được “Điều kiện không được thỏa mãn”.
Chúng tôi nhận được kết quả là "Điều kiện không được thỏa mãn" vì cả hai bài kiểm tra logic đều FALSE.
Bây giờ tôi sẽ thay đổi các bài kiểm tra logic.
Mã:
Sub OR_Example2 () Dim i As String If 25> 20 or 50 <30 Then i = "Condition is Thỏa mãn" Else i = "Điều kiện không thỏa mãn" End If MsgBox i End Sub
Tôi sẽ chạy macro và xem kết quả là gì.
Như vậy, chúng ta có thể sử dụng một hàm logic với các hàm logic khác để đi đến kết quả.
Giải bài tập tình huống dưới đây để làm quen với các hàm logic.
Nghiên cứu điển hình để giải quyết
Tôi có tên nhân viên và các phòng ban tương ứng của họ.
Nếu bạn đã thử mà không thấy kết quả thì bạn có thể tham khảo đoạn mã dưới đây để hiểu logic.
Mã:
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 ô khác (i, 3) .Value = 1000 End If Next i End Sub
Nếu nhân viên đến từ “Tài chính” hoặc “CNTT” thì họ sẽ nhận được tiền thưởng là “5000”. Đối với các nhân viên bộ phận khác, tiền thưởng là “1000”.
Tiến hành kiểm tra logic và đi đến kết quả.
