Нужно идентифицировать между диапазоном почтовых индексов

Question

Я довольно новичок в vba, и я пытаюсь выяснить, как определить почтовый индекс, который попадает в диапазон, в котором меняется один символ.

Например, я хочу видеть, существует ли почтовый индекс между 2G8 и 2P8.

Другими словами, диапазон того, что я ищу будет 2_8 где подчеркивание может быть G к P, но я не знаю, как определить, что в коде.

Я очень благодарен за помощь, чтобы выяснить, как подойти к этой проблеме. Благодаря!

Answer 1

Вы можете использовать функцию VBA Mid, чтобы вытащить каждый символ и проверить его в соответствии с вашими бизнес-правилами. Вот пример того, как это может выглядеть:

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 

Эта функция возвращает значение True или False, указывающее, является ли вход правилен.

Answer 2

LIKE избегает повторного тестирования Струнных

1. Простого теста

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

2. Дело Нечувствительности версии

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