Kiểm tra chuỗi chứa cả chữ và số

[hadoan-pap]

Em chào mọi người!
Em muốn kiểm tra trong 1 chuỗi tồn tại theo định dạng "AS010928", tức là "AS" và sau đó là 6 số

Code của em bên dưới chạy chưa đúng, em không rõ tại sao ạ.

Rât mong mọi người xem giúp em ạ.

Em xin cảm ơn!

Dim str As String

str = "AS" & "[0-9]" & "[0-9]" & "[0-9]" & "[0-9]" & "[0-9]" & "[0-9]"

lastrow = Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To lastrow

If InStr(Range("D" & i), str) > 0 Then
MsgBox "ok"
End If

Next i

 

[befaint]

Const str_pattern= "AS######"
Const start_row =2
Const scol_ref = "D"
Dim data as variant, last_row as long, i as long
last_row = sheet1.range(scol_ref & sheet1.rows.count).end(xlup).row
if last_row < start_row then
msgbox "No data!"
Exit sub
End if
data =sheet1.range(scol_ref & start_row).resize(last_row - start_row + 1 + 1, 1).value2
last_row = ubound(data,1)-1
For i=1 to last_row
if data(i,1) like str_pattern then
debug.print(i & " = OK")
end if
next i

 

[hadoan-pap]

Const str_pattern= "AS######"
Const start_row =2
Const scol_ref = "D"
Dim data as variant, last_row as long, i as long
last_row = sheet1.range(scol_ref & sheet1.rows.count).end(xlup).row
if last_row < start_row then
msgbox "No data!"
Exit sub
End if
data =sheet1.range(scol_ref & start_row).resize(last_row - start_row + 1 + 1, 1).value2
last_row = ubound(data,1)-1
For i=1 to last_row
if data(i,1) like str_pattern then
debug.print(i & " = OK")
end if
next i

Gửi anh.

Dạ em có thử nhưng chưa được ạ.

Các cell cột D chứa các đoạn text khác nhau, e cần xem và lấy ra ở mỗi cell mà có chuỗi con định dạng "AS######" ạ.

Tức là trong mỗi cell ở cột D nếu tồn tại chuỗi con với định dạng như trên thì sẽ lấy ra chuỗi con đó ạ.

Ví dụ cell có có text như kiểu "ahsnfkghgkg AS0129923 akfjg fhu12jg "

 

[befaint]

"ahsnfkghgkg AS0129923 akfjg fhu12jg "

Const str_pattern= "*AS######*"

 

[hadoan-pap]

Const str_pattern= "*AS######*"

Gửi anh.

Cảm ơn anh ạ.... kết quả gần đúng rồi.

Nhưng em muốn lấy cái str_pattern đó ra để ghi vào excel thì lấy nó ra chính xác như nào ạ.

Như đoạn code thì nó chỉ đưa ra "AS######" thôi ạ... em muốn lấy ra "AS0129923" trong chuối đó ạ

 

[befaint]

Cảm ơn anh ạ.... kết quả gần đúng rồi.

Chỗ nào chưa đúng mà mới "gần đúng" vậy bạn?

Nhưng em muốn lấy cái str_pattern đó ra để ghi vào excel thì lấy nó ra chính xác như nào ạ.

Như đoạn code thì nó chỉ đưa ra "AS######" thôi ạ... em muốn lấy ra "AS0129923" trong chuối đó ạ

Không chơi trò treo củ cải nhé. Bạn đăng bài mới.

 

[hadoan-pap]

Chỗ nào chưa đúng mà mới "gần đúng" vậy bạn?


Không chơi trò treo củ cải nhé. Bạn đăng bài mới.

Cảm ơn anh nhiều ạ

 

[Phuocam]

. .