Ví dụ này minh họa bộ sưu tập Khu vực trong Excel VBA. Dưới đây chúng tôi có Phạm vi được bao quanh (“B2: C3, C5: E5”). Phạm vi này có hai lĩnh vực. Dấu phẩy ngăn cách hai khu vực.

Areas Collection in Excel VBA

Đặt một nút lệnh trên trang tính của bạn và thêm các dòng mã sau:

  1. Đầu tiên, chúng ta khai báo hai đối tượng Range. Chúng tôi gọi các đối tượng Range là rangeToUse và singleArea.

Dim rangeToUse As Range, singleArea As Range

  1. Chúng tôi khởi tạo phạm vi đối tượng RangeToUse with Range (“B2: C3, C5: E5”)

Set rangeToUse = Range("B2:C3,C5:E5")

  1. Để đếm số vùng của rangeToUse, hãy thêm dòng mã sau:

MsgBox rangeToUse.Areas.Count

Kết quả:

Count Areas

  1. Bạn có thể tham khảo các khu vực khác nhau của rangeToUse bằng cách sử dụng các giá trị chỉ mục. Dòng mã sau đếm số ô của vùng đầu tiên.

MsgBox rangeToUse.Areas(1).Count

Kết quả:

Count Cells

  1. Bạn cũng có thể lặp qua từng vùng của dải ôToUse và đếm số ô của mỗi vùng. Macro bên dưới thực hiện thủ thuật.

For Each singleArea In rangeToUse.Areas

MsgBox singleArea.Count

Next singleArea

Kết quả:

Count Cells

Count Cells