Question

我想区分有效和无效之间的输出响应。我尝试用单词，字母数字等来检查字符串......但是有效和无效都有这些特征。我将得到两个输出响应。一个是有效的，另一个是无效的（不可读）。

有没有办法区分这两种反应。

有效回复：

“ABC002”， “2015年1月1日”， “JNSDKJJOIJ”， “绿色”， “000000”， “TEST” .............

响应无效：

（* ^ @ $％$％^％^％$$ FGFG＃$＃$％$ ^＃$％dgfDFGERT1235434 _）（对 “P {_ {＆GT;？：” |} {〜] [; / 。，“

Answer 1

我能够使用正则表达式

来做到这一点

Here is a link分享

这里是正则表达式

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Cell As Range
MsgBox "Event Workbook_BeforeSave Launched", vbInformation + vbOKOnly, "Started"

On Error GoTo ErrHandler

ReTry:
    With Sheet6
        .Unprotect Password:=""
        .Cells.Locked = False
        For Each Cell In .UsedRange
            If Cell.Value = "" Then
                Cell.Locked = False
            Else
                Cell.Locked = True
            End If
        Next Cell
        .Protect Password:=""
        'Protect with blank password, you can change it
    End With
    With Sheet7
        .Unprotect Password:=""
        .Cells.Locked = False
        For Each Cell In .UsedRange
            If Cell.Value = "" Then
                Cell.Locked = False
            Else
                Cell.Locked = True
            End If
        Next Cell
        .Protect Password:=""
        'Protect with blank password, you can change it
    End With

MsgBox "Event Workbook_BeforeSave Over", vbInformation + vbOKOnly, "Finished"
    Exit Sub
ErrHandler:
    MsgBox "Error " & Err.Number & " :" & vbCrLf & _
        Err.Description
    Resume ReTry

End Sub

在定义更多有效单词时，只需使用Pipe |添加它们即可（或）用括号括起来。添加修饰符[gmi]（全局，多行和忽略大小写），你应该很好。

Answer 2

因此，如果我的假设是正确的，也许这个正则表达式可以帮助：

("[A-Z0-9/]*?"),?

如果它们以逗号分隔，则应该匹配由大写字母，数字和斜杠组成的任何带引号的字符串。如果您不需要逗号分隔，只需删除正则表达式的最后两个字符。如果你不需要引号，只需用圆括号切换它们的位置。

检查字符串是否有有效字

2 个答案: