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 trong trang tính, hầu hết chúng ta có thể áp dụng tính năng Chiều cao hàng để đặt chiều cao của hàng đã chọn. Tuy nhiên, nếu bạn có một danh sách số và bây giờ, bạn muốn đặt chiều cao hàng dựa trên các giá trị ô như ảnh chụp màn hình sau đây, bạn có thể giải quyết tác vụ này trong Excel như thế nào?
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.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excelvà trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel Cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Office Tab Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
