Trong quá trình làm việc với file Excel khi bạn gõ nội dung cho 1 ô có nội dung dài thường các chữ sẽ không tự động xuống dòng mà bị viết tràn sang cột bên cạnh. Bài viết dưới đây hướng dẫn tới các bạn cách để chữ tự động xuống dòng trong Excel - Tự động xuống dòng khi hết chiều rộng của cột trong Excel.
Bạn đang xem: Tự động xuống dòng trong excel
Ví dụ khi gõ dòng chữ vào ô C3 vượt quá độ rộng của cột do vậy chữ bị che lấp và không được hiển thị:
1. Với ô là 1 ô nguyên bản (không hòa nhập các ô của cột hoặc dòng khác làm 1) thực hiện rất đơn giản:
- Lựa chọn ô muốn chữ tự động xuống dòng khi hết chiều rộng của cột -> vào thẻ Home -> Alignment -> lựa chọn tính năng Wrap Text:
- Sau khi lựa chọn xong Wrap Text -> nội dung chữ trong ô tự động xuống dòng khi hết chiều rộng của cột:
2. Với ô dữ liệu được gộp từ nhiều ô
- Trường hợp với ô Excel được gộp từ nhiều ô khác nếu sử dụng tính năng Wrap Text nội dung chữ có xuống dòng khi hết độ rộng cột nhưng chiều cao của ô không thay đổi do vậy chữ vẫn bị che lấp. Ví dụ khi gộp ô B4 và ô C4 thành 1 ô sau khi nhập xong nội dung lựa chọn tính năng Wrap Text chữ không tự động xuống dòng khi hết chiều rộng của cột:
- Với trường hợp này (các ô được gộp từ nhiều ô khác) bạn cần phải sử dụng thêm mã lệnh sau khi lựa chọn tính năng Wrap Text:
+ Lựa chọn file Excel muốn chữ tự động xuống dòng khi hết chiều rộng của cột -> nhấn tổ hợp phím Alt + F11 để vào cửa sổ lệnh -> copy đoạn mã sau cho sự kiện Change của worksheet:
Private Sub Worksheet_Change(By
Val Target As Range)Dim New
Rw
Ht As Single
Dim c
Wdth As Single, Mrge
Wdth As Single
Dim c As Range, cc As Range
Dim ma As Range With Target
If .Merge
Cells And .Wrap
Text Then
Set c = Target.Cells(1, 1)c
Wdth = c.Column
Width
Set ma = c.Merge
Area
For Each cc In ma.Cells
Mrge
Wdth = Mrge
Wdth + cc.Column
Width
Next
Application.Screen
Updating = Falsema.Merge
Cells = Falsec.Column
Width = Mrge
Wdthc.Entire
Row.Auto
Fit
New
Rw
Ht = c.Row
Heightc.Column
Width = c
Wdthma.Merge
Cells = Truema.Row
Height = New
Rw
Htc
Wdth = 0: Mrge
Wdth = 0Application.Screen
Updating = True
End If
End With
End Sub + Sau khi gõ đoạn mã lệnh trên thực hiện lưu và thoát khỏi VBA, quay trở lại file Excel nhập lại nội dung cho ô vừa tạo nội dung chữ tự động xuống dòng khi hết chiều rộng của cột và chiều cao của ô được thay đổi, nội dung chữ không bị che lấp:
Trên đây là hướng dẫn chi tiết cách để chữ tự động xuống dòng trong Excel - Tự động xuống dòng khi hết chiều rộng của cột trong Excel phiên bản 2016. Chúc các bạn thành công!
Khi bạn nhập dữ liệu có nội dung dài thì thường các chữ sẽ không tự động xuống dòng mà bị viết tràn sang cột bên cạnh. Bố cục khi đó sẽ rất xấu và thiếu chuyên nghiệp. Để xử lý, thường bạn sẽ tự xuống dòng từng ô theo cách thủ công, nhưng sẽ rất tốn thời gian. Có một số cách để Excel tự động xuống dòng trong trường hợp này, mời bạn theo dõi bài viết sau để biết cách làm nhé.
1. Xuống dòng bằng phím tắt
Nếu dữ liệu vượt quá độ rộng của cột Excel thì các bạn có thể xuống dòng thủ công bằng cách đặt con trỏ chuột ở vị trí muốn ngắt dòng trong ô Excel. Sau đó các bạn nhấn tổ hợp phím tắt Alt + Enter để ngắt dòng dữ liệu. Tuy nhiên cách này sẽ chỉ có thể làm cho từng ô Excel một mà thôi.
2. Tự xuống dòng khi nhập liệu vượt quá độ rộng của cột bằng Wrap Text
Để thiết lập tự động xuống dòng bằng Wrap Text, đầu tiên các bạn cần bôi đen toàn bộ vùng dữ liệu muốn tự động xuống dòng nếu dữ liệu vượt quá độ rộng của cột. Sau đó các bạn chọn thẻ Home trên thanh công cụ rồi nhấn chọn Wrap Text tại mục Alignment.
Kết quả ta sẽ thu được là dữ liệu trong vùng bôi đen sẽ tự động được xuống dòng nếu vượt quá độ rộng của cột Excel.
3. Tự động xuống dòng bằng code VBA
Để thiết lập tự động xuống dòng bằng code VBA, đầu tiên các bạn cần chọn thẻ Developer trên thanh công cụ. Sau đó các bạn chọn Visual Basic tại mục Code. Hoặc các bạn có thể sử dụng tổ hợp phím tắt Alt + F11 để mở cửa sổ VBA.
Tiếp theo, các bạn nhấn đúp chuột vào Sheet muốn thiết lập tự động xuống dòng. Hộp thoại Code hiện ra thì các bạn sao chép đoạn code dưới đây vào đó.
Xem thêm:
Private Sub Worksheet_Change(By
Val Target As Range)With Target.Wrap
Text = True
End With
End Sub
Chỉ cần như vậy là bây giờ mỗi khi bạn nhập dữ liệu trong Sheet đó mà vượt quá độ rộng của cột thì dữ liệu sẽ tự động được xuống dòng.
Như vậy, bài viết trên đã hướng dẫn các bạn cách tự động xuống dòng khi nhập liệu vượt quá độ rộng của cột Excel. Hy vọng bài viết sẽ hữu ích với các bạn trong quá trình làm việc. Chúc các bạn thành công!