Làm cách nào để thay đổi chiều cao hàng dựa trên giá trị ô trong Excel?

---

Thay đổi chiều cao hàng dựa trên giá trị ô với mã VBA

Không có cách nào trực tiếp để bạn thay đổi nhiều độ cao hàng dựa trên giá trị ô cùng một lúc, nhưng với mã VBA sau, nó có thể giúp bạn hoàn thành công việc này nhanh nhất có thể.

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Thay đổi chiều cao hàng dựa trên giá trị ô:

Sub rowheight()
'Updateby Extendoffice
    Dim hgt As Variant
    Dim WorkRng As Range
    xTxt = ActiveWindow.RangeSelection.Address
    Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn chọn các ô mà bạn muốn đặt chiều cao hàng theo giá trị ô, xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK , chiều cao hàng đã được thay đổi bởi giá trị ô như sau:

Chú thích: Trong mã VBA ở trên, Nếu H.Value> 15 Thì chỉ ra rằng nếu giá trị ô lớn hơn 15, chiều cao hàng sẽ được thay đổi, nếu giá trị ô nhỏ hơn 15, chiều cao hàng sẽ được giữ nguyên là chiều cao mặc định. Bạn có thể thay đổi nó khi bạn cần.