Chữ tự xuống dòng trong 1 ô (1 người xem)

[khanhstv]

Chào các bác, các bác giúp em với. Em muốn khi viết chữ vào 1 ô nào đó trong Excel thì chữ sẽ tự xuống dòng theo chiều rộng của ô đó đã định dạng sẵn, vậy thì fải làm thế nào hả các bác

 

[BNTT]

Chào các bác, các bác giúp em với. Em muốn khi viết chữ vào 1 ô nào đó trong Excel thì chữ sẽ tự xuống dòng theo chiều rộng của ô đó đã định dạng sẵn, vậy thì fải làm thế nào hả các bác

Chọn những ô đó, gọi Format Cell ra, rồi chọn cái WrapText.

Nếu bạn xài Excel 2007 thì chỉ cần chọn cái ô đó rồi nhấn vào cái nút WrapText, khỏi cần gọi Format Cell ra:

 

[Studymore]

Tôi đang gặp tình trạng khi đánh chữ trong một ô của Excel 2003, khi thoát ra khỏi ô nó tự động xuống hàng theo kiểu tách chữ và khi dòng còn chỗ trống (đã chọn Wrap text). Ví dụ như chữ "Đánh giá" thì được tách thành:
"Đánh
gi
a
. "
Và khi in ra cũng bị lỗi xuống dòng như vậy.
Tạm thời tôi đang dùng cách đánh thêm một dấu cách trước từ "giá" thành "Đánh giá" thì không thấy lỗi xuất hiện.
Nếu ai biết cách nguyên nhân và cách khắc phục thì xin hướng dẫn. Tôi xin cám ơn.

 

[cadafi]

Nếu ai biết cách nguyên nhân và cách khắc phục thì xin hướng dẫn. Tôi xin cám ơn.

Bạn hãy thử làm thao tác ngược lại với bài #2 của anh BNTT xem sao!

 

[Studymore]

Không được các bạn ạ. Lỗi vẫn xảy ra dù tôi có chọn chức năng wrap text hay không.

 

[ndu96081631]

Không được các bạn ạ. Lỗi vẫn xảy ra dù tôi có chọn chức năng wrap text hay không.

Nói không có bằng chứng.. không tin ---> Đưa file lên đây ---> Thấy mới tin

 

[future_gtvt]

Bạn thử điều chỉnh lại độ rộng của cột xem.

 

[Hoàng Trọng Nghĩa]

Không được các bạn ạ. Lỗi vẫn xảy ra dù tôi có chọn chức năng wrap text hay không.

Khả năng bạn đã đang xài phần mềm gõ tiếng Việt là Vietkey trong những phiên bản trước, nó bị lỗi trong phần Clipboard đấy bạn ạ.

 

[duchoaqbh]

Mình cũng bị lỗi như thế này! Xử lý mãi mà không được. Giúp mình với (Có File đính kèm)

 

[Hai Lúa Miền Tây]

Mình cũng bị lỗi như thế này! Xử lý mãi mà không được. Giúp mình với (Có File đính kèm)

Chạy thử code sau thử xem nhé.

Sub Xoa()
Dim rng As Range
Application.ScreenUpdating = False
  For Each rng In ActiveSheet.UsedRange
    rng = WorksheetFunction.Clean(rng)
  Next
Application.ScreenUpdating = True

End Sub

 

[duchoaqbh]

Chạy thử code sau thử xem nhé.

Sub Xoa()
Dim rng As Range
Application.ScreenUpdating = False
  For Each rng In ActiveSheet.UsedRange
    rng = WorksheetFunction.Clean(rng)
  Next
Application.ScreenUpdating = True

End Sub

Cảm ơn bạn! Nhưng cũng không được có cách nào không bạn?

 

[Hai Lúa Miền Tây]

Cảm ơn bạn! Nhưng cũng không được có cách nào không bạn?

Mình thử trên file bạn OK mà, bạn làm lại thử xem.

 

[TOQUANGNHA]

Mình cũng bị lỗi như thế này! Xử lý mãi mà không được. Giúp mình với (Có File đính kèm)

C1. Kích vào ô bị lỗi rồi kích lại là được bạn à!
C2. Chọn hết các dòng chứa thời khóa biểu chỉnh lại chiều cao cho vừa là được

 

[hoangtumayman]

Cách đơn giản là muốn ngắt đến đâu sau đó nhấn alt+enter là được

 

[khang2303]

Không phải là tự động đâu. Text xuống dòng theo lệnh đấy chứ. Nguyên nhân là do tác giả đã sử dụng Alt + enter khi soạn thảo để ngắt dòng bắt buộc. muốn trở lại bình thường hãy để trỏ chuột ở ký tự đầu tiên của dòng dưới rồi nhấn Backspace tới khi chữ chạy lên một hàng.

 

[quy2802]

Nhấn Ctrl và Enter là xong

 

[tranducthieu]

Mình cũng bị lỗi như thế này! Xử lý mãi mà không được. Giúp mình với (Có File đính kèm)

Bạn xử lý như sau vào Fotmat Cell sửa mục Vertical từ Distributed thành Top hoặc Center... (Hình)

 

[tangtoan]

Chạy code như thế nào nhỉ

 

[lehoanle73]

Chào các bác, các bác giúp em với. Em muốn khi viết chữ vào 1 ô nào đó trong Excel thì chữ sẽ tự xuống dòng theo chiều rộng của ô đó đã định dạng sẵn, vậy thì fải làm thế nào hả các bác

Bạn chỉ cần bấm Alt & Enter (Bạn sẽ mỉm cười khi thực hiện xong thao tác trên)

 

[thanh258]

Mình cũng bị lỗi như thế này! Xử lý mãi mà không được. Giúp mình với (Có File đính kèm)

Mình lấy file của bạn nhập thử có bị gì đâu. Mình thấy bạn nhập dữ liệu giữ các chữ dùng nhiều space quá. Có lẽ do vậy kích thước chữ kô đủ nên bị xuống dòng.
View attachment thoikhoabieu.xls

 

[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