TrThay > 03-11-20, 10:22 AM
Noname > 03-11-20, 02:23 PM
tranthanhan1962 > 03-11-20, 02:33 PM
(03-11-20, 10:22 AM)TrThay Đã viết: E đã tìm trong diễn đàn rồi mà không thấy nên nhờ các anh chị trợ giúp ạ.Cái này phải viết Function
vd: E có text box có chuỗi ký tự như này "168997T ==>> 608 149T" hoặc "168997T ==> 608 149T"
Bây giờ e muốn bỏ hết ký tự phía trước ký tự ">" , lấy hết các ký tự phía sau ">" thì e dùng hàm nào và kết hợp với điều kiện nào ạ? (tính từ ký ">" cuối)
E muốn kết quả của chuỗi sau khi cắt là "608 149T" (độ dài của các ký tự cần lấy ra có thể thay đổi chứ không có cố định)
E cảm ơn ạ!
tranthanhan1962 > 03-11-20, 02:37 PM
ongke0711 > 03-11-20, 03:07 PM
Dim s As String, chuoiKQ As String
s="168997T ==>> 608 149T"
chuoiKQ = Trim(Mid(s, InStrRev(s, ">") + 1))
ongke0711 > 03-11-20, 04:07 PM
TrThay > 03-11-20, 04:18 PM
Dim mvar As String, s As String, chuoiKQ As String
s = Me.txtMa
chuoiKQ = Trim(Mid(s, InStrRev(s, ">") + 1))
mvar = Replace(chuoiKQ, " ", "")
Me.txtMaMoi = mvar