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

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

	Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
	Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
	Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
	Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
	Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
	15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

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...

Đọc thêm ... Tải xuống miễn phí...

---

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!

Đọc thêm ... Tải xuống miễn phí...