Excel VBA không phải hàm
Các hàm logic rất hữu ích cho các tính toán yêu cầu nhiều điều kiện hoặc tiêu chí để kiểm tra. Trong các bài viết trước của chúng tôi, chúng tôi đã thấy các điều kiện “VBA IF”, “VBA OR” và “VBA AND”. Trong bài viết này, chúng ta sẽ thảo luận về "VBA NOT" với hàm IF trong excel. Để hiểu nó trước tiên, chúng ta cần nhìn vào chức năng “VBA NOT”.
Ví dụ
Ví dụ 1
Hàm NOT cũng có sẵn với VBA và nó hoạt động giống hệt như hàm excel. Ví dụ, hãy xem bộ mã VBA bên dưới.
Mã:
Sub NOT_Example1 () Dim k As String k = Not (45 = 45) MsgBox k End Sub
Trong đoạn mã trên, chúng ta đã khai báo biến “k” là một chuỗi.
Dim k As String
Tiếp theo, chúng ta đã gán giá trị thông qua hàm NOT. Hàm NOT cho biết số 45 có bằng 45 hay không?
k = Không (45 = 45)
Tiếp theo, chúng ta đã gán giá trị trả về bằng hàm NOT cho biến “k” trong hộp thông báo.
MsgBox k
Chạy mã và xem kết quả là gì.
Ví dụ # 2 - KHÔNG với Hàm IF
Như tôi đã nói trong một trong những bài viết trước, "IF với các hàm logic khác là cặp tốt nhất trong excel."
Tương tự, NOT với IF hữu ích theo nhiều cách. Với IF, chúng ta có thể có kết quả của riêng mình thay vì kết quả mặc định là TRUE hoặc FALSE.
Lấy mã ví dụ tương tự ở trên, và chúng tôi sẽ áp dụng KHÔNG với Hàm IF.
Mã:
Sub NOT_Example2 () Dim k As String If Not (45 = 45) Then k = "Kết quả thử nghiệm là TRUE" Khác k = "Kết quả thử nghiệm là FALSE" Kết thúc Nếu MsgBox k Kết thúc Sub
Trong đoạn mã trên, chúng tôi đã thay đổi kết quả mặc định từ "Kết quả kiểm tra là FALSE" và "Kết quả kiểm tra là TRUE." Nếu kiểm tra logic được cung cấp là đúng, nó sẽ trả về "Kết quả kiểm tra là FALSE" và nếu kiểm tra logic được cung cấp là sai, nó sẽ trả về. “Kết quả kiểm tra là ĐÚNG.”
Trong đoạn mã trên, chúng ta có giá trị là 45 = 45, vì vậy chúng ta sẽ nhận được câu trả lời như sau.
Ví dụ # 3 - Nâng cao NOT
Hàm NOT được sử dụng tốt nhất với hàm IF. Chúng ta có thể sử dụng chức năng này để ẩn tất cả các trang tính ngoại trừ một trang tính cụ thể.
Chúng tôi có các trang tính khác nhau, như sau trong excel của chúng tôi.
Dưới đây là mã mẫu để ẩn tất cả các trang tính ngoại trừ một trang tính cụ thể.
Mã:
Sub NOT_Example3 () Dim Ws As Worksheet Cho mỗi Ws Trong ActiveWorkbook.Worksheets If Not (Ws.Name = "Data Sheet") Then Ws.Vbroken = xlSheetVeryHideen End If Next Ws End Sub
Đoạn mã trên ẩn tất cả các trang tính ngoại trừ trang tính “Bảng dữ liệu”.
Bạn có thể sử dụng mã VBA này để ẩn tất cả các trang tính ngoại trừ một trang tính cụ thể bằng cách thay đổi tên trang tính thành tên trang tính của bạn.
Giống như cách chúng ta cũng có thể hiện trang tính trong excel. Đoạn mã dưới đây sẽ hiện tất cả các trang tính ngoại trừ tên trang tính “Bảng dữ liệu”.
Mã:
Sub NOT_Example4 () Dim Ws As Worksheet Cho mỗi Ws Trong ActiveWorkbook.Worksheets If Not (Ws.Name = "Data Sheet") Then Ws.Vible = xlSheetVible End If Next Ws End Sub
Đoạn mã dưới đây sẽ chỉ hiện tên trang tính “Bảng dữ liệu”.
Mã:
Sub NOT_Example3 () Dim Ws As Worksheet cho mỗi W trong ActiveWorkbook.Worksheets If Not (Ws.Name "Data Sheet") Then Ws.Vible = xlSheetVible End If Next Ws End Sub
