tutientrung
Thành viên hoạt động
- Tham gia
- 10/3/07
- Bài viết
- 151
- Được thích
- 222
- Nghề nghiệp
- Quản lý SX
Nhờ các bạn giúp mình công thức hoặc code thì càng tốt .Nội dung mình đã ghi cụ thể trong file .Dữ liệu rất nhiều ,mình chỉ gửi đại diện .Hiện tại đang làm bằng cách "Nhìn bằng mắt và bắt bằng tay " hơi bị đuối . Cám ơn các bạn rất nhìu .
=IF(ISERR(SEARCH("THổI",B7))=FALSE,B7,IF(ISERR(SEARCH("sxt",B7))=FALSE,B7,RIGHT(B7,LEN(B7)-IF(ISERR(FIND(")(",B7)),IF(ISERR(FIND(")",B7)),IF(ISERR(FIND("#",B7)),"",FIND("#",B7)),FIND(")",B7)),FIND(")(",B7)+8))))
Cám ơn bạn nhiều .Có bạn nào chuyển sang code cho mình được không ?Bạn sử dụng tạm công thức sau tại ô C7 trước khi chờ các giải pháp hay hơn !
PHP:=IF(ISERR(SEARCH("THổI",B7))=FALSE,B7,IF(ISERR(SEARCH("sxt",B7))=FALSE,B7,RIGHT(B7,LEN(B7)-IF(ISERR(FIND(")(",B7)),IF(ISERR(FIND(")",B7)),IF(ISERR(FIND("#",B7)),"",FIND("#",B7)),FIND(")",B7)),FIND(")(",B7)+8))))
Mình thấy cái nào có "THỔI" là có "LLPDE" nên tạm thời thay thế nó nhé (nếu hổng được thì kiếm cách khác chứ mình chẳng biết làm sao để loại thằng "THỔI" nữa. Híc)Nhờ các bạn giúp mình công thức hoặc code thì càng tốt .Nội dung mình đã ghi cụ thể trong file .Dữ liệu rất nhiều ,mình chỉ gửi đại diện .Hiện tại đang làm bằng cách "Nhìn bằng mắt và bắt bằng tay " hơi bị đuối . Cám ơn các bạn rất nhìu .
Public Function namdk(Vung) As String
Dim i As Integer, Tim, Ngat
Const Dk = "0123456789/#()"
If InStr(1, Vung, "SXT") Or InStr(1, Vung, "LLPDE") Then namdk = Vung: Exit Function
For i = 1 To Len(Vung)
Tim = Mid(Vung, i, 1)
If InStr(1, Dk, Tim) = 0 Then Ngat = i - 1: Exit For
Next
namdk = Trim(Right(Vung, Len(Vung) - Ngat))
End Function
Thì anh cho mấy cái "THỔI" ấy vào 1 biến ---> Tự người dùng định nghĩa lấyMình thấy cái nào có "THỔI" là có "LLPDE" nên tạm thời thay thế nó nhé (nếu hổng được thì kiếm cách khác chứ mình chẳng biết làm sao để loại thằng "THỔI" nữa. Híc)
Public Function namdk(Text As String, Expt) As String
Dim i As Integer, Tim, Ngat, Item
Const Dk = "0123456789/#()"
For Each Item In Expt
If InStr(UCase(Text), UCase(Item)) Then namdk = Text: Exit Function
Next
For i = 1 To Len(Text)
Tim = Mid(Text, i, 1)
If InStr(1, Dk, Tim) = 0 Then Ngat = i - 1: Exit For
Next
namdk = Trim(Right(Text, Len(Text) - Ngat))
End Function
Function namdk(Text As String, RejText As String, Expt) As String
Dim i As Integer, Tim, Ngat, Item
For Each Item In Expt
If InStr(UCase(Text), UCase(Item)) Then namdk = Text: Exit Function
Next
For i = 1 To Len(Text)
Tim = Mid(Text, i, 1)
If InStr(1, RejText, Tim) = 0 Then Ngat = i - 1: Exit For
Next
namdk = Trim(Right(Text, Len(Text) - Ngat))
End Function