Bảng là một trong những đối tượng quan trọng và được sử dụng rộng rãi nhất mà chúng tôi sử dụng khi làm việc với VBA trong Excel. Trong bài viết này, tôi sẽ chỉ cho bạn cách bạn có thể sử dụng Bảng trong Excel với VBA .
9 cách sử dụng bảng Excel với VBA
Bảng là một loại tập dữ liệu đặc biệt trong Excel nơi hàng đầu tiên chứa tiêu đề.
Trong VBA , nó thuộc danh mục ListObject . Dưới đây là những cách bạn có thể sử dụng Bảng trong Excel trong VBA .
1. Tạo bảng bằng VBA trong Excel
Trước hết, chúng ta sẽ tìm hiểu cách tạo Bảng với VBA trong Excel.
Để tạo Bảng với VBA trong Excel, trước tiên, bạn phải khai báo Bảng dưới dạng ListObject .
Sau đó, bạn phải chèn Bảng trong phạm vi mong muốn của bạn.
Dim Table1 as ListObject
Set Table1 = ActiveSheet.ListObjects.Add(xlSrcRange, Range("B4:D13"), , xlYes)
Chạy mã này. Nó sẽ tạo ra một Bảng trong phạm vi B4:D13 của trang tính đang hoạt động của bạn.
Bây giờ, nếu muốn, bạn có thể thay đổi tên của bảng thành bất kỳ tên nào bạn thích.
Table1.Name = "MyTable"
Nó sẽ thay đổi tên của bảng thành MyTable.
Đọc thêm: Tạo bảng trong Excel bằng phím tắt
2. Tham chiếu đến Bảng Excel với VBA
Chúng tôi đã học cách tạo Bảng với VBA trong Excel.
Bây giờ để tham khảo một Bảng đã được tạo trong Excel, trước tiên bạn phải khai báo Bảng dưới dạng ListObject .
Sau đó, tham khảo Bảng với tên có sẵn trong Excel.
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
Nó đề cập đến bảng “MyTable” trong Excel với tên Table1 .
Đọc thêm: Cách sử dụng tham chiếu bảng Excel
3. Nhập giá trị trong bảng bằng VBA trong Excel
Để nhập các giá trị bên trong Bảng , trước tiên, bạn phải tham khảo Bảng .
Sau đó, bạn phải nhập các giá trị vào một ô bằng cách sử dụng Range.Cells thuộc tính của VBA .
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
Table1.Range.Cells(2, 1) = "A Tale of Two Cities"
Chạy mã này. Nó sẽ nhập chuỗi “Câu chuyện về hai thành phố” trong thứ 2 hàng và đầu tiên cột của bảng MyTable của trang tính đang hoạt động.
4. Chèn hàng và cột vào bảng bằng VBA trong Excel
Để chèn một hàng hoặc cột vào Bảng với VBA , trước tiên hãy tham khảo Bảng .
Sau đó, để thêm một hàng, hãy chèn ListRows.Add tài sản.
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
Table1.ListRows.Add
Nó thêm một hàng mới vào cuối bảng MyTable .
Hoặc để thêm một cột, hãy chèn ListColumns.Add tài sản.
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
Table1.ListColumns.Add
Nó sẽ thêm một cột mới vào bên phải của bảng MyTable .
Một lần nữa, để thêm một hàng hoặc cột vào một vị trí cụ thể của Bảng , chỉ định vị trí trong ListRows.Add hoặc ListColumns.Add tài sản.
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
Table1.ListRows.Add (4)
Nó thêm một hàng mới là thứ 4 hàng của bảng MyTable .
Tương tự khi thêm cột mới.
Đọc thêm: Cách Chèn hoặc Xóa Hàng và Cột khỏi Bảng Excel
5. Đọc dữ liệu từ bảng với VBA
Để đọc bất kỳ dữ liệu nào từ bảng với VBA , sử dụng Range.Cells thuộc tính của VBA .
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
MsgBox Table1.Range.Cells(3, 1)
Chạy mã, nó sẽ hiển thị giá trị từ thứ 3 hàng và đầu tiên cột của bảng MyTable . Đó là Quy tắc bốn mươi của tình yêu .
Bài đọc tương tự
- VBA để Làm mới Bảng Pivot trong Excel (5 Ví dụ)
- Cách làm mới tất cả các bảng tổng hợp bằng VBA (4 cách)
- Chỉnh sửa Bảng Tổng hợp trong Excel (5 Phương pháp)
- Cách Cập nhật Phạm vi Bảng Pivot (5 Phương pháp Thích hợp)
6. Vòng qua các hàng hoặc cột của bảng với VBA
Để lặp qua từng hàng của bảng với VBA , sử dụng ListRows.Count tài sản.
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
For i = 1 To Table1.ListRows.Count
Table1.ListRows(i).Range.Select
Next i
Nó sẽ lặp lại qua từng hàng của bảng Table1 và chọn nó.
Tương tự, để lặp qua từng cột của bảng, hãy sử dụng ListColumns.Count tài sản.
7. Tìm kiếm giá trị cụ thể trong bảng
Để tìm kiếm một giá trị cụ thể trong một hàng hoặc cột của bảng với VBA , sử dụng DataBodyRange.Rows.Find hoặc DataBodyRange.Columns.Find thuộc tính của VBA .
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
Set Value = Table1.DataBodyRange.Columns(1).Find("Mother", LookAt:=xlWhole)
MsgBox Value
Nó sẽ tìm kiếm giá trị “Mẹ” trong cột đầu tiên của bảng MyTable và trả về giá trị nếu nó tìm thấy.
8. Thay đổi kích thước bảng bằng VBA trong Excel
Để thay đổi kích thước bảng thành hình dạng mới, trước tiên hãy đặt Phạm vi mà Bảng sẽ được thay đổi kích thước.
Sau đó, thay đổi kích thước của Bảng đến Phạm vi đó .
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
Dim Rng As Range
Set Rng = Range("B4:C8")
Table1.Resize Rng
Đầu tiên, nó đặt Phạm vi dưới dạng B4:C8 , sau đó thay đổi kích thước bảng MyTable sang Phạm vi mới đó .
9. Xóa bảng bằng VBA trong Excel
Để xóa bảng bằng VBA , sử dụng nút Xóa thuộc tính của VBA .
Dim Table1 As ListObject
Set Table1 = ActiveSheet.ListObjects("MyTable")
Table1.Delete
Nó sẽ xóa bảng MyTable từ trang tính đang hoạt động.
Những điều cần nhớ
Bảng là một Đối tượng danh sách trong VBA . Nhưng nếu bạn muốn truy cập nó dưới dạng Phạm vi đơn giản , sử dụng Table.Range thuộc tính của VBA . Nó sẽ trả về bảng dưới dạng Phạm vi và bạn sẽ có thể truy cập tất cả các thuộc tính của Phạm vi đối tượng của VBA .
Kết luận
Sử dụng các phương pháp này, bạn có thể sử dụng bảng với VBA . Bạn có câu hỏi nào không? Hãy hỏi chúng tôi.
Bài đọc thêm
- Cách Tự động Làm mới Bảng Tổng hợp trong Excel (2 Phương pháp)
- Cột Nhóm trong Bảng Tổng hợp Excel (2 Phương pháp)
- Tạo nhóm tùy chỉnh bảng tổng hợp:Với 3 tiêu chí
- Sử dụng Công thức trong Bảng Excel một cách hiệu quả (Với 4 Ví dụ)