Toán tử "Không bằng" VBA | Ví dụ từng bước về VBA "Không bằng"
Not Equal là một toán tử trong VBA cũng có thể được gọi là một toán tử phủ định, nó là một hàm logic nên kết quả trả về của hàm này là true hoặc false, chúng ta biết rằng toán tử bằng là “=” cái này nhưng không bằng là “ ”Trong VBA vì vậy bất kỳ giá trị nào chúng ta nhận được từ toán tử bằng nhau, chúng ta sẽ nhận được giá trị hoàn toàn ngược lại bằng cách sử dụng toán tử Không bằng.
Toán tử “Không bình đẳng” trong VBA
Thông thường, chúng tôi thực hiện một bài kiểm tra logic “liệu một thứ có ngang bằng với thứ khác hay không”. Trong một số trường hợp, chúng ta cũng cần thực hiện bài kiểm tra “bất bình đẳng” . Trắc nghiệm bất đẳng thức không là gì mà không phải là phép thử. Nói chung, chúng ta nói nếu một cái gì đó bằng với cái khác hay không, nếu nó bằng nhau thì thực hiện một số loại nhiệm vụ nếu không phải là nhiệm vụ khác. Tương tự bằng cách sử dụng kiểm tra Bất bình đẳng, chúng ta cũng có thể thực hiện một số loại hoạt động. “NOT EQUAL” trong VBA được biểu thị bằng sự kết hợp của các ký hiệu lớn hơn và nhỏ hơn. Nếu cả hai toán tử này kết hợp với nhau thì nó trở thành ký hiệu không bằng nhau, tức là “” .
Làm thế nào không bình đẳng để hoạt động trong Excel VBA?
VBA Không bằng hoạt động hoàn toàn ngược lại với logic của toán tử bằng với. Toán tử bằng với trả về TRUE nếu thử nghiệm được cung cấp không thỏa mãn, nó sẽ trả về FALSE. Ví dụ: nếu bạn nói 10 = 10, nó sẽ trả về TRUE hoặc nếu không thì FALSE.
Ở phía bên kia, "Không bằng" hoạt động theo hướng ngược lại, nếu kiểm tra logic được cung cấp trong excel không bằng nhau thì chỉ nó sẽ trả về TRUE hoặc nếu không là FALSE.
Ví dụ: nếu bạn nói 10 10, nó sẽ trả về FALSE vì 10 bằng 10. Để nhận được kết quả ĐÚNG, một giá trị không được bằng giá trị kia.
Ví dụ về Không bằng trong Excel VBA
Dưới đây là các ví dụ về toán tử không bằng trong Excel VBA.
Ví dụ 1
Bây giờ chúng ta sẽ xem cách sử dụng dấu VBA Not Equal () trong thực tế. Nhìn vào đoạn mã dưới đây.
Mã:
Sub NotEqual_Example1 () Dim k As String k = 100 100 MsgBox k End Sub
Ở đây chúng tôi đang kiểm tra xem số 100 có bằng số 100 hay không. Để chắc chắn rằng chúng tôi biết số 100 bằng 100, vì vậy kết quả sẽ là FALSE.
Bây giờ tôi sẽ thay đổi phương trình.
Mã:
Sub NotEqual_Example1 () Dim k As String k = 100 99 MsgBox k End Sub
Bây giờ bài kiểm tra là số 100 không bằng 99. Vì vậy, kết quả sẽ là TRUE.
Ví dụ số 2
Bây giờ chúng ta sẽ xem cách sử dụng toán tử không bằng này trong các ví dụ thời gian thực. Đối với cuộc biểu tình, tôi đã tạo một số dữ liệu.
Chúng tôi có hai giá trị, "Giá trị 1" và "Giá trị 2".
Bây giờ yêu cầu của tôi là nếu Giá trị 1 không bằng Giá trị 2 thì tôi cần kết quả là “Khác nhau” hoặc nếu không thì tôi cần kết quả là “Giống nhau”.
Bước 1: Định nghĩa một biến dưới dạng Số nguyên.
Mã:
Sub NotEqual_Example2 () Dim k As Integer End Sub
Bước 2: Mở FOR NEXT LOOP từ 2 đến 9.
Mã:
Sub NotEqual_Example2 () Dim k As Integer For k = 2 to 9 Next k End Sub
Bước 3: Bên trong vòng lặp, chúng ta cần kiểm tra xem giá trị 1 có bằng giá trị 2. Vì chúng ta cần kết quả của riêng mình nên chúng ta cần sử dụng Điều kiện IF.
Mã:
Sub NotEqual_Example2 () Dim k As Integer Cho k = 2 đến 9 If Cells (k, 1) Cells (k, 2) Then Cells (k, 3) .Value = "Other" Các ô khác (k, 3) .Value = "Same" End If Next k End Sub
Nếu điều kiện kiểm tra xem giá trị 1 có phải bằng giá trị 2 hay không. Nếu không bằng nó sẽ trả về “Khác nhau”, nếu bằng nó sẽ trả về “Giống nhau”.
Bạn có thể sao chép và dán mã VBA bên dưới.
Sao chép mã này vào mô-đun của bạn và chạy bằng phím F5 hoặc theo cách thủ công. Điều này sẽ trả về một kết quả như thế này.
Ẩn và hiện trang tính bằng dấu không bằng
Các cách khác nhau để sử dụng sing không bằng nhau là rất lớn. Chúng ta có thể sử dụng dấu hiệu này để đáp ứng nhu cầu của mình.
# 1 - Ẩn tất cả các trang tính trừ một trang tính
Chúng tôi đã thấy loại tình huống này nhiều lần. Chúng tôi cần phải ẩn tất cả các trang tính ngoại trừ một trang tính cụ thể.
Ví dụ: nếu bạn muốn ẩn tất cả các trang tính ngoại trừ tên trang tính “Dữ liệu khách hàng” thì bạn có thể sử dụng mã này.
Mã:
Sub Hide_All () Dim Ws As Worksheet cho mỗi W trong ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Vible = xlSheetVeryHidden End If Next Ws End SubLưu ý: Thay đổi tên trang tính thành tên trang tính của bạn.
# 2 - Hiện tất cả các trang tính trừ một trang tính
Tương tự, chúng ta cũng có thể hiện tất cả các trang tính trừ một trang tính. Sử dụng mã dưới đây để làm điều này.
Mã:
Sub Unhide_All () Dim Ws As Worksheet Cho mỗi Ws Trong ActiveWorkbook.Worksheets If Ws.Name "Customer Data" Then Ws.Vbroken = xlSheetVible End If Next Ws End Sub
Bạn có thể tải xuống mẫu VBA Not Equal to Excel này tại đây - Mẫu toán tử VBA Not Equal