Cách tự động ngắt dòng trong Excel (Wrap Text trong Excel)

Nguồn bài viết: Cách tự động ngắt dòng trong Excel (Wrap Text trong Excel)

Đối với những đoạn văn bản dài thì cần ngắt dòng, hoặc bạn cần ngắt dòng để căn lề cho nội dung được cân đối và đẹp mắt. Tuy nhiên, việc ngắt dòng trong Excel không đơn giản bằng cách nhấn Enter như trong phần mềm MS Word.
Hôm nay Thủ thuật Phần mềm sẽ hướng dẫn các bạn công cụ Warp Text để tự động quấn các dòng phù hợp với độ rộng của cột nhé!
Sử dụng Warp Text để tự động ngắt dòng cho một ô riêng lẻ
Ví dụ, bạn có bảng tính sau, các cột E, F, G có tiêu đề dài hơn chiều rộng của các cột. Nhưng bạn không muốn điều chỉnh độ rộng của cột.

Bước 1: Chọn ô bạn muốn tự động bọc. Trên thẻ Trang chủ (đầu tiên) nhấn vào biểu tượng Bao text (2).

Bước 2: Excel tự động điều chỉnh độ rộng dòng (mà không điều chỉnh độ rộng cột) và ngắt dòng trong Excel.

Bước 3: Với cột F, dù đã chỉnh dòng tự động nhưng cách ngắt dòng không được thẩm mỹ do độ rộng của cột. Vì vậy, bạn có thể thêm một thao tác để tự động điều chỉnh độ rộng của cột F cho phù hợp.

Tự động bọc các ô dữ liệu được hợp nhất từ nhiều ô
Công cụ Warp Text chỉ có thể được áp dụng cho các ô riêng lẻ, với các ô được hợp nhất bằng công cụ Merge & Center không tự động ngắt dòng. Vì vậy, để tự động ngắt dòng cho ô đã hợp nhất, bạn có thể sử dụng nó bằng cách chạy Marco sau:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range
With Target
If .MergeCells And .WrapText Then
Set c = Target.Cells(1, 1)
cWdth = c.ColumnWidth
Set ma = c.MergeArea
For Each cc In ma.Cells
MrgeWdth = MrgeWdth + cc.ColumnWidth
Next
Application.ScreenUpdating = False
ma.MergeCells = False
c.ColumnWidth = MrgeWdth
c.EntireRow.AutoFit
NewRwHt = c.RowHeight
c.ColumnWidth = cWdth
ma.MergeCells = True
ma.RowHeight = NewRwHt
cWdth = 0: MrgeWdth = 0
Application.ScreenUpdating = True
End If
End With
End Sub
Mở cửa sổ VBA bằng cách nhấn tổ hợp phím Alt + F11, Trên tên Trang tính có chứa ô mà bạn muốn tự động ngắt dòng, bấm chuột phải và chọn Chèn -> Mô-đun.

Sao chép đoạn mã trên vào cửa sổ Mô-đun.

Trở lại Trang tính Công việc, bấm đúp vào ô bạn muốn tự động ngắt dòng, rồi nhấn. cái nút đi vào để tự động ngắt dòng.
Kết quả như hình dưới đây:

Chúc may mắn!
Những bài viết liên quan : Thủ Thuật Excel
Nguồn : Thủ Thuật Phần mềm
Mọi sự sao chép, trích dẫn vui lòng ghi rõ nguồn: congthucexcel.com
from congthucexcel.com https://ift.tt/3fETMmE
via Congthucexcel.com
Nhận xét
Đăng nhận xét