单元掩码格式

Question

我正在尝试为我的单元格开发一个掩码，根据要求它只能是文本或数字。

我还有一个干净的按钮来重置我各自的单元格。那是我的问题。我的蒙版检查宏运行良好，但如果当我使用我的清洁按钮时它们变空了，同样的检查宏会说空白不被接受。

按照我的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa

    Application.EnableEvents = False


    If Not Intersect(Target, Range("C5")) Is Nothing Then


        If Not IsNumeric(Range("C5").Value) Then
            MsgBox "Valor inválido."
            Application.Undo
            GoTo LetsContinue
        End If

        Range("C5").Value = "" & Format(Range("C5").Value, "")
    End If

    If Not Intersect(Target, Range("C7")) Is Nothing Then
        'apaga se nao for o numero
        If Not IsNumeric(Range("C7").Value) Then
            MsgBox "Valor inválido."
            Application.Undo
            GoTo LetsContinue
        End If

        Range("C7").Value = "'" & Format(Range("C7").Value, "")
    End If

    If Not Intersect(Target, Range("I9")) Is Nothing Then
         'apaga se nao for o numero
        If Not IsNumeric(Range("I9").Value) Then
            MsgBox "Valor inválido."
            Application.Undo
            GoTo LetsContinue
        End If


    End If

     If Not Intersect(Target, Range("I11")) Is Nothing Then
         'apaga se nao for o numero
        If Not IsNumeric(Range("I11").Value) Then
            MsgBox "Valor inválido."
            Application.Undo
            GoTo LetsContinue
        End If


    End If


     If Not Intersect(Target, Range("I13")) Is Nothing Then
         'apaga se nao for o numero
        If Not IsNumeric(Range("I13").Value) Then
            MsgBox "Valor inválido."
            Application.Undo
            GoTo LetsContinue
        End If


    End If


     If Not Intersect(Target, Range("E15")) Is Nothing Then
         'apaga se nao for o numero
        If Not IsNumeric(Range("E15").Value) Then
            MsgBox "Valor inválido."
            Application.Undo
            GoTo LetsContinue
        End If
            End If

If Not Application.IsText(Worksheets("Formulário").Range("C9")) Then
MsgBox "Valor inválido."
            Application.Undo
            GoTo LetsContinue
End If



LetsContinue:
    Application.EnableEvents = Truea
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub

Function IsAlpha(str As String) As Boolean
Dim c As String
Dim I As Integer

    For I = 1 To Len(str)
        c = Mid(str, I, 1)

        Select Case Asc(c)

            Case 32, 65 To 90, 97 To 122
                IsAlpha = True
            Case Else
                IsAlpha = False
        End Select

        If Not IsAlpha Then Exit For
    Next I
End Function

Answer 1

改为尝试以下例程，使用 VBA 样式的正则表达式来测试您的规则：

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Union(Range("C5"),Range("C7"), Range("I9")) Is Nothing Then Exit Sub

Application.EnableEvents = False

If Not Target.Value Like "[a-zA-Z0-9]+" Then
    MsgBox "Valor inválido."
    Application.Undo
End If

Application.EnableEvents = True

End Sub

然后在 "cleaning" 单元格的宏中，确保在开头使用 Application.EnableEvents = False 并在结尾使用 Application.EnableEvents = True，这会停止触发事件，这意味着当您的宏更改单元格的值时，上面的代码不是运行。

单元掩码格式

Cell mask format

excel

vba

mask