Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA tính số lần xuất hiện trong năm.

Tình huống:

Year Occurrences in Excel VBA

Lưu ý: Ngày ở Định dạng Hoa Kỳ. Tháng đầu tiên, Ngày thứ hai. Loại định dạng này phụ thuộc vào cài đặt khu vực cửa sổ của bạn.

  1. Đầu tiên, chúng ta khai báo ba biến kiểu Integer. Một biến chúng tôi gọi là yearCount, một biến chúng tôi gọi là yearAsk và một biến chúng tôi gọi là i.

Dim yearCount As Integer, yearAsk As Integer, i As Integer

  1. Chúng ta khởi tạo yearCount với giá trị 0 và yearAsk với giá trị của ô C4.

yearCount = 0

yearAsk = Range("C4").Value

  1. Chúng tôi bắt đầu một vòng lặp For Next.

For i = 1 To 16

  1. Bây giờ chúng ta kiểm tra từng ngày và chỉ khi năm của ngày bằng với năm đã nhập trong ô C4, chúng ta tăng Số lượng năm lên 1. Chúng ta sử dụng hàm Year để lấy năm của ngày.

If year(Cells(i, 1).Value) = yearAsk Then

yearCount = yearCount + 1

End If

  1. Đừng quên đóng vòng lặp.

Next i

  1. Cuối cùng, chúng tôi hiển thị tổng số lần xuất hiện trong năm. Chúng tôi sử dụng toán tử & để nối (nối) hai chuỗi.

MsgBox yearCount & " occurrences in year " & yearAsk

  1. Đặt macro của bạn vào một nút lệnh và kiểm tra nó.

Kết quả:

Year Occurrences Result

Lưu ý: vì chúng tôi tạo biến yearAsk, bạn có thể chỉ cần đếm số lần xuất hiện trong năm của một năm khác bằng cách nhập một năm khác vào ô C4 và nhấp lại vào nút lệnh.