Biểu thức chính quy VBA phù hợp với phạm vi thời gian như "1:30 chiều - 12:00 sáng"

Question

Tôi đang cố gắng sử dụng cụm từ thông dụng VBA để xác thực phạm vi thời gian của biểu mẫu: #0:00xm - #0:00xm trong đó x là a hoặc p. Vì vậy, chuỗi chữ có thể là "1:30pm - 12:00am". Tôi muốn khớp các ô có mẫu này.

Khi tôi sử dụng biểu thức chính quy trong công cụ trực tuyến này: http://public.kvalley.com/regex/regex.asp và kiểm tra biểu thức của tôi, nó khớp chính xác.

Tuy nhiên, khi tôi sử dụng cùng một biểu thức trong VBA, nó không khớp.

Dim rRange As Range 
Dim rCell As Range 

Set rRange = Range("A2", "A4") '"G225") 

For Each rCell In rRange.Cells 
MsgBox (rCell.Value) 
    If rCell.Value Like "^([0-9]{1,2}[:][0-9]{2}[apm]{2}[ ][-][ ][0-9]{1,2}[:][0-9]{2}[apm]{2})$" Then 
    MsgBox ("YES") 
     'rCell.Interior.Color = RGB(0, 250, 0) 
    Else 
    MsgBox ("NO") 
     'rCell.Interior.Color = RGB(250, 0, 0) 
    End If 
Next rCell 

Answer 1

Đối với những ai quan tâm, đây là cố định, phiên bản làm việc của tôi với cảm ơn đặc biệt đến dda cho RegEx đơn giản hơn mình ^^:

Dim rRange As Range 
Dim rCell As Range 

Dim re As Object 
Set re = CreateObject("vbscript.regexp") 
With re 
    .Pattern = "^\d\d?:\d\d[aApP][mM] - \d\d?:\d\d[aApP][mM]$" 
    .Global = False 
    .IgnoreCase = False 
End With 

Set rRange = Range("A2", "G225") 

For Each rCell In rRange.Cells 
    If re.Test(rCell) Then 
     rCell.Interior.Color = RGB(0, 250, 0) 
    Else 
     rCell.Interior.Color = RGB(250, 0, 0) 
    End If 
Next rCell 

Answer 2

Bên trong Excel, chuyển đến Định dạng ô> Số> Danh mục> Tùy chỉnh. Bạn sẽ thấy nhiều định dạng kiểu thời gian.

Những gì bạn có thể đang tìm kiếm là h: mm AM/PM

OK. Tôi đã nhìn sâu hơn vào điều này và nhận ra tầm nhìn ngắn của tôi.

Đây có phải là những gì bạn đang theo dõi không? Tôi đã làm một bài kiểm tra cơ bản về định dạng giá trị thời gian với AM/PM và các ô không được định dạng theo cách đó.

Dim rRange As Range 
Dim rCell As Range 

Set rRange = Range("A2", "A4") 

For Each rCell In rRange 
    If InStr(1, UCase(rCell.Value), " AM") > 0 Or InStr(1, UCase(rCell.Value), " PM") > 0 Then 
     If InStr(1, rCell.Value, ":") <> 0 Then Debug.Print rCell.Value 
    End If 
Next 

Answer 3

Hãy dọn dẹp và cải thiện regex của bạn:

^\d\d?:\d\d[aApP][mM] - \d\d?:\d\d[aApP][mM]$ 

này sẽ chỉ phù hợp nếu toàn bộ tế bào là một ngày định dạng giống như bạn muốn nó, và không có gì khác (các^_ ___ $ conditions). Tôi đã thêm cả a và A và p và P để chắc chắn không có sự cố nào.

Tôi không có VBA/Excel trên máy này, vì vậy không thể thử mã của bạn với regex của tôi, nhưng regex mỗi hoạt động.