Paul có một trang tính có hơn một nghìn hàng dữ liệu trong đó. Hầu hết các hàng có chiều cao là 12, nhưng một số có chiều cao hơn 100. Anh ấy thắc mắc có cách nào để điều chỉnh độ cao của các hàng để không có hàng nào vượt quá 40 không? (Có nghĩa là, những người dưới 40 tuổi sẽ giữ nguyên chiều cao hiện tại, nhưng những người trên 40 tuổi sẽ được điều chỉnh thành 40.)

Giải quyết vấn đề này thực sự khá dễ dàng — bạn chỉ cần một cách để bước qua các hàng, xác định chiều cao của hàng hiện tại và sau đó điều chỉnh chiều cao của hàng nếu nó quá lớn. Điều này có thể được thực hiện với một macro rất đơn giản, chẳng hạn như sau:

Sub MaxRowHeight()

Dim R As Long

For R = 1 To ActiveSheet.UsedRange.Rows.Count         If Rows(R).Height > 40 Then Rows(R).RowHeight = 40     Next End Sub

Macro xác định phạm vi của các hàng được sử dụng trong trang tính và sau đó bước qua các hàng đó. Thuộc tính tác là thuộc tính .Height, được kiểm tra. Nếu nó lớn hơn 40, thì nó được đặt thành 40. Điều này có nghĩa là bất kỳ thứ gì có chiều cao hàng dưới 40 sẽ không thay đổi.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (10381) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365.