regex - VBA初始单元格更改无法触发功能 - 后续更改成功触发功能 - 正则表达式单元格验证

Question

以下代码旨在防止任何人输入非数字字符。

Private Sub Worksheet_Change(ByVal Target As Range)

Static X As Variant
Dim rng2 As Range
Dim rng3 As Range

If IsEmpty(X) Then X = [a1:a10].Value2

Set rng2 = Intersect([a1:a10], Target)
If rng2 Is Nothing Then Exit Sub

Application.EnableEvents = False
For Each rng3 In rng2
    If Not isValidRegex(rng3, "\d+") Then rng3.Value = X(rng3.Row, 1)
Next
Application.EnableEvents = True

X = [a1:a10].Value2

End Sub

Function isValidRegex(rng As Range, pattern As String) As Boolean
Dim re As Object
Set re = CreateObject("vbscript.regexp")
re.pattern = pattern
isValidRegex = re.Test(rng.Value)
End Function

问题出在第一次尝试时，当用户将此范围 A1:A10 中的单元格更改为非数字字符时，isValidRegex 函数无法触发……或者至少我认为这是问题所在。也许它与变量X有关。

我希望始终强制执行正则表达式模式......

Answer 1

也许下面的代码对你有用

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng2 As Range
Dim rng3 As Range

    Set rng2 = Intersect([a1:a10], Target)
    If rng2 Is Nothing Then Exit Sub

    Application.EnableEvents = False
    For Each rng3 In rng2
        If Not isValidRegex(rng3, "\d+") Then Application.Undo
    Next
    Application.EnableEvents = True

End Sub