Chữ tự xuống dòng trong 1 ô

[quoccuonghd]

Mình cũng bị một file tình trạng y như vậy, ma ko sử lý được. Mình có coppy một đoạn văn bản trên web sau đó paste vao excel thì chữ cuối ô bị tách ra ví dụ chữ "thi công" thì nó tách ra thành thi co ng" mặc dù đã dùng wrap text.

 

[hoangsangvt88]

mình có 1 file cũng cần mọi người giúp với. Do chữ trong dòng quá dài mình muốn nó tự nhảy xuống dòng trong ô đó ( vd ô đó là mình gộp từ cột a, b và cột c lại với nhau rồi đánh chữ vào nhưng khi đánh chữ nhiều quá vượt qua nên mình muốn nó khi dánh xong enter nó tự định dạng đúng vừa ô cho mình (giới hạn từ cột A tới c không được thay đổi còn độ rộng của dòng thay đổi được. (file vd o dưới mong mọi người giúp thak )

 

[huyhoang1768]

mình có 1 file cũng cần mọi người giúp với. Do chữ trong dòng quá dài mình muốn nó tự nhảy xuống dòng trong ô đó ( vd ô đó là mình gộp từ cột a, b và cột c lại với nhau rồi đánh chữ vào nhưng khi đánh chữ nhiều quá vượt qua nên mình muốn nó khi dánh xong enter nó tự định dạng đúng vừa ô cho mình (giới hạn từ cột A tới c không được thay đổi còn độ rộng của dòng thay đổi được. (file vd o dưới mong mọi người giúp thak )

Chức năng wrap text chỉ dành cho ô không mergecel nhé bạn! chúc bạn thành công

 

[hoangsangvt88]

Chức năng wrap text chỉ dành cho ô không mergecel nhé bạn! chúc bạn thành công

wrap te xt chi có tác dụng trong 1 ô thì dòng nó sẽ tự nhảy nhưng khi gộp 2 hoặc 3 cột lại thì chức năng này nó k nhảy dòng chuẩn nữa mình mình phải kéo dòng thủ công mới hiện đủ chữ (bạn xem file minh gửi đó). Mong sự giúp đỡ của mọi người thank.

 

[Vương Lâm]

wrap te xt chi có tác dụng trong 1 ô thì dòng nó sẽ tự nhảy nhưng khi gộp 2 hoặc 3 cột lại thì chức năng này nó k nhảy dòng chuẩn nữa mình mình phải kéo dòng thủ công mới hiện đủ chữ (bạn xem file minh gửi đó). Mong sự giúp đỡ của mọi người thank.

Mình tham khảo đc cách tự động nhảy dòng chuẩn khi gộp 2,3 cột. Post lại cho bạn nào cần.
copy đoạn mã sau cho sự kiện Change của worksheet:

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ình đã áp dụng thử thành công