VBA求一个正则表达式从input获得一个值,要求输入的时候只能包含字母和数字,一定是字母和数字的组合,并且总长度为4.字母2个,数字俩个；字母在数字前,例如：FY11,FY21.等（字母不区分大小写

Question

VBA 求一个正则表达式
从input获得一个值,要求输入的时候只能包含字母和数字,一定是字母和数字的组合,并且总长度为4.字母2个,数字俩个；字母在数字前,例如：FY11,FY21.等（字母不区分大小写）
以我举的例子为准!

Answer 1

Sub Test()
    SS = InputBox("请输入.")
    Set reg = CreateObject("VBSCRIPT.REGEXP")
    reg.Pattern = "[A-Za-z]{2}\d{2}"
    If reg.Test(SS) And Len(SS) = 4 Then
       'MsgBox " ."
    Else
        Exit Sub
    End If
End Sub