E2 =MID(INDIRECT("A"&(ROW()-2)*3+1),9,100)
F2 =MID(INDIRECT("A"&(ROW()-2)*3+2),12,100)
suleo84 đã viết:ngoài ra em còn phải loc bớt ra , nguyen thủy của nó là dạng
12/10/2007 10:33:06 PM
Ma the: 461-100-1287780
Mat khau: C7245RC433S8
Cam on ban da su dung dich vu.
làm cách nào chỉ lấy dược nội dung ma the và mat khau , rồi cho 2 cái vào 1 dòng cho dễ quản lý mong các anh giúp dùm em![]()
suleo84 đã viết:tuyệt vời cảm ơn anh nhiều đúng là em chép từ máy dt di động ra nhưng em ko hiểu các thông số MID() anh lấy từ đâu ra và sao đo được dộ dài của nó ví dụ:=MID(A1,81,12) cái 81 và 12 a căn cứ vô đâu thế ? vô đâu để làm dc vậy anh ?
suleo84 đã viết:em ko hiểu các thông số MID() anh lấy từ đâu ra và sao đo được dộ dài của nó ví dụ:=MID(A1,81,12) cái 81 và 12 a căn cứ vô đâu thế ? vô đâu để làm dc vậy anh ?
Option Explicit
Function CatChuoi(StrC As String, Optional MaThe As Boolean = True) As String
Dim VTriT As Byte, VtriS As Byte
Dim Str1 As String, Str2 As String
StrC = UCase$(StrC)
If MaThe Then
Str1 = "MA THE: ": Str2 = "SO SERIAL: "
Else
Str1 = "SO SERIAL: ": Str2 = "HSD"
End If
VTriT = Len(Str1)
VTriT = InStr(StrC, Str1) + VTriT
VtriS = InStr(StrC, Str2) - 1
If VTriT = Len(Str1) Then
CatChuoi = ""
Else
CatChuoi = Mid(StrC, VTriT, VtriS - VTriT)
End If
End Function