Thay đổi kích thước phạm vi sử dụng VBA
Hướng dẫn này sẽ trình bày cách sử dụng Thay đổi kích thước thuộc tính sau đó Đối tượng phạm vi thay đổi để trả về một phạm vi mới được thay đổi kích thước từ đối tượng Phạm vi ban đầu.
Cú pháp
Cú pháp cho thuộc tính Thay đổi kích thước là:
1 | Phạm vi ("A1"). Thay đổi kích thước (RowSize, ColumnSize) |
Trong đó Phạm vi (“A1”) là phạm vi bắt đầu của bạn.
RowSize và ColumnSize phải lớn hơn 0. Mỗi đầu vào là tùy chọn (ví dụ: bạn có thể bỏ qua RowSize để chỉ thay đổi số cột hoặc ngược lại).
Thay đổi kích thước số lượng hàng và cột
Ví dụ sau mở rộng phạm vi với một ô A1 thành phạm vi A1: D10 bằng cách tăng số hàng lên 10 và số cột lên 5.
1 | Phạm vi ("A1"). Thay đổi kích thước (10, 5). Chọn |
Hoặc, thông thường hơn, bạn sẽ chỉ định phạm vi đã thay đổi kích thước cho một biến:
12 | 'Thay đổi kích thước phạm vi thành kích thước mong muốn và gán cho một biếnĐặt newRng = ActiveSheet.Range ("A1"). Thay đổi kích thước (10, 5) |
Chỉ thay đổi kích thước số lượng hàng
Ví dụ sau chỉ thay đổi số lượng hàng:
12 | 'Chỉ thay đổi Kích thước hàng, Phạm vi mới sẽ là $ A $ 1: $ A $ 10Đặt newRng = rng.Resize (10) |
Chỉ thay đổi kích thước số cột
Ví dụ sau chỉ thay đổi số lượng cột:
12 | 'Chỉ thay đổi Kích thước Cột, Phạm vi mới sẽ là $ A $ 1: $ E $ 1Đặt newRng = rng.Resize (, 5) |
Thay đổi kích thước phạm vi bảng để loại trừ tiêu đề
Nếu bạn có một bảng trên trang tính đang hoạt động với hàng tiêu đề, trước tiên mã sẽ chọn toàn bộ bảng, sau đó di chuyển xuống một hàng để loại trừ tiêu đề bằng phương pháp Range.Offset. Sau đó, nó sẽ sử dụng thuộc tính Range.Resize để giảm kích thước xuống một hàng.
1234567891011 | Sub SelectTableData ()' **QUAN TRỌNG**'Nhấp vào bất kỳ ô nào của bảng trước khi chạy macro'Di chuyển xuống một hàng bằng cách sử dụng Offset và sau đó giảm kích thước phạm vi xuống một hàngĐặt tbl = ActiveCell.CurrentRegion.Offset (1, 0) .Resize (tbl.Rows.Count - 1, _tbl.Columns.Count)'Dữ liệu được chọn không bao gồm hàng tiêu đềtbl.Address.SelectKết thúc Sub |
Viết mảng 2-D vào phạm vi
Một cách sử dụng phổ biến khác là ghi một mảng 2 chiều vào một trang tính. Vì phạm vi được ghi phải khớp với kích thước của mảng, thường không được biết trước, phương pháp Thay đổi kích thước được sử dụng để đặt phạm vi đầu ra
Ví dụ bên dưới sẽ đọc dữ liệu trong phạm vi A1: E10 trong trang tính hiện hoạt vào một mảng và ghi mảng ra trang tính 'Đầu ra' bắt đầu từ ô A1:
123456 | Sub WriteArray ()'Đọc dữ liệu vào một mảngdata = Range ("A1: E10"). Giá trị'Thay đổi kích thước phạm vi đầu ra và viết mảngTrang tính ("Đầu ra"). Phạm vi ("A1"). Thay đổi kích thước (UBound (dữ liệu, 1), UBound (dữ liệu, 2)). Giá trị = dữ liệuKết thúc Sub |
Viết bởi: Vinamra Chandra