Cần phải xác định giữa phạm vi mã bưu chính

Question

Tôi khá mới với vba và tôi đang cố gắng tìm ra cách xác định mã bưu điện nằm trong phạm vi mà một ký tự thay đổi. Ví dụ: Tôi muốn xem mã bưu chính có nằm giữa 2G8 và 2P8 hay không.

Nói cách khác, phạm vi của những gì tôi đang tìm kiếm sẽ 2_8 nơi nhấn có thể G-P, nhưng tôi không biết làm thế nào để xác định rằng trong mã.

Tôi thực sự đánh giá cao một số trợ giúp để tìm ra cách tiếp cận vấn đề này. Cảm ơn!

Answer 1

Bạn có thể sử dụng chức năng VBA Mid để rút ra từng ký tự và xác thực nó theo quy tắc kinh doanh của bạn. Dưới đây là một ví dụ về cách nó có thể trông:

Function ValidatePostalCode(code As String) 
    ValidatePostalCode = _ 
     (Mid(code, 1, 1) = "2") And _ 
     (Mid(code, 2, 1) >= "G" And Mid(code, 2, 1) <= "P") And _ 
     (Mid(code, 3, 1) = "8") 
End Function 

Chức năng này sẽ trả về một giá trị của True hoặc False nêu rõ đầu vào là hợp lệ.

Answer 2

LIKE tránh lặp lại chuỗi thử nghiệm

1. Simple thử nghiệm

Function ValidString(strIn As String) As Boolean 
ValidString = strIn Like "2[G-P]8" 
End Function 

2. Trường hợp phiên bản Insensitive

Function ValidString(strIn As String) As Boolean 
ValidString = LCase$(strIn) Like LCase$("2[G-P]8") 
End Function