Đếm hàng VBA - Làm thế nào để đếm số lượng hàng đã sử dụng trong VBA?

Số lượng hàng VBA trong Excel

Trong lập trình VBA, đề cập đến hàng là quan trọng nhất và đếm hàng là một trong những điều bạn phải biết khi nói đến mã hóa VBA. Có rất nhiều giá trị mà chúng ta có thể nhận được nếu chúng ta có thể hiểu tầm quan trọng của việc đếm các hàng có dữ liệu trong trang tính. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách đếm hàng bằng mã hóa VBA.

Làm thế nào để đếm hàng trong VBA?

Ví dụ 1

Để đếm hàng, chúng ta cần sử dụng đối tượng RANGE, trong đối tượng này, chúng ta cần sử dụng đối tượng ROWS và trong đối tượng này, chúng ta cần sử dụng thuộc tính COUNT.

Ví dụ, hãy xem dữ liệu dưới đây trong excel.

Từ dữ liệu trên, chúng ta cần xác định có bao nhiêu hàng trong phạm vi A1 đến A8. Vì vậy, trước tiên hãy xác định biến là số nguyên để lưu trữ số hàng.

Mã:

Sub Count_Rows_Example1 () Dim No_Of_Rows as Integer End Sub

Đối với biến này, chúng ta sẽ gán số hàng, vì vậy hãy nhập tên biến và bỏ dấu bằng.

Mã:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub

Chúng tôi cần cung cấp một dải ô, vì vậy hãy mở đối tượng RANGE và cung cấp dải ô là “A1: A8”. Mã:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub

Khi phạm vi được cung cấp, chúng ta cần đếm số hàng, vì vậy hãy chọn thuộc tính ROWS của đối tượng RANGE.

Trong thuộc tính ROWS của đối tượng RANGE, chúng tôi đang đếm một số hàng, vì vậy hãy chọn thuộc tính “COUNT” ngay bây giờ.

Bây giờ trong hộp thông báo hiển thị giá trị của biến.

Mã:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Bây giờ hãy chạy mã và xem số hàng của dải ô được cung cấp.

Được, có 8 hàng được cung cấp cho phạm vi, vì vậy số hàng trong hộp thông báo là 8.

Ví dụ số 2

Chúng tôi cũng có các cách đếm hàng khác, đối với phương pháp trên, chúng tôi cần cung cấp một dải ô và trong các ô phạm vi này, nó hiển thị số hàng được chọn.

Nhưng hãy tưởng tượng tình huống mà chúng ta cần tìm cột được sử dụng cuối cùng của bất kỳ cột nào, chẳng hạn, lấy cùng một dữ liệu như đã thấy ở trên.

Để di chuyển đến ô được sử dụng cuối cùng từ ô A1, chúng ta nhấn phím tắt excel “Ctrl + Mũi tên Xuống” , vì vậy nó sẽ đưa bạn đến ô cuối cùng trước ô trống.

Đầu tiên, cung cấp ô là A1 bằng đối tượng RANGE.

Mã:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub

Từ ô này, chúng ta cần di chuyển xuống và trong trang tính, chúng ta sử dụng Ctrl + Mũi tên xuống, nhưng trong VBA chúng ta sử dụng thuộc tính END, hãy chọn thuộc tính này và mở dấu ngoặc để xem các tùy chọn.

Nhìn ở đó với phím END, chúng ta có thể thấy tất cả các phím mũi tên như “xlDown, xlToLeft, xlToRight và xlUp” vì chúng ta cần di chuyển xuống sử dụng tùy chọn “xlDown”.

Mã:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub

Thao tác này sẽ đưa bạn đến ô cuối cùng trước bất kỳ ngắt nào, bây giờ trong ô đang hoạt động, chúng ta cần số hàng, vì vậy hãy sử dụng thuộc tính ROW.

Mã:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub

OK xong. Bây giờ, nó sẽ hiển thị số hàng cuối cùng và đó sẽ là số lượng hàng.

Vì vậy, trong các hàng, chúng ta có dữ liệu.

Ví dụ # 3 - Tìm hàng được sử dụng cuối cùng

Việc tìm hàng được sử dụng cuối cùng rất quan trọng để quyết định số lần vòng lặp phải chạy và cũng trong phương pháp trên, hàng cuối cùng dừng lại để chọn nếu có bất kỳ ô điểm ngắt nào, vì vậy trong phương pháp này, chúng ta có thể tìm thấy hàng được sử dụng cuối cùng mà không có vấn đề gì không.

Mở thuộc tính CELL.

Mã:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (MsgBox No_Of_Rows End Sub

Bây giờ chúng ta cần đề cập đến số hàng để bắt đầu, vấn đề ở đây là chúng ta không chắc chúng ta có bao nhiêu hàng dữ liệu, vì vậy những gì chúng ta có thể làm là chuyển ngay đến hàng cuối cùng của trang tính, vì vậy hãy đề cập đến ROWS .COUNT thuộc tính.

Mã:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub

Tiếp theo, chúng ta cần đề cập đến cột nào chúng ta đang tìm hàng được sử dụng cuối cùng, vì vậy trong trường hợp này, chúng ta đang tìm trong cột đầu tiên, vì vậy hãy đề cập đến 1.

Mã:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub

Tại thời điểm này, nó sẽ đưa bạn đến ô cuối cùng của cột đầu tiên, từ đó trở đi chúng ta cần di chuyển lên trên để đi đến ô được sử dụng cuối cùng, vì vậy hãy sử dụng thuộc tính End (xlUp).

Mã:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) MsgBox No_Of_Rows End Sub

Vì vậy, điều này sẽ đưa bạn đến ô được sử dụng cuối cùng của cột 1 và trong ô này, chúng ta cần số hàng, vì vậy hãy sử dụng thuộc tính ROW để lấy số hàng.

Mã:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox No_Of_Rows End Sub

Những điều cần ghi nhớ

  • COUNT sẽ cung cấp một số hàng trong trang tính.
  • Nếu bạn có một phạm vi, thì nó sẽ cung cấp một số hàng được chọn trong phạm vi.
  • Thuộc tính ROW sẽ trả về số hàng ô hiện hoạt.

thú vị bài viết...