如何编写VBA函数判断文本是否符合指定校验条件？

下面是满足你需求的VBA函数，直接复制到Excel的VBA模块里就能使用：

Function ValidateText(inputText As String) As Boolean
    Dim lengthCheck As Boolean
    Dim prefixCheck As Boolean
    Dim suffixCheck As Boolean
    
    ' 1. 校验文本长度至少为6个字符
    lengthCheck = Len(inputText) >= 6
    
    ' 2. 校验前两个字符为大写字母
    prefixCheck = Left(inputText, 2) Like "[A-Z][A-Z]"
    
    ' 3. 校验最后三个字符为数字
    suffixCheck = Right(inputText, 3) Like "[0-9][0-9][0-9]"
    
    ' 三个条件必须同时满足才返回True
    ValidateText = lengthCheck And prefixCheck And suffixCheck
End Function

代码逻辑说明 #

• 长度校验：通过Len()函数获取输入文本的字符数，判断是否大于等于6。
• 前缀校验：用Left()截取前两个字符，通过Like "[A-Z][A-Z]"匹配是否为连续的大写英文字母。
• 后缀校验：用Right()截取最后三个字符，通过Like "[0-9][0-9][0-9]"匹配是否为连续的数字。
• 只有三个校验条件全部通过时，函数返回True，任意一个条件不满足则返回False。

测试示例 #

• 输入"AB1234" → 返回True
• 输入"ab1234" → 返回False（前缀不是大写字母）
• 输入"ABC12" → 返回False（文本长度不足6）
• 输入"AB123a" → 返回False（最后三个字符不全是数字）

内容的提问来源于stack exchange，提问作者Ramon Saluveer