VBA logic Operators: AND, OR, NOT, IF NOT trong Excel VBA

Ba mô tả trên sẽ dễ nhớ hơn nếu được xem như một bảng tổng hợp các thông tin đầu vào và kết quả.

Bảng chân lý cho logic VBA Operaxoắn

Bảng chân lý liệt kê mọi tổ hợp đầu vào và kết quả mà mỗi toán tử trả về. Chỉ cần đọc bảng này một lần là đủ để loại bỏ phỏng đoán khỏi bất kỳ điều kiện nào bạn viết sau này.

Có hai mẫu hình đáng để ghi nhớ. VÀ Chỉ trả về giá trị True trên một hàng trong bốn hàng, do đó nó thu hẹp phạm vi lựa chọn. OR Chỉ trả về giá trị False trên một hàng duy nhất, do đó nó mở rộng thêm một hàng. KHÔNG Nó chỉ nhận một điều kiện thay vì hai điều kiện, đó là lý do tại sao nó có một cột riêng.

VBA logic OperaVí dụ về nguồn Code

Để đơn giản, chúng ta sẽ so sánh các số được mã hóa cứng.

Thêm các nút ActiveX vào trang tính từ tùy chọn “Chèn”.

Đặt thuộc tính như trong hình bên dưới

Bảng sau đây hiển thị các thuộc tính bạn cần thay đổi và các giá trị bạn cần cập nhật.

Thêm mã sau vào btnAND_Click

Private Sub btnAND_Click()
If (1 = 1) And (0 = 0) Then
    MsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"
Else
    MsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"
End If
End Sub

VBA Nếu VÀ Operator

• “Nếu (1 = 1) Và (0 = 0) Thì” câu lệnh if sử dụng toán tử logic AND để kết hợp hai điều kiện (1 = 1) Và (0 = 0). Nếu cả hai điều kiện đều đúng, đoạn mã phía trên từ khóa 'Khác' sẽ được thực thi. Nếu cả hai điều kiện đều không đúng, mã bên dưới từ khóa 'Khác' sẽ được thực thi.

Cả hai điều kiện đều đúng ở đây, vì vậy khi nhấn nút sẽ hiển thị "AND được đánh giá là TRUE".

Thêm mã sau vào btnOR_Click

Private Sub btnOR_Click()
If (1 = 1) Or (5 = 0) Then
    MsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"
Else
    MsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"
End If
End Sub

VBA Nếu HOẶC Operator

• “Nếu (1 = 1) Hoặc (5 = 0) Thì” Câu lệnh if sử dụng toán tử logic OR để kết hợp hai điều kiện (1 = 1) hoặc (5 = 0). Nếu bất kỳ điều kiện nào đúng, đoạn mã phía trên từ khóa Else sẽ được thực thi. Nếu cả hai điều kiện đều sai, đoạn mã phía dưới từ khóa Else sẽ được thực thi.

Điều kiện đầu tiên đúng và điều kiện thứ hai sai, vì vậy phép toán OR vẫn trả về true và thông báo hiển thị là “OR được đánh giá là TRUE”.

Thêm mã sau vào btnNOT_Click

Private Sub btnNOT_Click()
If Not (0 = 0) Then
    MsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"
Else
    MsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"
End If
End Sub

VBA Nếu KHÔNG Operator

• “Nếu không (0 = 0) thì” Hàm `if Not` trong VBA sử dụng toán tử logic `NOT` để phủ định kết quả của điều kiện trong câu lệnh `if`. Điều kiện bên trong (0 = 0) là đúng, vì vậy `NOT` biến nó thành sai và đoạn mã bên dưới từ khóa `Else` sẽ được thực thi. Nếu điều kiện bên trong là sai, `NOT` sẽ biến nó thành đúng và đoạn mã phía trên `Else` sẽ được chạy thay thế.

Ba nút này mỗi nút kiểm tra một giá trị cố định. Các điều kiện thực tế được đọc từ bảng tính và kết hợp cả hai nhóm toán tử.

Cách kết hợp tư duy logic và phép so sánh Operaxoắn

Macro sản xuất hiếm khi kiểm tra một con số được mã hóa cứng. Nó đọc một giá trị, so sánh giá trị đó và kết hợp một số phép so sánh đó thành một quyết định duy nhất. Macro bên dưới chỉ phê duyệt đơn đặt hàng khi sản phẩm tồn tại, số lượng đủ và tài khoản khách hàng không bị tạm khóa.

Sub ApproveOrder()
    Dim QtyOnHand As Long
    Dim QtyOrdered As Long
    Dim OnHold As Boolean

    QtyOnHand = Sheet1.Range("B2").Value
    QtyOrdered = Sheet1.Range("B3").Value
    OnHold = Sheet1.Range("B4").Value

    ' All three parts must hold for the order to pass
    If (QtyOrdered > 0) And (QtyOnHand >= QtyOrdered) And Not OnHold Then
        Sheet1.Range("B5").Value = "Approved"
    Else
        Sheet1.Range("B5").Value = "On hold"
    End If
End Sub

Ba quy tắc giúp cho điều kiện kết hợp trở nên dễ đọc và chính xác.

• Hãy bỏ qua mọi sự so sánh: VBA đánh giá các toán tử so sánh trước các toán tử logic, nhưng dấu ngoặc đơn tạo thành nhóm.ping Rõ ràng và giúp tránh sai sót khi tình trạng trở nên nghiêm trọng hơn về sau.
• Hãy lưu ý thứ tự ưu tiên của "And" so với "Or": A hoặc B và C được đọc là A Hoặc (B Và C)Nếu bạn có ý (A hoặc B) và CDấu ngoặc là bắt buộc.
• Áp dụng điều kiện "Không" cho kiểu dữ liệu Boolean, cũng không áp dụng cho kiểu dữ liệu Number: Không đang chờ Đọc một cách tự nhiên. Tránh Không phải là 5Vì Not thực hiện phép toán bitwise trên các số và trả về -6 thay vì False.

⚠️ Cảnh báo: VBA không thực hiện rút ngắn mạch. Trong Nếu (ws là Nothing) hoặc (ws.Name = “Data”) thìPhần thứ hai vẫn chạy ngay cả khi phần đầu tiên đúng, điều này gây ra lỗi thời gian chạy 91. Hãy tách các điều kiện kiểm tra như vậy thành các câu lệnh If lồng nhau.

Xor, Eqv và Imp Operacác công ty trong VBA

Các toán tử AND, OR và NOT bao gồm hầu hết mọi điều kiện thường ngày, nhưng VBA cung cấp thêm ba toán tử logic khác đôi khi thể hiện một quy tắc rõ ràng hơn nhiều so với một chuỗi các câu lệnh If lồng nhau.

Phép toán XOR là phép toán thực tế nhất trong ba phép toán. Nó phù hợp với quy tắc như "giảm giá áp dụng cho nhân viên hoặc thành viên chương trình khách hàng thân thiết, nhưng không áp dụng cho người vừa là nhân viên vừa là thành viên chương trình khách hàng thân thiết". Phép toán Eqv và Imp chủ yếu xuất hiện trong các đoạn mã cũ và trong các bài tập logic, vì vậy việc nhận biết chúng quan trọng hơn việc viết ra chúng.

Tải xuống Excel chứa mã ở trên

Câu Hỏi Thường Gặp