Chỉ em cách dùng Alt+Enter?

[keeponlylove]

Khi đánh 1 dòng trong excel, muốn trong 1 ô có 2 dòng em dùng Alt+Enter,nếu đó là 1 ô bình thường thì dòng của ô đó tự động to ra gấp đôi(để hiện ra cả 2 dòng).Nhưng khi áp dụng cho 1 ô megre từ 2 ô thì khi Alt+Enter thì dòng đó ko hiện ra 2 dòng.Ai biết cách thì chỉ em với.

 

[thong_xanh2003]

Bạn hãy clic chuột vào ô cần đánh số liệu, chon fomat-->cell-->Alignment-->đánh dấu kiểm vào Wrap text-->OK

 

[anhtuan1066]

Hic,bác anhtuan1066,em muốn nó tự động chứ dùng tay nói làm gì.

Nếu tự động thì tôi ko nghĩ ra... có lẽ phải nhờ các cao thủ viết code mới làm dc điều bạn yêu cầu...

Bạn hãy clic chuột vào ô cần đánh số liệu, chon fomat-->cell-->Alignment-->đánh dấu kiểm vào Wrap text-->OK

Dùng Wrap text ko thôi thì nó sẽ tự động xuống hàng theo độ rộng của dòng và cột... Còn nếu như dùng Alt + Enter thì ta có thể chủ động dc việc xuống hàng theo ý
ANH TUẤN

 

[anhtuan1066]

Ah.... có đây... mới lượm dc trên mạng:

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