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 cần phải ngắt đoạn xuống dòng, hoặc bạn cần xuống dòng để chỉnh sửa nội dung bộc lộ cho cân đối và thích mắt. Tuy nhiên việc xuống dòng trong Excel không đơn thuần chỉ việc ấn Enter như trong ứng dụng MS Word .
Hôm nay, Thủ Thuật Phần Mềm sẽ hướng dẫn bạn công cụ Warp Text để tự động hóa ngắt dòng tương thích 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ó phần tiêu đề dài hơn so với độ rộng của cột. Mà bạn không muốn chỉnh thêm độ rộng của cột.

Bước 1: Chọn ô muốn tự động ngắt dòng. Trên thẻ Home (1) nhấn vào biểu tượng Wrap Text (2).

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

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

Tự động ngắt dòng ô dữ liệu được gộp từ nhiều ô

Công cụ Warp Text chỉ hoàn toàn có thể vận dụng được cho những ô riêng không liên quan gì đến nhau, với những ô được gộp bằng công cụ Merge và Center thì không tự động hóa ngắt dòng dược. Vậy để ngắt dòng tự động hóa cho ô gộp bạn hoàn toàn có thể sử dung bằng cách chạy đoạn 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 Sheet chứa ô mà bạn muốn tự động ngắt dòng bạn  nhấn chuột phải chọn Insert -> Module.

Copy đoạn mã trên vào hành lang cửa số Module .

Quay trở lại Work Sheet, bạn nhấn đúp vào ô muốn tự động ngắt dòng, rồi nhấn nút Enter để tự động ngắt dòng.

Kết quả thu được như hình ảnh dưới :

Chúc những bạn thành công xuất sắc !

Source: https://final-blade.com
Category : Kiến thức Internet