摘要:
Function zhengze(ze As String, Rng As Range) Set regx = CreateObject("vbscript.regexp")With regx .Global = True .Pattern = ze '写正则表达式 Set mat = .Execu 阅读全文
摘要:
Function test(a As Integer)'构造函数名字为test参数为a且为int型 If a >= 90 Then Debug.Print "优秀" test = "优秀" '赋值到单元格,跨表依然适用 ElseIf a >= 60 Then Debug.Print "及格" tes 阅读全文
摘要:
Function zhengze(Rng As Range) Set regx = CreateObject("vbscript.regexp")With regx .Global = True .Pattern = "\d{4}-\d{2}-\d{2}" '写正则表达式 Set mat = .Ex 阅读全文