Giúp code tự động xuống dòng khi tên hàng dài hơn cột (1 người xem)

[minhtuan55]

Chào cả nhà GPE, em thường xuyên in bằng máy in nhỏ 58 mm, nên em muốn khi tên hàng nào dài quá nó tự động xuống dòng bằng Code cho nhanh, Mong cả nhà giúp em

 

[befaint]

Wrap Text là được rồi. Code làm chi.
p/s: Bạn có thể record thao tác Wrap Text lại là có code xài rồi.

 

[minhtuan55]

Wrap Text là được rồi. Code làm chi.
p/s: Bạn có thể record thao tác Wrap Text lại là có code xài rồi.

Không được anh ơi, File của em in bằng nút bấm, em không muốn lúc nào in cũng phải kéo xuống kéo lên xem tên hàng hiện đủ dòng chưa.em muốn dùng Code mong anh giúp

 

[phulien1902]

Chào cả nhà GPE, em thường xuyên in bằng máy in nhỏ 58 mm, nên em muốn khi tên hàng nào dài quá nó tự động xuống dòng bằng Code cho nhanh, Mong cả nhà giúp em

Bạn thử với:

Sub abc()
Dim i&
For i = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step -1
   If Cells(i, 2) <> Empty Then
     Cells(i, 2).WrapText = True
     Cells(i, 2).EntireRow.AutoFit
   End If
Next
End Sub

 

[giaiphap]

Không được anh ơi, File của em in bằng nút bấm, em không muốn lúc nào in cũng phải kéo xuống kéo lên xem tên hàng hiện đủ dòng chưa.em muốn dùng Code mong anh giúp

Khi đã Wrap Text rồi thì tại sao lại xem chi cho mệt nó tự động xuống dòng nếu dữ liệu nhiều.