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)

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.

Tính toán Doanh thu của từng cửa hàng theo Quý

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

Chọn biểu tượng Wrap Text

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.

Excel sẽ tự động điều chỉnh độ rộng dòng

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.

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.

Chọn mô-đun

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

Sao chép mã 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:

Các kết quả

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

Bài đăng phổ biến từ blog này

Cách đếm và tính tống các số chẵn, số lẻ có trên Excel

Cách tô màu giá trị MIN, MAX trên bảng tính Excel, đơn giản!

Hình nền Powerpoint màu sáng