nguyentieu
Thành viên hoạt động
- Tham gia
- 12/2/09
- Bài viết
- 109
- Được thích
- 10
- Nghề nghiệp
- Sinh viên
nhấn tổ hợp hai phímEm làm tới phần này thì bị đuối mong các ACE giúp em giải quyết chỗ này.
Chi tiết e đã nói rõ trong file đính kèm
Cảm ơn các ACE!
Sub Macro1()
Worksheets("sheet1").Select
Dim rng1 As Range
For Each rng1 In ActiveSheet.Range("a3:a22")
rng1.Formula = "=SUBSTITUTE(RC[5],""/"",CHAR(10))"
rng1.Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Next
End Sub
dùng tổ hợp này cho một dòng ko chứa công thức thì được nhưng chú ý là : trong cell có chứa các công thức bạn ạ nên ko thể làm tổ hợp đó đc.Bạn dùng tổ hợp Alt+ Enter xem có vừa ý không nhé.
Khoavu cho mình hỏi tác dụng của công thức này với, vì mình thấy chỉ dùng Wraptext cũng được mà.nhấn tổ hợp hai phím
tại ô e8 bạn cho công thức này vào
=SUBSTITUTE(F8,"/",CHAR(10))
Khoavu cho mình hỏi tác dụng của công thức này với, vì mình thấy chỉ dùng Wraptext cũng được mà.
CHAR(10) thể hiện như là nhấn Enter xuống dòng ( đó là quy định).=SUBSTITUTE(F8,"/",CHAR(10))
Dùng cho công thức được luôndùng tổ hợp này cho một dòng ko chứa công thức thì được nhưng chú ý là : trong cell có chứa các công thức bạn ạ nên ko thể làm tổ hợp đó đc.