Lấy ra chuỗi con trong từng cell

[hadoan-pap]

Em chào mọi người.

Em muốn lấy ra chuỗi con định dạng "AS######" trong các cells cột D .

Ví dụ các cells có định dạng "hsjdjehf AS123762 jfighj12 frigj..." . Thì khi đó nó sẽ lấy ra chuối AS123762 ạ.

Rất mong mọi người cho em xin đoạn code tham khảo ạ.

Em xin cảm ơn!

 

[Nhattanktnn]

Gửi anh.

Nếu em muốn lấy chuỗi đó sau chữ "CODE" trong mỗi cell thì em them vào thế này không đúng =GetPapPap(RIGHT("CODE",D3))

Ví dụ chuỗi "vevh vrehbjdfnhb 78v CODE AS352617 nehv vrgvug"

Không rõ phải định nghĩa hay sửa lại thế nào vậy anh ?

Em cảm ơn anh ạ.

AS###### thì không có khoảng trắng, giờ chuyển sang CODE lại có à?
Trong lúc chờ bác befain trả lời thì mình tạm sửa code bác ấy:

Option Explicit

Function GetPapPap(ByVal Txt As String, ByVal stext As String) As String
Dim str_pattern As String
    str_pattern = "(" & Txt & "[0-9]{6})"
    Static regex As Object
    Dim all_matches As Object
    If regex Is Nothing Then
        Set regex = CreateObject("VBScript.RegExp")
        regex.Global = True
        regex.Pattern = str_pattern
    End If
    Set all_matches = regex.Execute(stext)
    If all_matches.Count <> 0 Then GetPapPap = all_matches(0).Value
End Function

Khi sử dụng thì GetPapPap("CODE",D3)

 

[befaint]

Bác @befaint , regexp muốn xử lý để lấy chính xác theo sau đúng 6 chữ số, nếu là 7 chữ số trở lên không lấy thì pattern thế nào nhỉ, em hí hoáy mãi vẫn chưa nghĩ ra
Edit:
Em vừa thử, có vẻ là thế này:

(AS[0-9]{6})(?=\D|$)

Tối thiểu là 7 ký tự số.

 

[Nhattanktnn]

Tối thiểu là 7 ký tự số.

View attachment 248929

Ý em hỏi là chính xác 6 số, không hơn không kém ấy bác. Chứ không phải tối thiểu 7 chữ số
Mà pattern em làm có vẻ cũng hợp lý với suy nghĩ của em

 

[HeSanbi]

Em chào mọi người.

Em muốn lấy ra chuỗi con định dạng "AS######" trong các cells cột D .

Ví dụ các cells có định dạng "hsjdjehf AS123762 jfighj12 frigj..." . Thì khi đó nó sẽ lấy ra chuối AS123762 ạ.

Rất mong mọi người cho em xin đoạn code tham khảo ạ.

Em xin cảm ơn!

Học Regular Expression 15 phút là biết A đến Z xử lý chuỗi.


Phần định nghĩa dưới đây đã có sẵn trong Add-in FastCode để học lập trình VBA do chính tôi phát triển:
bạn có thể tải và sử dụng add-in tại:

VBA_FastCode v2.2 - Công cụ học và viết mã VBA một cách nhanh nhất (27/10/2023)

***** CẬP NHẬT MỚI v2.2 ***** -------------------------------------------------------------------------- Add-in được chia sẻ dưới đây, đó là những gì tôi hiểu biết về VBA và đã viết ra nó. Một Add-in Tools chỉnh sửa code VBA rất đơn giản nhưng có thể giúp các bạn học VBA và viết code nhanh...

www.giaiphapexcel.com

\	Xóa bỏ định nghĩa của một cú pháp
|	Thanh dọc biểu thị toán tử boolean "hoặc"
.	Lấy ký tự bất kỳ
?	không hoặc lấy một lần của cú pháp
+	Một hoặc nhiều lần của cú pháp
*	Không hoặc nhiều lần của cú pháp
{9}	Giới hạn số ký tự lấy là 9 lần của cú pháp
{9,}	9 đến nhiều lần của cú pháp
{,9}	0 đến 9 lần của cú pháp
{2,9}	Lấy 2 đến 9 lần của cú pháp
^	Bắt đầu phải là chuỗi sau nó
[]	Đối sánh bất kỳ ký tự đơn nào giữa các dấu ngoặc []
[^]	Không chứa các ký tự theo sau nó
[-]	Lấy từ ký tự cho đến ký tự
$	Kết thúc phải là chuỗi trước nó
\b	Lấy ký tự đến ký tự phân tách
\B	Không lấy ký tự thuộc ký tự phân tách
\s	Lấy ký tự phân cách
\S	Lấy chuỗi không phải ký phân cách
\w	Ký tự chữ và số và dấu gạch dưới
\W	Không phải Ký tự chữ và số và dấu gạch dưới
\d	Lấy chuỗi ký tự số
\D	Lấy chuỗi không phải ký tự số
\t	Tab
\r	Trở lại dòng trên
\n	Xuống dòng
\u0001	Ký tự UTF-8 không phải unicode
\x1	Ký tự UTF-8 không phải unicode
()	Nhóm
(?	Không nhóm
(?=)	Không nhóm nhưng liền kề sau
(?!)	Khác nhóm

 

[befaint]

chính xác 6 số

Chắc được. .

 

[Nhattanktnn]

Chắc được. .
View attachment 248931

Ờ nhỉ, em làm kiểu: theo sau không phải là số hoặc đứng cuối chuỗi , thay vào đó làm như bác không bắt lấy nhóm theo sau là số cho đơn giản nhỉ . Tại đôi lúc ?=, ?: , ?! em cứ lơ mơ

 

[hadoan-pap]

AS###### thì không có khoảng trắng, giờ chuyển sang CODE lại có à?
Trong lúc chờ bác befain trả lời thì mình tạm sửa code bác ấy:

Option Explicit

Function GetPapPap(ByVal Txt As String, ByVal stext As String) As String
Dim str_pattern As String
    str_pattern = "(" & Txt & "[0-9]{6})"
    Static regex As Object
    Dim all_matches As Object
    If regex Is Nothing Then
        Set regex = CreateObject("VBScript.RegExp")
        regex.Global = True
        regex.Pattern = str_pattern
    End If
    Set all_matches = regex.Execute(stext)
    If all_matches.Count <> 0 Then GetPapPap = all_matches(0).Value
End Function

Khi sử dụng thì GetPapPap("CODE",D3)

Cảm ơn bác.

Em có thử thì nó ra #NAME?

Không rõ sai logic ở đâu ạ ?

 

[Nhattanktnn]

Cảm ơn bác.

Em có thử thì nó ra #NAME?

Không rõ sai logic ở đâu ạ ?

Chắc do bác ấy khai báo static nên nó vậy, đổi lại thành như này xem sao

Option Explicit
Function GetPapPap(ByVal Txt As String, ByVal stext As String) As String
Dim str_pattern As String, regex As Object, all_matches As Object
    str_pattern = "(" & Txt & "[0-9]{6})"
        Set regex = CreateObject("VBScript.RegExp")
        regex.Global = True
        regex.Pattern = str_pattern
    Set all_matches = regex.Execute(stext)
    If all_matches.Count <> 0 Then GetPapPap = all_matches(0).Value
End Function

 

[hadoan-pap]

Chắc do bác ấy khai báo static nên nó vậy, đổi lại thành như này xem sao

Option Explicit
Function GetPapPap(ByVal Txt As String, ByVal stext As String) As String
Dim str_pattern As String, regex As Object, all_matches As Object
    str_pattern = "(" & Txt & "[0-9]{6})"
        Set regex = CreateObject("VBScript.RegExp")
        regex.Global = True
        regex.Pattern = str_pattern
    Set all_matches = regex.Execute(stext)
    If all_matches.Count <> 0 Then GetPapPap = all_matches(0).Value
End Function

Bác thử giúp em như trong file em gửi xem ạ.

Em có sửa lại nhưng chưa được.

 

[Nhattanktnn]

Bác thử giúp em như trong file em gửi xem ạ.

Em có sửa lại nhưng chưa được.

Ví dụ chuỗi "vevh vrehbjdfnhb 78v CODE AS352617 nehv vrgvug"

Nãy mình nhìn nhầm, tưởng đâu "CODE352617".
Thế giờ bạn muốn lấy sau CODE, vậy kết quả trả về có bao gồm chữ CODE không

 

[hadoan-pap]

Nãy mình nhìn nhầm, tưởng đâu "CODE352617".
Thế giờ bạn muốn lấy sau CODE, vậy kết quả trả về có bao gồm chữ CODE không

Không bác ạ. Em muốn lấy 8 ký tự sau chữ " CODE + 'khoang trắng' " của các cells ….. Ví dụ "CODE AS123421 " khi đó sẽ trả về AS123421

 

[Nhattanktnn]

Không bác ạ. Em muốn lấy 8 ký tự sau chữ " CODE + 'khoang trắng' " của các cells ….. Ví dụ "CODE AS123421 " khi đó sẽ trả về AS123421

Phần "Code " phía sau công thức là optional, tức là có thể có hoặc không, nếu không nhập thì nó sẽ lấy chuỗi nào có AS######, còn nếu nhập thì chỉ lấy chuỗi sau từ đó
Mình sửa lại chút nên chỉ lấy chính xác sau AS là 6 ký tự số nhé, nếu 7 ký tự không lấy. Nếu bạn muốn sửa lại thì sửa chỗ:

str_pattern = "(" & Txt & ")(AS[0-9]{6}(?!\d))"
Thành:
str_pattern = "(" & Txt & ")(AS[0-9]{6})"

Code đây:

Option Explicit
Function GetPapPap(ByVal stext As String, Optional ByVal Txt As String) As String
Dim str_pattern As String, regex As Object, all_matches As Object, C
Set regex = CreateObject("VBScript.RegExp")
str_pattern = "(" & Txt & ")(AS[0-9]{6}(?!\d))"
    With regex
        .Global = True
        .ignorecase = True
        .Pattern = str_pattern
        Set all_matches = .Execute(stext)
        If all_matches.Count <> 0 Then
            GetPapPap = VBA.Replace(UCase(all_matches(0).Value), UCase(Txt), "")
        End If
    End With
End Function

 

[hadoan-pap]

Phần "Code " phía sau công thức là optional, tức là có thể có hoặc không, nếu không nhập thì nó sẽ lấy chuỗi nào có AS######, còn nếu nhập thì chỉ lấy chuỗi sau từ đó
Mình sửa lại chút nên chỉ lấy chính xác sau AS là 6 ký tự số nhé, nếu 7 ký tự không lấy. Nếu bạn muốn sửa lại thì sửa chỗ:

str_pattern = "(" & Txt & ")(AS[0-9]{6}(?!\d))"
Thành:
str_pattern = "(" & Txt & ")(AS[0-9]{6})"

Code đây:

Option Explicit
Function GetPapPap(ByVal stext As String, Optional ByVal Txt As String) As String
Dim str_pattern As String, regex As Object, all_matches As Object, C
Set regex = CreateObject("VBScript.RegExp")
str_pattern = "(" & Txt & ")(AS[0-9]{6}(?!\d))"
    With regex
        .Global = True
        .ignorecase = True
        .Pattern = str_pattern
        Set all_matches = .Execute(stext)
        If all_matches.Count <> 0 Then
            GetPapPap = VBA.Replace(UCase(all_matches(0).Value), UCase(Txt), "")
        End If
    End With
End Function

Em cảm ơn nhiều nhé

 

[VetMini]

Code phải tự xét AS123456 và đoán được cái pattern chứ "nặn lại" pattern mỗi lần thay đổi thì code chi mất công.

 

[Nhattanktnn]

Code phải tự xét AS123456 và đoán được cái pattern chứ "nặn lại" pattern mỗi lần thay đổi thì code chi mất công.

Bác cụ thể hơn được không ạ!

 

[VetMini]

Bác cụ thể hơn được không ạ!

Code đọc "~A~S999999", tự động biết điều kiện là 2 ký tự 'AS' cộng 6 chữ số. (dấu ~ là escape theo tinh thần Excel)

Tôi chỉ bàn kháo "code xịn" thôi chứ bản thân tôi không đủ sức viết code xịn. (tiếng xưa, "bàn kháo" có nghĩa là xúi dại, xúi người ta chứ bản thân mình thì chạy)