Jeaux làm việc với rất nhiều trang tính dài có chứa dữ liệu mà cô ấy có thể cần in. Sau khi in xong, cô ấy viết vào khoảng trống bên cạnh cột dữ liệu. Tất cả các hàng đều có kích thước tự động để vừa với nội dung, do đó chúng có chiều cao khác nhau. Jeaux đang tìm kiếm một macro sẽ lấy các hàng đã chọn và tăng dần chúng, chẳng hạn như theo một tỷ lệ phần trăm nhất định. (Vì chúng có chiều cao khác nhau, cô ấy không thể đặt tất cả chúng ở cùng một độ cao.)

Bằng cách này, cô ấy có thể tạo các hàng đủ lớn để viết tay, nhưng vẫn có thể xem tất cả dữ liệu. Cũng sẽ rất hay nếu có cách đặt chiều cao của các hàng trở lại như trước khi cô ấy in.

Nhiệm vụ này rất dễ thực hiện với macro. Tất cả những gì bạn cần làm là lướt qua các hàng đã chọn và điều chỉnh thuộc tính RowHeight, như được thực hiện trong macro này:

Sub ExpandSelectedRows()

Dim rRow As Range     Dim dEnlarge As Double

dEnlarge = 1.25     For Each rRow In Selection.Rows         rRow.RowHeight = rRow.RowHeight * dEnlarge     Next End Sub

Trong trường hợp này, biến dEnlarge chứa 1,25, có nghĩa là công thức trong vòng lặp For …​ Next sẽ tăng chiều cao hàng lên 25 phần trăm. Giá trị của biến này có thể được thay đổi để phản ánh tỷ lệ phần trăm bạn muốn sử dụng hoặc bạn có thể sửa đổi macro để yêu cầu người dùng tỷ lệ phần trăm:

Sub ExpandSelectedRows()

Dim rRow As Range     Dim dEnlarge As Double     Dim sTemp As String

sTemp = InputBox("Increase by what percent?")

dEnlarge = Val(sTemp)

If dEnlarge > 1 Then dEnlarge = dEnlarge / 100     If dEnlarge < 1 Then dEnlarge = dEnlarge + 1

If dEnlarge > 0 Then         For Each rRow In Selection.Rows             rRow.RowHeight = rRow.RowHeight * dEnlarge         Next     End If End Sub

Nếu sau đó bạn muốn đưa các hàng trở lại chiều cao ban đầu, macro một dòng sau sẽ thực hiện công việc:

Sub AutfitRows()

Cells.EntireRow.AutoFit End Sub

Macro này hoạt động vì các hàng trong trang tính của bạn ban đầu được “định kích thước tự động để vừa với nội dung.” Mặc dù một macro có thể được viết để đảo ngược các bước phóng to (chia cho dEnlarge thay vì nhân), nó sẽ chỉ hoạt động đáng tin cậy nếu macro ExpandSelectedRows không chạy nhiều lần.

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

Mẹo này (21) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.