Làm ngắn lại một dòng text mà không sợ bị ngắt giữa chữ.

[luckyboy]

Trong một số trường hợp, đọc số tiền bằng chữ, hoặc in tên hoặc địa địa chỉ quá dài lên Hóa đơn hoặc Phiếu thu phiếu chi.
Làm cách nào để cắt bớt dòng và xuống dòng in phần còn lại.

Mình xin đưa ra một giải pháp nhỏ để các bạn xem.

VBA
Public Function Gonlai(Sometext, Criteria)
If Len(Sometext) <= Criteria Then
mytext = Sometext
Else
mytext = Sometext
VT = InStr(Criteria - 5, mytext, Space(1))
mytext = Left(mytext, VT)
End If
Gonlai = mytext
End Function

Sau khi tạo macro nay xong ta có thể làm ngắn câu văn bất kỳ bằng cách
+ Dong thu 1
=gonlai(dia chi cau van, chieu dai muon giu lai)
+ Dong thu 2
=right(dia chi cau van,len(dong thu 1))

Chúc các bạn thành công

 

[tedaynui]

To Luckyboy
Sao bạn không dùng thử chức năng của Excel : Format cells / Alignment / Wrap text

TDN

 

[cadafi]

Và nếu như hông thích wrap text thì cũng dùng hàm đơn giản là left(), right(), hoặc mid() cũng xong mà. Dù gì thì cũng phải hai dòng. Đúng không bạn.