định dạng chữ xuống hàng trong cùng một ô

Liên hệ QC

khanhpur

Thành viên mới
Tham gia
8/8/07
Bài viết
25
Được thích
36
Chào các anh chị !
Mình đang gặp một chút rắc rối trong vấn đề định dạng văn bản trong excel .Xin mọi người hướng dẫn
Mình muốn định dạng chữ trong một cell nhưng chữ đó sẽ tự xuống dòng ( đk là phải xuống dòng nguyên một từ chứ không phải là từ kí tự )Xin mọi người trợ giúp
Cám ơn anh chị nhiều lắm
 
Trong ô cell em xuống hàng thì bấm tổ hợp phím Alt+Enter.
 
Á , anh ơi ngoài cách này còn có cách nào khác không?trong trường hợp mình quên không sử dụng phím tắt này thì sẽ giải quyết vụ này sao ạ?chẳng lẻ xóa hết làm lại hả anh?
 
Em co thể dùng cách khác là vào Format>>Cells>>Alignment>>Chọn Wrap text>>OK.
 
bạn phải viết code mới được và đặt công thức cho excel ở 2 dòng thì nó tự động xuống dòng thôi
code đây :
Public Function tinhsotienchu1(chuoi As String, LenChar As Integer)
Dim temptext, temptext1 As String
Dim i As Integer
temptext = chuoi
If Len(temptext) > LenChar Then
i = InStr(LenChar, temptext, " ")
If i <> 0 Then
temptext1 = Left(temptext, i)
tienbangchuchuoisau = Mid(temptext, i + 1, Len(temptext) - i)
Else
temptext1 = chuoi
tienbangchuchuoisau = ""
End If
Else
temptext1 = chuoi
tienbangchuchuoisau = ""
End If
tinhsotienchu1 = temptext1
End Function
Public Function tinhsotienchu2(chuoi As String, LenChar As Integer)
Dim temptext, temptext1 As String
Dim i As Integer
temptext = chuoi
If Len(temptext) > LenChar Then
i = InStr(LenChar, temptext, " ")
If i <> 0 Then
temptext1 = Left(temptext, i)
tienbangchuchuoisau = Mid(temptext, i + 1, Len(temptext) - i)
Else
temptext1 = chuoi
tienbangchuchuoisau = ""
End If
Else
temptext1 = chuoi
tienbangchuchuoisau = ""
End If
tinhsotienchu2 = tienbangchuchuoisau
End Function
Chúc bạn thành công!
Mình cũng đã làm rồi. Dịch số tiền từ số sang chữ và xuống dòng
 
Web KT
Back
Top Bottom