VBA COUNTIF
Các hàm dựa trên tiêu chí là các chức năng thống trị của excel trong các phép tính. Khi bắt đầu học excel, chắc hẳn chúng ta đã tìm hiểu quy trình COUTNIF trong excel. Trong các bài viết trước của chúng tôi, chúng tôi đã hướng dẫn bạn cách làm việc với hàm COUNTIF trong Excel VBA.
Tham khảo bài viết của chúng tôi về Công thức COUNTIF trong Excel để biết những kiến thức cơ bản về hàm COUNTIF trong Excel VBA. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách sử dụng hàm tương tự trong mã hóa VBA. Bây giờ chúng ta sẽ thấy công thức tương tự trong VBA. Điều đầu tiên, COUNTIF không phải là một hàm VBA; thay vào đó, nó là một hàm trang tính có thể được truy cập dưới lớp hàm trang tính.
Ví dụ về Hàm Countif trong Excel VBA
Ok, hãy xem ví dụ đơn giản.
Hãy xem ví dụ tương tự dưới đây về việc đếm các giá trị từ lô.
Trong hình trên, chúng ta có các tên thành phố từ ô A1 đến A10. Trong ô C3, chúng ta cần đếm số lần tên thành phố “Bangalore” xuất hiện trong phạm vi A1 đến A10.
Ok, hãy làm theo các bước dưới đây để viết mã áp dụng hàm COUNTIF.
Bước 1: Bắt đầu thủ tục Sub.
Mã:
Tùy chọn Đếm phụ rõ ràngif_Example1 () Kết thúc phụ
Bước 2: Vì chúng ta cần lưu trữ kết quả trong ô C3, hãy bắt đầu Range (“C3”). Giá trị.
Mã:
Sub Countif_Example1 () Phạm vi ("C3"). Giá trị = End Sub
Bước 3: Trong ô C3, bằng cách áp dụng hàm VBA COUNTIF trong excel, chúng tôi đang cố gắng đi đến kết quả. Vì vậy, để truy cập hàm, trước tiên chúng ta cần sử dụng lớp Hàm Worksheet.
Mã:
Sub Countif_Example1 () Phạm vi ("C3"). Giá trị = WorksheetFunction. Kết thúc Sub
Bước 4: Từ hàm VBA COUNTIF trong excel chọn bị mất.
Mã:
Sub Countif_Example1 () Range ("C3"). Giá trị = WorksheetFunction.CountIf (End Sub
Bước 5: Nếu nhìn vào thông số của hàm VBA COUNTIF, chúng ta không thấy tham số như chúng ta thấy trong bảng tính.
Như chúng ta có thể thấy trong hình trên trong trang tính, chúng ta có cú pháp chính xác, nhưng trong VBA, chúng ta chỉ có thể thấy Arg 1 & Arg 2.
Arg 1 là Phạm vi, vì vậy hãy chọn phạm vi là A1 đến A10.
Mã:
Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), End Sub
Bước 6: Arg 2 là giá trị mà chúng ta cần đếm từ phạm vi A1 đến A10. Trong ví dụ này, chúng ta cần tính toán “Bangalore”.
Mã:
Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") End Sub
Ok, chúng tôi đã hoàn thành.
Chạy mã để xem kết quả trong ô C3.
Chúng tôi nhận được kết quả là 4. Vì tên thành phố “Bangalore” xuất hiện trong ô A1, A4, A7 và A10 hàm VBA COUNTIF trả về sản phẩm là 4.
Nếu bạn có thể thấy mã VBA chỉ trả về kết quả của công thức, chúng tôi không biết quy trình trong thanh công thức.
Để đi đến công thức, chúng ta cần viết mã hơi khác một chút. Dưới đây là mã để bạn áp dụng chính công thức cho ô.
Mã:
Sub Countif_Example1 () Range ("C3"). Formula = "= CountIf (A1: A10," "Bangalore" ")" End Sub
Điều này sẽ áp dụng công thức cho ô C3.
Đến kết quả với các biến
Các biến là một phần không thể thiếu của bất kỳ ngôn ngữ mã hóa nào. Chúng ta cần khai báo các biến để hoạt động hiệu quả với mã VBA. Ví dụ, hãy xem đoạn mã dưới đây.
Mã:
Sub Countif_Example2() Dim ValuesRange As Range Dim ResultCell As Range Dim CriteriaValue As String Set ValuesRange = Range("A1:A10") Set ResultCell = Range("C3") CriteriaValue = "Bangalore" ResultCell = WorksheetFunction.CountIf(ValuesRange, CriteriaValue) End Sub
Let me decode the code for you to understand better.
Firstly I have declared the two variables as Range.
Dim ValuesRange As Range: This is to reference the list of values.
Dim ResultCell As Range: This to reference the result cell.
Then I have set the range of references to both the variables.
Set ValuesRange = Range(“A1: A10”): This is the range where all the city names are there.
Set ResultCell = Range(“C3”): In this cell, we will store the result of the COUNTIF function.
In the meantime, I have declared one more variable to store the criteria value.
Dim CriteriaValue As String
CriteriaValue = “Bangalore”
Vì vậy, bây giờ biến “CriteteriaValue” giữ giá trị “Bangalore”.
Trong dòng tiếp theo, như thường lệ, tôi đã áp dụng hàm COUTNIF.
ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)
Như vậy, chúng ta có thể áp dụng hàm COUNTIF trong Excel VBA để phù hợp với nhu cầu của mình.
