VBA COUNTIF (Ví dụ) | Làm thế nào để sử dụng Hàm COUNTIF trong Excel VBA?

VBA COUNTIF

Các hàm dựa trên tiêu chí là những người cai trị excel trong các phép tính. Khi bắt đầu học excel, chắc hẳn chúng ta đã học hàm 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. Đầu tiên, điều đầu tiên COUNTIF không phải là một hàm VBA mà 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.

Bạn có thể tải xuống Mẫu Excel Hàm Countif VBA này tại đây - Mẫu Excel Hàm Countif VBA

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ó 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, 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 mã là Phạm vi (“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 Worksheet Function.

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 thông 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 bảng tính, chúng ta có cú pháp rõ ràng 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 đếm "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ề kết quả 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 sẽ không thấy công thức trong thanh công thức.

Để có 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. Để biết 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") Đặt ResultCell = Range ("C3") CriteriaValue = "Bangalore" ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue ) Kết thúc Sub 

Để tôi giải mã cho bạn hiểu rõ hơn.

Đầu tiên tôi đã khai báo hai biến là Phạm vi.

Dim ValuesRange As Range: Đây là để tham chiếu danh sách các giá trị.

Dim ResultCell As Range: Điều này để tham chiếu đến ô kết quả.

Sau đó, tôi đã đặt phạm vi tham chiếu cho cả hai biến.

Đặt ValuesRange = Phạm vi (“A1: A10”): Đây là phạm vi có tất cả các tên thành phố.

Đặt ResultCell = Range (“C3”): Trong ô này, chúng tôi sẽ lưu trữ kết quả của hàm COUNTIF.

Trong thời gian này, tôi đã khai báo thêm một biến để lưu trữ giá trị tiêu chí.

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.


$config[zx-auto] not found$config[zx-overlay] not found