Bảng thay đổi kích thước VBA trong Excel – thay đổi kích thước bảng trong excel

VBA Thay đổi kích thước bảng trong Excel. Điều này có nghĩa là bạn có thể thêm hàng hoặc cột vào bảng hoặc xóa hàng hoặc cột khỏi bảng và tạo phạm vi bảng mới. Để làm điều này, chúng tôi sử dụng phương pháp Thay đổi kích thước của ListObject. Đối tượng ListObject thuộc về bộ sưu tập ListObjects.

Trong hướng dẫn này, chúng tôi đã giải thích nhiều ví dụ kèm theo lời giải thích. Chúng tôi cũng hiển thị ảnh chụp màn hình đầu ra ví dụ. Chúng tôi đã chỉ định nhiều ví dụ trong hướng dẫn sau. Bạn có thể thay đổi tên bảng và trang tính theo yêu cầu của mình. Chúng tôi cũng chỉ định hướng dẫn từng bước cách chạy mã macro VBA vào cuối phiên.

Đây là cú pháp của phương pháp Thay đổi kích thước từ Bảng trên trang tính bằng VBA trong Excel.

 ListObject.Resize (Phạm vi) 

Trong đó Phạm vi là đối số bắt buộc. Nó chứa kiểu dữ liệu phạm vi. Đại diện cho phạm vi mới của bảng.

Hãy để chúng tôi xem ví dụ để Thay đổi kích thước bảng bằng cách chỉ định phạm vi tĩnh trên Trang tính. Tên trang tính được xác định là ‘ Bảng ‘. Và chúng tôi sử dụng tên bảng là ‘ MyTable1 ‘. Bạn có thể thay đổi hai tùy chọn này theo yêu cầu của mình.
Hãy để chúng tôi sử dụng phương thức Thay đổi kích thước của đối tượng ListObject để thay đổi kích thước bảng.

'Thay đổi kích thước Bảng bằng cách chỉ định phạm vi tĩnh bằng VBA
Sub VBAF1_Resize_Table_Static_Range ()
    
    'Khai báo các biến
    Dim oSheetName As Worksheet
    Dim sTableName As String
    Dim loTable As ListObject
    
    'Xác định biến
    sTableName = "MyTable1"
    
    'Xác định đối tượng WorkSheet
    Đặt oSheetName = Sheets ("Bảng")
    
    'Xác định Đối tượng Bảng
    Đặt loTable = oSheetName.ListObjects (sTableName)
        
    'Thay đổi kích thước bảng
    LoTable.Resize Range ("A1: D15")
    
Kết thúc Sub

Đầu ra : Đây là ảnh chụp màn hình đầu ra sau của mã VBA macro mẫu ở trên.

Hãy để chúng tôi xem một ví dụ khác để thêm hàng & amp; cột vào bảng bằng cách sử dụng phương pháp Thay đổi kích thước trên Trang tính. Chúng tôi tìm số hàng và cột hiện có của bảng. Trong quy trình dưới đây, bạn có thể chỉ định cho một biến số hàng hoặc cột để thêm vào bảng.

'VBA Thêm 5 hàng & amp; 5 cột vào bảng
VBAF1_Resize_Table_Add_Rows_Columns phụ ()
    
    'Khai báo các biến
    Dim oSheetName As Worksheet
    Dim sTableName As String
    Dim loTable As ListObject
    Dim loRows As Integer, loColumns As Integer
    Dim iNewRows As Integer, iNewColumns As Integer
    
    'Xác định biến
    sTableName = "MyTable1"
    
    'Xác định đối tượng WorkSheet
    Đặt oSheetName = Sheets ("Bảng")
    
    'Xác định Đối tượng Bảng
    Đặt loTable = oSheetName.ListObjects (sTableName)
    
    'Tìm số hàng & amp; cột trong bảng
    loRows = loTable.Range.Rows.Count
    loColumns = loTable.Range.Columns.Count
    
    'Chỉ định Số lượng Hàng & amp; Các cột để thêm vào bảng
    iNewRows = 5: iNewColumns = 5
            
    'Thay đổi kích thước bảng
    loTable.Resize loTable.Range.Resize (loRows + iNewRows, loColumns + iNewColumns)
    
Kết thúc Sub

Đầu ra : Hãy để chúng tôi xem ảnh chụp màn hình đầu ra sau của mã VBA macro mẫu ở trên.

Lưu ý : Bạn cũng có thể thêm hàng hoặc cột vào bảng.

 'Để  Thêm  Chỉ  Hàng 
 loTable.Resize loTable.Range.Resize (loRows + iNewRows,)
 
 'Để  Thêm  Chỉ  Cột 
 loTable.Resize loTable.Range.Resize (, loColumns + iNewColumns)

Hãy để chúng tôi xem một ví dụ khác để xóa hàng & amp; cột từ bảng sử dụng phương pháp Thay đổi kích thước trên Trang tính. Chúng tôi tìm số hàng và cột hiện có của bảng. Trong quy trình dưới đây, bạn có thể chỉ định cho một biến số hàng hoặc cột cần xóa trong bảng.

'VBA Xóa 5 hàng & amp; 5 cột từ bảng
Sub VBAF1_Resize_Table1_Delete_Rows_Columns ()
    
    'Khai báo các biến
    Dim oSheetName As Worksheet
    Dim sTableName As String
    Dim loTable As ListObject
    Dim loRows As Integer, loColumns As Integer
    Dim iRows As Integer, iColumns As Integer
    
    'Xác định biến
    sTableName = "MyTable1"
    
    'Xác định đối tượng WorkSheet
    Đặt oSheetName = Sheets ("Bảng")
    
    'Xác định Đối tượng Bảng
    Đặt loTable = oSheetName.ListObjects (sTableName)
    
    'Tìm số hàng & amp; cột trong bảng
    loRows = loTable.Range.Rows.Count
    loColumns = loTable.Range.Columns.Count
    
    'Chỉ định Số lượng Hàng & amp; Số cột cần xóa khỏi bảng
    iRows = 5: iColumns = 5
            
    'Thay đổi kích thước bảng
    loTable.Resize loTable.Range.Resize (loRows - iRows, loColumns - iColumns)
    
Kết thúc Sub

Đầu ra : Hãy cho chúng tôi xem ảnh chụp màn hình đầu ra sau của quy trình VBA macro ví dụ ở trên.

Lưu ý : Bạn cũng có thể xóa các hàng hoặc cột khỏi bảng.

 'Để  Xóa  Chỉ  Hàng 
 loTable.Resize loTable.Range.Resize (loRows - iRows,)
 
 'Để  Xóa  Chỉ  Cột 
 loTable.Resize loTable.Range.Resize (, loColumns - iColumns)

Bạn có thể tham khảo liên kết sau để biết hướng dẫn từng bước.

Hướng dẫn chạy Mã Macro VBA

Nhấp vào các liên kết sau của các tài nguyên hữu ích. Những điều này giúp học hỏi và có thêm kiến ​​thức.

Hướng dẫn VBA Danh sách hàm VBA Mảng VBA trong Excel Bảng VBA và ListObjects

Danh sách phím tắt trên bàn phím của trình soạn thảo VBA Câu hỏi phỏng vấn VBA & amp; Câu trả lời Blog