判断单元格是否为微信号

ehlcj2323

判断单元格是否为微信号

changhong8

用正则表达式和自定义函数的形式，一搞一个准

changhong8

效果如下图：

守护最爱的坤坤

public function wechatidornot(rg as range) as string
    dim reg as object
    set reg=createobject("VbScript.regexp") '引用正则对象
    dim str as string
    dim result as Boolean
    if rg.cells.count = 1 then
        str=rg.value
        with reg
             .global = true
             .pattern ="^[a-zA-Z][\w|-]{5,19}$"
             result = .test(str)
         end with
        if result= true then
             wechatidornot="正确"
        else
             wechatidornot ="错误"
        end if
    else
        msgbox "请选择一个单元格"
    end if
end fuction