求一个正则表达式的写法

lovelfg

一个单元格，按空格可以分为三段，里面的内容得符合以下要求

第一段：由若干个大写字母构成

第二段：由任意一个大于0的正数构成，包括小数
第三段：日期格式的文本，格式为MM/DD/YY

比如"FDA 3.4 06/21/24"则应该校验通过

"FDA 0 06/21/24"校验不通过，不符合第二条，中间数为0
"FDA 3.1 21/06/24"校验不通过，不符合第三条，日期格式为DD/MM/YY了

求教一下，应该如何写判断公式？

limonet

把你的pattern放出来啊，要想得到准确帮助，必须提供尽可能多的信息，不要想当然，不要你以为。[A-Z]+ \d+(\.\d+)? .*

lovelfg

limonet 发表于 2024-6-11 16:15
把你的pattern放出来啊，要想得到准确帮助，必须提供尽可能多的信息，不要想当然，不要你以为。[A-Z]+ \d+( ...

Function test(rg As Range) As Boolean
Dim regx As New RegExp
Dim sr
sr = rg
With regx
.Global = True
.Pattern = "[A-Z]+ \d+(\.\d+)? .*"
End With
End Function

求教，如果判断单元格里的内容是否满足要求呢？

shiruiqiang

杨建营

[A-Z]+\s(?=.*[1-9])\d+(?:\.\d+)?\s(0?[1-9]|1[0-2])/((0?[1-9])|((1|2)[0-9])|30|31)/\d{2}

DevilW

wang-way

([A-Z]+) (\d+(\.\d+)?) \d{2}/\d{2}/\d{2}

limonet

关键字：test

limonet

Function IsHybrid(Rng As Range) As Boolean
    With CreateObject("vbscript.regexp")
        .Pattern = "[A-Z]+ [1-9]+(\.\d+)? [0-1][0-9]/[0-3][0-9]/\d+"
        IsHybrid = .test(Rng)
    End With
End Function

ggmmlol

=REGEXTEST(A1,"^[A-Z]+ (?!0 )\d+(\.\d+)? (0[1-9]|1[0-2])/([0-2]\d|3[01])/\d\d")