anhkhang.ak1122
Thành viên mới
- Tham gia
- 24/5/23
- Bài viết
- 26
- Được thích
- 4
Function TachTinh(text$)
With CreateObject("VBScript.RegExp"): .Global = 0: .IgnoreCase = 1: .MultiLine = 1
.Pattern = "(?:,|[tT]" & ChrW(7881) & "nh| - ) *([^,]+)$"
If .test(text) Then TachTinh = .Execute(text)(0).submatches(0)
End With
End Function
Em cảm ơn bác. Bác ơi còn 1 số tỉnh, TP chưa tách được ạ, bác xem giúp em với nhé.Bạn có thể sử dụng hàm UDF dưới đây để tách
Chép mã vào module và gõ hàm =TachTinh(B3)
JavaScript:Function TachTinh(text$) With CreateObject("VBScript.RegExp"): .Global = 0: .IgnoreCase = 1: .MultiLine = 1 .Pattern = "(?:,|[tT]" & ChrW(7881) & "nh| - ) *([^,]+)$" If .test(text) Then TachTinh = .Execute(text)(0).submatches(0) End With End Function
Bạn thử với mã nàyEm cảm ơn bác. Bác ơi còn 1 số tỉnh, TP chưa tách được ạ, bác xem giúp em với nhé.
Function TachTinh(ByVal text$)
With CreateObject("VBScript.RegExp"): .Global = 0: .IgnoreCase = 1: .MultiLine = 1
.Pattern = " *(?:[tT]" & ChrW(7881) & "nh|T\.|tp\.|tp |)([^,]+)$"
text = Replace(text, " - ", ",")
If .test(text) Then TachTinh = .Execute(text)(0)
End With
End Function
Cũng tách được gần hết rồi ạ. Em cảm ơn bác nhiều nhéBạn thử với mã này
JavaScript:Function TachTinh(ByVal text$) With CreateObject("VBScript.RegExp"): .Global = 0: .IgnoreCase = 1: .MultiLine = 1 .Pattern = " *(?:[tT]" & ChrW(7881) & "nh|T\.|tp\.|tp |)([^,]+)$" text = Replace(text, " - ", ",") If .test(text) Then TachTinh = .Execute(text)(0) End With End Function
Bạn thử tham khảo .Em chào các bác.
Các bác xem có cách nào lọc giúp em tên tỉnh hoặc thành phố trong địa chỉ chi tiết với ạ. Em cảm ơn
View attachment 291926
Oa tuyệt vời bác ơi. Lọc hết được luôn ạ. Cảm ơn bác nhiều nhiềuBạn thử tham khảo .
Còn sót Tỉnh Bà Rịa - Vũng Tàu bạn ạ, mới chỉ lấy được Vũng Tàu.Lọc hết được luôn ạ
Thế thì sử dụng công thức này tại C3 xem sao nhỉ :Còn sót Tỉnh Bà Rịa - Vũng Tàu bạn ạ, mới chỉ lấy được Vũng Tàu.
=IF(ISNUMBER(SEARCH("tỉnh",B3,1)),RIGHT(B3,LEN(B3)-SEARCH("tỉnh",B3,1)+1),IF(ISNUMBER(SEARCH("TP",B3,1)),RIGHT(B3,LEN(B3)-SEARCH("TP",B3,1)+1),IF(ISNUMBER(SEARCH("-",B3,1)),TRIM(RIGHT(SUBSTITUTE(B3,"-",REPT(" ",99)),99)),TRIM(RIGHT(SUBSTITUTE(B3,",",REPT(" ",99)),99)))))
Điều chỉnh một chút .Còn sót Tỉnh Bà Rịa - Vũng Tàu bạn ạ, mới chỉ lấy được Vũng Tàu.
Em rất tôn trọng bác, nhưng bác không tôn trọng em tí nào cả. Bác là thành viên lâu năm rồi mà bác phát biểu như này. Em không biết nên đây hỏi các bác thôi.Dữ liệu này có thoa mỡ hành, chó đói nó cũng nhấm miếng rồi nhả. Vậy mà mấy người cũng xào nấu được, hay thiệt.
Sắp đến bữa chiều, trời thì đang mưa mà từ trưa tới giờ lại chưa có gì lót dạ anh ơi.xào nấu
Bạn phải đồng nhất dữ liệu khi nhập vàoEm cảm ơn bác. Bác ơi còn 1 số tỉnh, TP chưa tách được ạ, bác xem giúp em với nhé.
View attachment 291930
Câu này nhiều người nói lắm. Mà tất cả đều bị cái cục tự ái to tổ nố nó đè mất cái tinh thần học hỏi. Thái độ này là thái độ thích cãi gióng.Em không biết nên đây hỏi các bác thôi.
@Trang9328 Bạn ơi, bạn sai sót về nội quy sẽ có Ban quản trị diễn đàn nhắc nhở. Những người khác nhắc nhở là trong cho bạn có chữ nghĩa phù hợp khi đăng bài. Nếu bạn không ưa ai thì cho họ vào "Danh sách vip". Để "nâng tầm" họ lên một tầm cao mới.
Có những lúc phải hạ cơn nóng bực tức của mình xuống, vì nó không đáng chút nào. Khi ra đời chưa chắc bạn đã gặp "quý nhân", còn bao la "trộm", "lừa đảo", "đối thủ", người "cao ngạo", "tự đại", "ông già", "cụ non", "quái kiệt", "Anh hùng đội lốp Tiên nữ",... . Cách duy nhất là bỏ qua đi. Người thua thiệt chính là bạn.
View attachment 289837
Tặng bạn bài thơ:
"Gặp người say ta chạy"
"Gặp người khôn ta nằm"
"Gặp người ngốc ta nghỉ"
"Gặp người giỏi ta ăn"
"Gặp ma lanh ta buồn"
"Gặp ma hôi ta nhăn"
"Gặp ma nói ta cười hahaha"
Nếu chỉ như vậy thì trường hợp có dấu "-" giữa tên tỉnh như "Bà Rịa - Vũng Tầu" thì chưa ổn.Bạn phải đồng nhất dữ liệu khi nhập vào
Nhấn phim Ctrl + H thay dấu "-" thành dấu ","