游客

标题:Excel 使用正则表达式校验数据有效性
正文:
边框 小边框 Private Sub Worksheet_Change(ByVal Target As Range) Dim i, text For i = 1 To Target.Count text = Target.Item(i).text y = Target.Item(i).Column x = Target.Item(i).Row If text = "" Or x = 1 Then Exit Sub '为空 或 第一行 跳过 Select Case Cells(1, y).Value '根据修改所在列 表头名 校验数据有效性 Case "会员号" If RegExpTest(text, "^[a-zA-Z][a-zA-Z\d]{3,10}$") = False Then &nbs
[<<][[1]][2][3][>>]

查看评论(1)
发表评论



首页